VB6.0中如何对一个数据集内的数据进行判断最大和最小的值？

2025-03-29 09:24:20

推荐回答（2个）

回答1：

您好，VB中没有MAX和MIN函数,不过你可以自己编程实现。
给你一个求随机产生6个两位正整数的例子：
Private Sub Command1_Click()
Dim a(6) As Integer
For i = 1 To 6
Randomize
a(i) = Int(Rnd * 90) + 10
Print a(i);
Next i
Print
Max = a(1)
Min = a(1)
For i = 1 To 6
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
Print "最大值为：" & Max
Print "最小值为：" & Min
End Sub

回答2：

得到数据以后，然后处理啊。
冒泡法会吗，先int bigNmb（习惯说int，你也可以float，根据实际情况），让bigNmb=第一个数，然后让bigNmb跟第二个数比较，如果bigNmb最小值同理