第６講 配列
第８話 成績一覧表に平均を加える

成績一覧表

実現するプログラム例
Module Module1

　　Sub Main() '私は社長だ。
　　　　'Rnd(-1)
　　　　'Randomize(Timer())
　　　　f()
　　End Sub

　　Sub f()
　　　　Dim a(2, 9, 5) As Integer '配列aの宣言
　　　　Dim h(2, 9) As Single '平均点を収納する箱
　　　　Dim i, j, k As Integer
　　　　'ランダムデータ生成
　　　　For i = 0 To 2
　　　　　　For j = 0 To 9
　　　　　　　　For k = 0 To 4
　　　　　　　　　　a(i, j, k) = Int(Rnd() * 100) + 1
　　　　　　　　Next
　　　　　　Next
　　　　Next
　　　　'行列の表示
　　　　For i = 0 To 2
　　　　　　Console.WriteLine("{0:d}学期", i + 1)
　　　　　　Console.WriteLine ("出席番号 国語 社会 数学 理科 英語 合計 平均")
　　　　　　For j = 0 To 9
　　　　　　　　'出席番号の表示
　　　　　　　　If j + 1 < 10 Then Console.Write("　 {0:d}　　 ", j + 1)
　　　　　　　　If j + 1 >= 10 Then Console.Write("　{0:d}　　 ", j + 1)
　　　　　　　　'以下合計点の算出
　　　　　　　　a(i, j, 5) = 0
　　　　　　　　For k = 0 To 4
　　　　　　　　　　a(i, j, 5) += a(i, j, k)
　　　　　　　　Next
　　　　　　　　'以上合計点算出
　　　　　　　　'平均点の算出
　　　　　　　　h(i, j) = a(i, j, 5) / 5
　　　　　　　　'以下成績表示
　　　　　　　　For k = 0 To 5
　　　　　　　　　　If a(i, j, k) < 10 Then Console.Write("　{0:d}　", a(i, j, k)) '右端をそろえるための半角スペース２個分
　　　　　　　　　　If a(i, j, k) >= 10 And a(i, j, k) < 100 Then Console.Write(" {0:d}　", a(i, j, k)) '右端をそろえるための半角スペース１個分
　　　　　　　　　　If a(i, j, k) >= 100 Then Console.Write("{0:d}　", a(i, j, k))
　　　　　　　　Next
　　　　　　　　'平均点表示
　　　　　　　　Console.Write("{0:f1}", h(i, j))
　　　　　　　　Console.WriteLine() '改行
　　　　　　Next
　　　　　　Console.WriteLine() '改行
　　　　Next
　　End Sub

End Module


以上で配列の学習は終了とします。
第７講ではC言語やC++を大変魅力的なものにしているポインタについて学習します。