Question

急！VB题，在线等答案！

'从键盘输入学生分数，统计学生总人数和各分数段人数，
'即优秀（90-100）、良好（80-89）、中等（70-79）、
' 及格（60-69）、不及格（60以下）的人数。

Private Sub Form_Click()
Dim score%, n1%, n2%, n3%, n4%, n5%
msg = "请输入分数（-1结束）"
msgtitile = "输入数据"
score = Val(InputBox(msg, msgtitle))
'**********SPACE**********
While 【?】
total = total + 1
'**********SPACE**********
Select Case 【?】
Case Is >= 90
n1 = n1 + 1
Case Is >= 80
n2 = n2 + 1
Case Is >= 70
n3 = n3 + 1
Case Is >= 60
n4 = n4 + 1
Case Else
n5 = n5 + 1
'**********SPACE**********
【?】
score = Val(InputBox(msg, msgtitle))
Wend
Print n1, n2, n3, n4, n5, total
End Sub

删除【？】，填上答案，谢谢、

Answer 1

第一个
第二个 score
第三个 End select

Answer 2

While score<>-1
Select Case score
end select

Answer 3

第一个score<>-1
第二个 score
第三个 End select

Answer 4

Private
Sub
Form_Click()
Dim
score%,
n1%,
n2%,
n3%,
n4%,
n5%
msg
=
"请输入分数（-1结束）"
msgtitile
=
"输入数据"
score
=
Val(InputBox(msg,
msgtitle))
'**********SPACE**********
While
score
<>
-1
total
=
total
+
1
'**********SPACE**********
Select
Case
score
Case
Is
>=
90
n1
=
n1
+
1
Case
Is
>=
80
n2
=
n2
+
1
Case
Is
>=
70
n3
=
n3
+
1
Case
Is
>=
60
n4
=
n4
+
1
Case
Else
n5
=
n5
+
1
'**********SPACE**********
End
Select
score
=
Val(InputBox(msg,
msgtitle))
Wend
Print
n1,
n2,
n3,
n4,
n5,
total
End
Sub

Answer 5

Private Sub Form_Click()
Dim score%, n1%, n2%, n3%, n4%, n5%
msg = "请输入分数（-1结束）"
msgtitile = "输入数据"
score = Val(InputBox(msg, msgtitle))
'**********SPACE**********
While score <> -1
total = total + 1
'**********SPACE**********
Select Case score
Case Is >= 90
n1 = n1 + 1
Case Is >= 80
n2 = n2 + 1
Case Is >= 70
n3 = n3 + 1
Case Is >= 60
n4 = n4 + 1
Case Else
n5 = n5 + 1
'**********SPACE**********
End Select

score = Val(InputBox(msg, msgtitle))
Wend
Print n1, n2, n3, n4, n5, total
End Sub