作业帮 > 综合 > 作业

设计VB程序:随机产生20个取值范围在0-100之间成绩,要求每行显示10个成绩,统计最大最小值,计算平均值

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/06/08 23:18:53
设计VB程序:随机产生20个取值范围在0-100之间成绩,要求每行显示10个成绩,统计最大最小值,计算平均值
Private Sub Command1_Click()
Dim i, max, min, sum, a(100) As Integer
Randomize
For i = 1 To 100
a(i) = Int(Rnd * 101)
If i = 1 Then min = a(i): max = a(i)
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
sum = sum + a(i)
Print a(i);
If i Mod 10 = 0 Then Print
Next
Print "最高分:"; max
Print "最低分:"; min
Print "平均分:"; sum / 100
End Su