Question

Vb程序编写题

设某班共10名学生，为了评定某门课程的奖学金，按照规定超过全班平均成绩10%者发给一等奖，超过全班成绩5%者发给二等奖。试编写程序，输出应获奖学金的学生名单（包括姓名、学号、成绩、奖学金等级）。

Answer 1

Private Type Student
Name as String
ID as Short
Score as Single
End Type
'把以下代码放在事件中,如按钮的点击事件中
Dim Students(10) as Student
Dim Total as Single
Dim Average as single
Dim i as long
With Students(1)
.Name = "张三"
.ID = 1
.Score = 97
End with
.
. '用同样的方法初始化Students(2 - 10)
.
Total = 0
For i = 1 to 10
Total = Total + Students(i).Score
next i
Average = Total/10
For i = 1 to 10
If (Students(i) - Average)/Average >= 0.1 then
Print Students(i).Name,Students(i).ID,Students(i).Scrore,"一等"
elseif (Students(i) - Average)/Average >= 0.05 then
Print Students(i).Name,Students(i).ID,Students(i).Scrore,"二等"
End If
Next i