Question

用VB语言数组：随机产生20个学生的计算机成绩，并显示。

统计各分数段人数，即0~59、60~69、70~79、80~89、90~100，并显示结果。
【提示】声明一个数组S(5 to 9 )，分别存放各分数段的人数，并且确定分数与S数组的下标关系。

Answer 1

很简单的嘛，新建一个工程，将代码拷入：

Private Sub Form_Click()
Me.AutoRedraw = True
Me.Height = 6000
Me.Cls
Dim S(5 To 9)
For A = 1 To 20
d = Int(Rnd() * 70) + 30
Print A & "号同学分数为：" & d
Select Case d
Case 0 To 59
S(5) = S(5) + 1
Case 60 To 69
S(6) = S(6) + 1
Case 70 To 79
S(7) = S(7) + 1
Case 80 To 89
S(8) = S(8) + 1
Case 90 To 100
S(9) = S(9) + 1
End Select
Next
Print " "
Print "成绩分类统计如下："
For A = 5 To 9
If A = 5 Then
b = "0至" & A * 10 + 9
Else
b = A * 10 & "至" & A * 10 + 9
End If
If Len(S(A)) < 1 Then S(A) = 0
Print b & "分数段有学生" & S(A) & "名"
Next
End Sub

运行后，每单击一次窗体就会有一次新的数据