求救啊vb的题

来源：百度知道 编辑：UC知道 时间：2024/05/03 00:43:49
求救啊
利用随机函数产生20个50~100范围内的随机整数，显示他们的最大值，最小值和平均值。

Private Sub Command1_Click()
Dim a As Integer
a = Int(Rnd * 51 + 50)
Max = 0
Min = 100
Sum = 0
For i = 1 To 20
Print a;
If a > Max Then Max = a
If a < Min Then Min = a
Sum = Sum + a

If i Mod 10 = 0 Then '一行多少个数，这个为一行10个数
Print
End If
Randomize '激活随机种子
a = Int(Rnd * 51 + 50)

Next i
everage = Sum / 20

Print "min" & "="; Min, "max" & "="; Max, "everage" & "="; everage
End Sub

呵呵。。
用百度呀。搜索一下就出来了
第一步:搜索随机数的生成方法
第二步：求最值。
不知道用不用排序。好久没研究这样的题目了。
不过排序一定要学的。很有用的。快速排序就好用。

50+int(rnd*50)

太简单了 我都不好意思说了