利用一维数组，统计一个班10名学生成绩0~59，60~69，70~79，80~89，90~100各分数段的人数。要求：

Question

（1）用Option Base 1定义数组下界。
（2）学生成绩通过随机函数Rnd产生，先输出同学成绩（每行5个），后输出统计结果。
(3) 求出最高分和最低分

Answer 1

Option Base 1

Private Sub Form_Click()
Dim stu(10), num(0 To 10) As Integer
Print "学生成绩为："
For i = 1 To 10
stu(i) = Int(Rnd * 100)
Print stu(i);
n = n + 1
If n Mod 5 = 0 Then Print
x = stu(i)
Select Case x
Case 100 To 100
num(x \ 10) = num(x \ 10) + 1:
Case 90 To 99
num(x \ 10) = num(x \ 10) + 1
Case 80 To 89
num(x \ 10) = num(x \ 10) + 1
Case 70 To 79
num(x \ 10) = num(x \ 10) + 1
Case 60 To 69
num(x \ 10) = num(x \ 10) + 1
Case Else
num(5) = num(5) + 1
End Select
Next i
Print "统计"
For j = 5 To 10
Print j * 10; "之间分数的人数个数" & num(j)
Next j
Max = stu(1): Min = stu(1)
For i = 1 To 10
If stu(i) > Max Then Max = stu(i)
If stu(i) < Min Then Min = stu(i)
Next i
Print "最小分数为："; Min
Print "最大分数为："; Max
End Sub追问

谢谢了！

追答

你客气，你记得采用采纳我才有份噻~呵呵