在文本框中输入30个学生的成绩,如何用VB编程统计各分数段的人数?

Private Sub Command1_Click()
Dim intCj(1 To 30) As Integer
Dim intE As Integer '<60
Dim intD As Integer '60-69
Dim intC As Integer '70-79
Dim intB As Integer '80-89
Dim intA As Integer '90-100
Dim intTemp As Integer
Dim i As Integer
i = 1
Do While i <= 30
intTemp = InputBox("Please Input No." & i & "Code!")
If intemp < 0 Or temp > 100 Then
MsgBox ("Input Error! Please Retry Input!")
Else
intCj(i) = intTemp
i = i + 1
End If
Loop
For j = 1 To 30
Select Case intCj(j) \ 10
Case Is < 6
intE = intE + 1
Case 6
intD = intD + 1
Case 7
intC = intC + 1
Case 8
intB = intB + 1
Case 9
intA = intA + 1
End Select
Next j
Print "90-100: " & intA