第８話 ２次元ループ
では、準備ができましたのでいよいよプログラム上から、
２次元上にデータを入れたり、列合計、行合計、行平均などを計算させて見ましょう。
（赤い囲いは、説明のために入れたもので実際のソフトのWindow上にはありません。）
エクセルのようにＡ列の１行目のセルをＡ１を表すことにしましょう。
Ａ１は上図の選択セル（青いセル）です。
Ｄ１にデータを入れるときは、
DataGridView1(3,0).Value ="合計 "
とします。ＶＢＡの経験者なら、Ｃｅｌｌｓを思い浮かべるでしょうが、
違いが２点あります。行と列が反対ということと、DataGridView1(*,*)の始まりが０であるのに対して
Cells（*,*）の方は１から始まります。
つまり、DataGridView1(3,0)に対応するのはCells(1,4)です。
Ａ１はDataGridView1(0,0)に対応します。Ａ１は1列目1行目を意味していますから、
そこから1引くとDataGridView1になります。0から始まるからです。
エクセル場合は、A１（1列目1行目）がCells(1行目,1列目）と逆になっているので慣れるまで頭が混乱します。
DataGridViewの場合はA１（1列目，1行目）が(０列目，０行目)ですから、列行はその順で対応していますが、
一番最初を１ではなく０と数えるため１個ずれるのです。
Cellsになれた方は、逆順なのでしばらくは頭が混乱してしまうのは仕方がありません。
Cellsで一回頭が混乱し、再びDataGridViewで頭が混乱します。
さて、『.』は『の』でした。Valueはなんでしょうか。値です。
この値は、エクセルのシートのように数字でも文字でも入れられます。
文字を入れるときは""で囲うのは、文字の変数に文字を入れるときと同じです。そして、これはエクセルと同じです。
B2に数字4を入れるには、DataGridView1(1,1).Value =4です。
さて、ここの学習のメインは、
のように2次元（平面すなわち縦と横の２方向）データをどう入れるかです。また、1行の行合計の計算は1次元（直線＝１方向））ですが、３行の処理となると横の処理に縦処理が加わりますから、
やはり２次元処理です。
２次元（縦と横の２方向）処理を行うのが、この話のメインテーマである２次元ループです。
２次元ループは、For文を入れ子式に入れることによって実現します。
では、順にプログラミングしていきましょう。
まず、
のように行を追加するプログラムからです。
実行ボタンをダブルクリックして、
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, j As Integer, w As Integer
'６行追加
For i = 1 To 6
DataGridView1.Rows.Add()
Next
End Sub
End Class
とプログラミングして、Ｆ５を押しましょう。
６行追加に成功したことがわかります。
DataGridView1.Rows.Add()は１行追加の命令です。
Rowsは行です。
そして、Addが追加の命令です。
Fｏｒ文で６回繰り返すので、６行追加されるわけです。
では、皆さん１行目のＤ１、Ｅ１に合計、平均を入れるコードを加えてください。
答えは、３０行下です。
解答例
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, j As Integer, w As Integer
'６行追加
For i = 1 To 6
DataGridView1.Rows.Add()
Next
'１行目に列表題を入れる。
DataGridView1(3, 0).Value = "合計 "
DataGridView1(4, 0).Value = "平均 "
End Sub
End Class
次に、
Ａ５，Ａ６に合計、平均と入れるコードを加えてください。解答例は、３０行下。
解答例
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, j As Integer, w As Integer
'６行追加
For i = 1 To 6
DataGridView1.Rows.Add()
Next
'１行目に列表題を入れる。
DataGridView1(3, 0).Value = "合計 "
DataGridView1(4, 0).Value = "平均 "
'５行目,６行目に行表題を入れる。
DataGridView1(0, 4).Value = "合計 "
DataGridView1(0, 5).Value = "平均 "
End Sub
End Class
次にいよいよ、２次元データ
の入力です。これはいきなり、考えてくださいといっても無理ですからプログラミング例を表示してから解説します。
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'変数の宣言
Dim i As Integer, j As Integer, w As Integer
'６行追加
For i = 1 To 6
DataGridView1.Rows.Add()
Next
'１行目に列表題を入れる。
DataGridView1(3, 0).Value = "合計 "
DataGridView1(4, 0).Value = "平均 "
'５行目,６行目に行表題を入れる。
DataGridView1(0, 4).Value = "合計 "
DataGridView1(0, 5).Value = "平均 "
'２次元データを入力
For i = 1 To 3
For j = 1 To 2
DataGridView1(j, i).Value = 2 * i + j + 1
Next
Next
End Sub
End Class
ピンクの部分が２次元ループです。For文が入れ子式に入っています。
入れ子式に２重なら２次元、入れ子式に３重なら３次元、入れ子式に４重なら４次元というわけです。
因みに私の作った数独問題作成ソフトは、場合によっては２万次元ループを遙かに超えています。
魔方陣作ソフトによっては、軽く１００万次元を超えているものもあります。
DataGridView1(j,i)のｊは列、ｉは行に対応しています。
２次元だとトレースもかなり難しくなりますが、
トレースしてみましょう。
ｊとｉは次の表の紺の数字の通りに動いていきます。
B2は４となります。
