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

成績一覧表
001
実現するプログラム例
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)) '右端をそろえるための半角スペース2個分
          If a(i, j, k) >= 10 And a(i, j, k) < 100 Then Console.Write(" {0:d} ", a(i, j, k)) '右端をそろえるための半角スペース1個分
          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


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



第7話へ   第7講第1話へ

002

初心者のための excel 2016 マクロ VBA 入門講義 基礎から応用まで
vc++ c言語 c++ 入門 初心者 基礎から応用まで
eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門

数独のシンプルな解き方・簡単な解法の研究
VB講義へ
VB講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座
初心者のための世界で一番わかりやすいVBA入門講義(基礎から応用まで)
初心者のための VC++による C言語 C++ 入門 基礎から応用まで第1部
eclipse java 入門
java 入門 サイト 基礎から応用まで
本サイトトップへ