100元素的一维数组中,存放0-100的成绩,分别统计>=90,80~89,70~79,60~69,不及格的个数.VB语

Private Sub Command1_Click()
Dim i As Integer
Dim Num9 As Byte, Num8 As Byte, Num7 As Byte, Num6 As Byte, Numbad As Byte

Dim arrayList(100) As Single

For i = 0 To 99
arrayList(i) = FormatNumber(100 * Rnd(), 1) '随机产生100个0到100的分数
Next

For i = 0 To 99
Select Case arrayList(i)
Case Is >= 90
Num9 = Num9 + 1 '分数90及以上的
Case 80 To 89
Num8 = Num8 + 1 '分数80到89的
Case 70 To 79
Num7 = Num7 + 1 '分数70到79的
Case 60 To 69
Num6 = Num6 + 1 '分数60到69的
Case Is < 60
Numbad = Numbad + 1
End Select
Next

MsgBox "统计结果：" & vbCrLf & "90分及以上的：" & Num9 & "人" & vbCrLf & _
"80-89分的：" & Num8 & "人" & vbCrLf & _
"70-79分的：" & Num7 & "人" & vbCrLf & _
"60-69分的：" & Num6 & "人" & vbCrLf & _
"不及格的：" & Numbad & "人", vbOKOnly, "统计完成"
End Sub
VB6下测试通过.