Question

急求一道VB编程题答案,谢谢,统计某班计算机成绩

1使用一个数组存放成绩,班级人数为35
2使用InputBox函数,从键盘输入每一位同学的分数,当输入的分数<0 , >100时,拒绝接收.
3在输入分数的同时,统计出优秀(>=90),优良(>=80),中等(>=70),及格(>=60),不及格(<60)的人数
4在窗体上输出优\良\中\及格和不及格的人数及全班的平均成绩
可以简要回答,把关键的地方说一下(例如用什么函数),谢谢

Answer 1

'窗体autoredraw=true，加一个command
Dim str(1)
Dim you, liang, zhong, jige, no, i
Private Sub Command1_Click()
Static up
'you = 0: liang = 0: zhong = 0: jige = 0: no = 0: i = 0
E:
a = InputBox("输入成绩")
If a < 0 Or a > 100 Then
MsgBox "成绩输入错误"
GoTo E
Else
If a >= 90 Then
you = you + 1
ElseIf a >= 80 Then
liang = liang + 1
ElseIf a >= 70 Then
zhong = zhong + 1
ElseIf a >= 60 Then
jige = jige + 1
ElseIf a < 60 Then
no = no + 1
End If
If i > 1 Then MsgBox "人数超过上限": End

str(i) = a
up = up + str(i)
i = i + 1
End If
up = up / i
Print "优秀" & you & "优良" & liang & "中等" & zhong & "及格" & jige & "不及格" & no
Print "平均分" & up
End Sub

Answer 2

这个比较简单，但是麻烦，20分 估计没人做