Question

10个同学参加测试,分数为A,B,C,D,E五个等级,如果A计5分,B计4分,以此类推,求这10个

Private Sub command1_Click()
Dim i%, n%, mark$, aver!
For i = 1 To 10
mark = InputBox("请输入成绩")
Select Case UCase(mark)
Case "A": n = n + 5
Case "B": n = n + 4
Case "C": n = n + 3
Case "D": n = n + 2
Case "E": n = n + 1
Case Else: n = n + 0
End Select
Next
aver = n / 10
Print "平均为："; aver
End Sub
不知道为什么平均值一直为零，求解答，求改正
这是个算平均数的题目，大标题写错了

Answer 1

不会呀,我调试过能输出正确的结果.
你的 调试有问题,你可能不是输入 ABCDE 等字母,而是输入了12345