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

Question

分别统计90~100
80~89
70~79
60~69
60以下
超过0~100则输出"输入错误"

Answer 1

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
Print "80-89: " & intB
Print "70-79: " & intC
Print "60-69: " & intD
Print "<60: " & intE
End Sub本回答被提问者采纳