Question

vb 如何多个数比较大小

vb 6.0中，如何比较多个数的大小！比如我有四个数，i1,i2,i3,i4，我只会比较2个数的大小！
郁闷啦！
我已经知道这四个数了！
不好意思，我VB用的不好！麻烦能用已知的i1,i2,i3,i4比较吗，找出最大的那个，谢谢了！

Answer 1

举个例子：比较a,b,c,d四个数字的大小，取Xmin=最小的数字。例如：1，2，3，4，则Xmin=1；如果1，2，0，3，则Xmin=1，全为0时，Xmin=0

新建一个工程
上面建成一个text1再复制三个，生成了个控件数据
再搞一按钮，复制下面的代码就可以了，测试没有问题，
Dim a(4) ‘定义数组
Private Sub Command1_Click()
For j = 1 To 4
a(j) = Text1(j - 1).Text ’这里为了简单我就用数组控件了
Min = a(1)
flag = 1
For i = 2 To 4
a(i) = Text1(i - 1).Text
If Min > a(i) Then
If Min = 0 Then
Min = a(i)
End If
If a(i) = 0 Then
Min = Min
End If
Min = a(i)
flag = i
End If
Next i
Next j
MsgBox Min
End Sub

测试没有问题哦……
如果不想用控件数组的请，建四个文本框，写上a(1) = Text1.Text
a(2)=text2.text…………

Answer 2

冒泡法
把要排序的数先放在一个一维数组里面

Private Sub Command1_Click()
Dim k
k = InputBox("请输入要进行排序的数据数量")
ReDim number(1 To k)
Dim i%, msg$, t
msg = "Enter a number to sort"

For i = 1 To k
number(i) = Val(InputBox(msg, i))
Next i

For i = k To 2 Step -1
For j = 1 To i - 1
If number(j) > number(j + 1) Then
t = number(j + 1)
number(j + 1) = number(j)
number(j) = t
End If
Next j
Next i

Cls
For i = 1 To k
Print number(i)
Next

End Sub

Answer 3

设第一个数是最小的
然后进入第二个数，如果比第一个数还小，那就让第一个数等于这个数
以此类推