UC知道请帮我编一个VB的程序
来源：百度知道 编辑：UC知道 时间：2024/05/15 19:46:45
请帮我编一个VB的程序，题目是：设某班有60名学生，期末考试共有5门课程．请设计一个程序评定学生获得一，二等奖学金．打印输出获得奖学金学生的学号和每门课程的成绩．（奖学金评定标准是超过全班总平均成绩％20的学生获得一等奖学金．超过全班总平均成绩10%的获得二等奖学金）
Private Sub Form_click()
Dim avcj As Single
Dim cj(1 To 60, 1 To 5) As Single, acj(1 To 60) As Single, xh(1 To 60) As String
'将60个学生的学号存入xh(1 to 60中)，各科成绩存于cj()
'如第一个学生xh(1)="000123", cj(1,1)代表第一科成绩，cj(1,2)代表第二科成绩,……
'acj(i)表示第i个学生的平均成绩
'
' 在此依次输入各学号和成绩
'
avcj = 0
For i = 1 To 60
acj(i) = 0
For j = 1 To 5
acj(i) = cj(i, j) + acj(i)
avcj = avcj + cj(i, j)
Next
acj(i) = acj(i) / 5 '计算每个人的平均成绩
Next
avcj = avcj / (60 * 5) '计算全班平均成绩
For i = 1 To 60
If (acj(i) - avcj) / avcj > 0.2 Then
Print "该学生学号为"; xh(i), "平均成绩为"; acj(i), "获一等奖学金"
ElseIf (acj(i) - avcj) / avcj > 0.1 Then
Print "该学生学号为"; xh(i), "平均成绩为"; acj(i), "获二等奖学金"
End If
End Sub