Private Sub Command1_Click()
'随机生成10个数作为成绩
Dim max, min, pj, a(1 To 10)
pj = 0
max = 0
min = 100
Randomize
Print "产生的10个数为：";
'找出最大和最小成绩
For i = 1 To 10
a(i) = Int(Rnd(1) * 90 + 10)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
pj = pj + 0.1 * a(i)
Print a(i);
Next i
Print
Print "最大数为：", max
Print "最小数为：", min
Print "平均数为：", pj
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024