vb最值获取（擂台法）

提醒：本文最后更新于 2023-09-29 18:07，文中所关联的信息可能已发生改变，请知悉！

任务要求

我们用随机数生成 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

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