UC知道VB程序编写求助
来源：百度知道 编辑：UC知道 时间：2024/05/12 12:14:46
建立一个二维数组来存放50个学生的5门课程的成绩，先输入50个学生的5门课程成绩，算出每人的平均分并显示，求这个班的每门课程的平均分并显示。
Option Base 1
Dim StudentsScore(1 To 50,1 To 5) As Single
Dim Score(1 To 50) As Single '学生总平均分
Dim SubjectScore(1 To 5) As Single '每门课班级平均分
Private Sub Jisuan()
Dim i,j As Integer
Dim Sum As Single
... '输入
For i = 1 To 50
For j = 1 To 5
Sum = Sum + StudentsScore(i,j)
Next
Score(i) = Sum / 5
Sum = 0
Print "第" & i & "学生的平均分是：" & Score(i)
Next
For j = 1 To 5
For i = 1 To 50
Sum = Sum + StudentsScore(i,j)
Next
SubjectScore(j) = Sum / 50
Print "第" & j & "种课程的平均分是：" & SubjectScore(j)
Sum = 0
Next
双循环