UC知道VB程序设计题（高手帮着做一下啊，是两个简单题）
来源：百度知道 编辑：UC知道 时间：2024/05/30 13:33:05
公选课老师出了两个题，作为考试成绩，还让我们写在纸上交上去。
高手帮帮忙。一定不要乱写，要保证对，这可是考试成绩啊！！
1.设某学校某班共10名学生，为了评定某门课程的奖学金，按规定超过全班平均成绩10%者发给一等奖，超过全班成绩5%者发给二等奖。试编制程序，输出应获奖学金的学生名单（包括姓名、 学号、 成绩、 奖学金等级 ）
2.将一个包含10位学生成绩的数组平均分数从大到小排序，然后显示排序结果。
就这两个题，一定要写详细，因为要写在纸上交的，谢谢了！
高手帮帮忙。一定不要乱写，要保证对，这可是考试成绩啊！！
1.设某学校某班共10名学生，为了评定某门课程的奖学金，按规定超过全班平均成绩10%者发给一等奖，超过全班成绩5%者发给二等奖。试编制程序，输出应获奖学金的学生名单（包括姓名、 学号、 成绩、 奖学金等级 ）
2.将一个包含10位学生成绩的数组平均分数从大到小排序，然后显示排序结果。
就这两个题，一定要写详细，因为要写在纸上交的，谢谢了！
////////第一题，把代码复制就可以了///////
Private Sub Form_Click()
Cls
Dim a(1 To 10) As String '学生姓名
Dim b(1 To 10) As Integer '学生学号
Dim c(1 To 10) As Single '学生成绩
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个学生姓名：")
b(i) = InputBox("请输入第" & i & "个学生学号：")
c(i) = InputBox("请输入第" & i & "个学生成绩：")
sum = sum + c(i)
record = record & "姓名：" & a(i) & Space(5) & "学号：" & b(i) & Space(5) & "成绩：" & c(i) & vbCrLf
Next i
p = Val(sum) / 10
Print record
Print "平均成绩为：" & p
For i = 1 To 10
If c(i) > 1.1 * p Then record1 = record1 & "姓名：" & a(i) & Space(5) & "学号：" & b(i) & Space(5) & "成绩：" & c(i) & vbCrLf '一等奖
If c(i) > 1.05 * p And c(i) <= 1.1 * p Then record2 = record2 & "姓名：" & a(i) & Space(5) & "学号：" & b(i) & Space(5)