vb最值获取（擂台法）

任务要求

我们用随机数生成10-100以内的10个随机数，并在这10个随机数中找到最大值和最小值

任务图片

任务步骤

Dim a(10) As Integer '定义一个数组从a(0)-a(9)用来保存数据
Private Sub Command1_Click()
Max = 0  '定义最大值，max初始值最小
Min = 100  '定义最小值，min初始值最大
For i = 0 To 9  'for循环10次
    Randomize  '随机种子
    a(i) = Int(Rnd * 90) + 10  '定义a(i)
的随机值为10-100
    Picture1.Print a(i); '打印每一次的值
    If a(i) > Max Then Max = a(i)  '求出最大值
    If a(i) < Min Then Min = a(i)  '求出最小值
Next i
Picture1.Print  '打印空格
Picture1.Print "最大值为" & Max  '打印最大值
Picture1.Print "最小值为" & Min  '打印最小值
End Sub

以上代码可以在众多数据中快速筛选最大值最小值