食品输送过程吸杂质:有关计算机的一点问题

来源：百度文库编辑：查人人中国名人网时间：2024/04/30 05:40:38

我是用VB编程的，
题目如下：
随机产生20个学生的计算机课程的成绩，并显示。统计各分数段的人数，即0-59，60-69，70-79，80-89，90-100。并显示结果。
下面是我做的，可是就是不能运行出来。请指出问题所在
Private Sub Form_click()
Dim s%(), n1%, n2%, n3%, n4%, n5%
ReDim s(20)
For i = 1 To 20
s(i) = Int(Rnd() * 101)
Print s(i);
n1 = 0: n2 = 0: n3 = 0: n4 = 0: n5 = 0
If s(i) >= 1 And s(i) <= 59 Then
n1 = n1 + 1
ElseIf s(i) >= 60 And s(i) <= 69 Then
n2 = n2 + 1
ElseIf s(i) >= 70 And s(i) <= 79 Then
n3 = n3 + 1
ElseIf s(i) >= 80 And s(i) <= 89 Then
n4 = n4 + 1
ElseIf s(i) >= 90 And s(i) <= 100 Then
n5 = n5 + 1
End If

Next i
Print
Print
Print n1; n2; n3; n4; n5
End Sub

有可能是软件的事,建议你重新安装一下.

有关计算机的一点问题计算机的一点问题有关计算机的问题有关计算机的问题有关计算机的问题有关计算机的问题！有关计算机帐户的问题有关计算机等级的问题^-^ 有关于计算机的问题有关计算机断电的问题