Question

VB编程题~~急~高手帮忙做下啊

周日考试要考的题目~~~
麻烦哪位高手帮忙做下~~~谢谢啊！！！
设某学校某班共10名学生，为了评定某门课程的奖学金，按规定超过全班平均成绩10%者发给一等奖，超过全班成绩5%者发给二等奖。试编制程序，按照从大到小的顺序输出应获奖学金的学生名单（包括姓名、 成绩、 奖学金等级 ）

Answer 1

Private Sub Command1_Click()
Dim A(1 To 10) As Single, S As Single, N(1 To 10) As String
For i = 1 To 10
Do
N(i) = InputBox("请输入第" & i & "位同学的姓名：")
Loop While Len(N(i)) = 0
Do
A(i) = Val(InputBox("请输入" & N(i) & "同学的成绩,必须>=0且<=100"))
Loop While A(i) < 0 Or A(i) > 100
S = S + A(i)
Next
Cls
Print "全班平均分为：" & S / 10
For i = 1 To 10
For j = i + 1 To 10
If A(i) < A(j) Then
t = A(i)
A(i) = A(j)
A(j) = t
N(i) = N(i) & N(j)
N(j) = Left(N(i), Len(N(i)) - Len(N(j)))
N(i) = Right(N(i), Len(N(i)) - Len(N(j)))
End If
Next
Next

For i = 1 To 10
Print N(i), A(i),
If A(i) > S * 1.1 / 10 Then
Print "得一等奖学金"
ElseIf A(i) > S * 1.05 / 10 Then
Print "得二等奖学金"
Else
Print "没有奖学金"
End If
Next

End Sub