vb.net比较大小 vb字符比较大小

vb.net比较多个数字大小

给你个例子

'生成20个随机整数

Dim MyRandom As New Random

Dim a(19), b() As Integer

For i = 0 To a.GetUpperBound(0)

a(i) = MyRandom.Next(0, 1001)

Next

b = a.Clone '复制数组

'排序

System.Array.Sort(b)

System.Array.Reverse(b)

数组b是结果

相关问答

Q1: VB.NET中，比较四个数字的大小 代码

用不到2个命令按钮 1个就够

在按钮vb.net比较大小的过程中写如下代码

dim x as long , y as long ,z as long ,j as long ,n as long

dim k as integer

x = val(text1.text)

y = val(text2.text)

z = val(text3.text)

j = val(text4.text)

if x = then k = k+1

if y= then k = k+1

if z= then k = k+1

if j= then k = k+1

' 若输入vb.net比较大小的数有负数 则必须先在这里写下 n=-.....（）

do

if x 0 and n = x then

text5.text = text5.text " " x

k = k +1

end if

if y 0 and n = then

text5.text = text5.text " " y

k = k +1

end if

if z 0 and n = z then

text5.text = text5.text " " z

k = k +1

end if

if j 0 and n = j then

text5.text = text.text " " j

k = k +1

end if

if k = 4 then exit for

n=n+1

loop

这是VBvb.net比较大小的代码。。。。 不知道.net 适用不

Q2: VB.NET 数组内容比较大小

'给数组赋值

dim d(6) as integer

d(1)=11

d(2)=32

d(3)=25

d(4)=45

d(5)=9

d(6)=5

'获取最大值（采用打擂台vb.net比较大小的思路）

dim MyMax as integer

dim i as integer

MyMax = d(1) '假设第1个元素最大

for i = 2 To Ubound(d) '从第2个元素开始到最后一个元素

'如果当前元素比MyMaxvb.net比较大小的值大vb.net比较大小，就把当前元素保存到MyMax

if d(i) MyMax Then

MyMax = d(i)

end if

next i

msgbox MyMax

vb.net比较大小的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb字符比较大小、vb.net比较大小的信息别忘了在本站进行查找喔。