例6.3分别计算5个学生和3门课的平均分 某学习小组有5名学生,成绩如表6.1所示 分析:用一个二维数组a(5,3)来描述。程序中设置两重循 环,用以实现每行和每列上的累加。本例采用赋值语句来输 入学生成绩,并采用 Print直接在窗体上输出结果 求5个学生的平均分 数学 英语 计算机 下标使用情况 学生169a(1,1)89a(1,2)74a(1,3)r=1c=1,2,3 学生294a,1)80a2,2)90a,3)r=2c=1,2,3 学生357a(3,1)|62a(3,2)73a(3,3) 3c=1,2,3 学生498a( 94a(4,2)90a(4,3)r=4c=1,2,3 学生573a 76aG5,2)63a5,3)r=5c=1,2,3
例6.3 分别计算5个学生和3门课的平均分 某学习小组有5名学生，成绩如表6.1所示 分析：用一个二维数组a(5, 3)来描述。程序中设置两重循 环，用以实现每行和每列上的累加。本例采用赋值语句来输 入学生成绩，并采用Print直接在窗体上输出结果 r=1 c=1, 2, 3 r=2 c=1, 2, 3 r=3 c=1, 2, 3 r=4 c=1, 2, 3 r=5 c=1, 2, 3 求5个学生的平均分 下标使用情况
例6 63 Option base 1 Private Sub Form Load Dim a(5, 3)As Integer Dim rAs Integer,c As Integer,s As Integer k= Array("数学","英语","计算机") 输入课程名 a(1,1)=69:a(1,2)=89:a(1,3)=74 输入学生成绩 a(2,1)=94:a(2,2)=80:a(2,3)=90 a(3,1)=57:a(3,2)=62:a(3,3)=73 a(4,1)=98:a(4,2)=94:a(4,3)=90 (5,1)=73:a(5,2)=76:a(5,3)=63
Option Base 1 Private Sub Form_Load() Dim a(5, 3) As Integer Dim r As Integer, c As Integer, s As Integer k = Array("数学", "英语", "计算机") '输入课程名 a(1, 1) = 69: a(1, 2) = 89: a(1, 3) = 74 '输入学生成绩 a(2, 1) = 94: a(2, 2) = 80: a(2, 3) = 90 a(3, 1) = 57: a(3, 2) = 62: a(3, 3) = 73 a(4, 1) = 98: a(4, 2) = 94: a(4, 3) = 90 a(5, 1) = 73: a(5, 2) = 76: a(5, 3) = 63 例6.3
Show Print"课程","平均分 Print"学生","平均分“ Print String(20, - 输出20个减号“”Forc=1To3 Print String (20, -" s=0 Forr=1 To 5 Forr= 1 To 5 0 累加前清0 累加同一列数据 For c= 1 To 3 s=s+a(r c) 累加同一行数据 Next r s=(r, Print k(c), Format(s /5, ##.0") Next c Next c Printr, Format(s /3,"##0")End Sub Next r Print
Show Print "学生", "平均分“ '输出20个减号“-” Print String(20, "-") For r = 1 To 5 s = 0 '累加前清0 For c = 1 To 3 '累加同一行数据 s = s + a(r, c) Next c Print r, Format(s / 3, "##.0") Next r Print Print "课程", "平均分" Print String(20, "-") For c = 1 To 3 s = 0 For r = 1 To 5 '累加同一列数据 s = s + a(r, c) Next r Print k(c), Format(s / 5, "##.0") Next c End Sub
程序运行结果 For1 生 平均分 77.3 88.0 2345 64.0 94.0 70.7 课程 平均分 学 78.2 英语 80.2 计算机 78.0 ★
程序运行结果