Question

vb题目，求解答

Answer 1

Private Sub Command1_Click()
a = 0
B = 0
C = 0
D = 0
For i = 1 To 20
x = Val(InputBox("请输入第" & i & "个学生的成绩："))
Print x;
Select Case x
Case Is >= 90: a = a + 1
Case Is >= 80: B = B + 1
Case Is >= 60: C = C + 1
Case Else: D = D + 1
End Select
Next i
Print
Print "优：" & a & vbCrLf & "良：" & B & vbCrLf & "及：" & C & vbCrLf & "不及：" & D
MsgBox ("优：" & a & vbCrLf & "良：" & B & vbCrLf & "及：" & C & vbCrLf & "不及：" & D)
End Sub

Answer 2

定义四个整数变量a,b,c,d用于保存四个级别成绩的人数。在窗体上创建一个文本框，用于接收输入的成绩。四个标签用于显示不同级别成绩的人数。
编写文本框的键盘事件，首先检测用户输入的数据并保存在一个静态变量中，检测是否按了回车键，如果按了了回车键，要检测静态变量中的数据是否有效，如果有效，把该变量转换成数值，然后通过select case进行选择是不同的成绩分别统计。直到20个成绩输完，再显示最终结果。

追问

帮我看看

我输出出来有问题

我是用input box

然后输出窗体

第二张是

第一张不是

追答

我是用手机答的题，看不到你的运行情况。