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

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

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),