vb 利用随机函数产生10个1~100之间的随机数,显示出最大值最小值,平均值
最新回答
墨城
2025-06-27 05:51:40
Private Sub Form_Click()
Dim a(9) As Integer, max As Integer, min As Integer, arg As Single, i As Integer
Randomize
For i = 0 To 9
a(i) = Int(Rnd * 100) + 1
arg = arg + a(i)
If i = 0 Or a(i) > max Then max = a(i)
If i = 0 Or a(i) < min Then min = a(i)
Print a(i);
Next
Print "最大值："; max
Print "最小值："; min
Print "平均值："; arg / 10
End Sub
热门标签
