2次元配列の初期化 [VB 2010]

初期化は簡単

2次元配列の初期化も1次元配列と同様に、宣言と同時に行うことができます。簡単な2番目のほうをおすすめします。

  ' 整数2次元配列変数の初期化
  Dim nedan(,) As Integer = New Integer(,) {{50, 80}, {105, 70}}
  ' または
  Dim nedan(,) As Integer = {{50, 80}, {105, 70}}

2次元配列の上限の添え字は記述できません。初期値は{}の中に、{}をカンマ[,]で区切って指定します。上の例を代入で書くと、次のようになります。

  Dim nedan(1, 1) As Integer
  nedan(0, 0) = 50
  nedan(0, 1) = 80
  nedan(1, 0) = 105
  nedan(1, 1) = 70

2次元配列変数を使って、各列の平均値を計算するプログラムを作成します。たとえば、ひとりの生徒の国語の点数が80点、算数が95点、理科が90点の場合、配列を使って{80, 95, 90}とすれば、人数分のデータを保管できます。配列の初期化は1行が長くなるので、_で改行しています。

Module Module1
 
    Sub Main()
        ' 生徒数
        Dim Seitosu As Integer = 5
        ' 科目数
        Dim Kamokusu As Integer = 3
        ' 成績の2次元配列変数の初期化{国語, 算数, 理科}
        Dim seiseki(,) As Integer = {{75, 85, 90}, _ 
                                    {100, 80, 80}, _ 
                                    {90, 90, 90}, _ 
                                    {65, 90, 80}, _ 
                                    {80, 85, 100}} 
        ' 合計値の2次元配列変数の宣言
        Dim goukei(0, 2) As Integer
        ' 平均値の2次元配列変数の宣言（データ型に注意）
        Dim heikin(0, 2) As Double
        ' 各科目合計を求める
        For i As Integer = 0 To Seitosu - 1
            goukei(0, 0) = goukei(0, 0) + seiseki(i, 0)
            goukei(0, 1) = goukei(0, 1) + seiseki(i, 1)
            goukei(0, 2) = goukei(0, 2) + seiseki(i, 2)
        Next
        ' 平均値の計算と表示
        For j As Integer = 0 To Kamokusu - 1
            heikin(0, j) = goukei(0, j) / Seitosu  
            Console.Write("heikin(0, " & j & ") = ")
            Console.WriteLine(heikin(0, j))
        Next
    End Sub

End Module

次回からは、Function プロシージャ について勉強します。