第７話 ２次元For文実行例
実行結果が
1 2 3
4 5 6
となるプログラム例
Module Module1
Sub Main() '私は社長だ。
Dim i, j As Long 'i,j：制御変数
For i = 0 To 1
For j = 0 To 2
Console.Write("{0:d} ", 3 * i + j + 1)
Next
Console.WriteLine()
Next
End Sub
End Module
1 2 3
4 5 6
を２行３列といいます。
一般には横列も縦列も列といいますが、
数学の世界では横列を行と呼び、縦列を単に列といいます。
プログラミングの世界でも同じです。
さて、コードを
Module Module1
Sub Main() '私は社長だ。
Dim i, j As Long 'i,j：制御変数
For i = 0 To 9
For j = 0 To 9
Console.Write("{0:d} ", 3 * i + j + 1)
Next
Console.WriteLine()
Next
End Sub
End Module
と変更すると、実行結果は
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 18 19 20
21 22 23 24 25 26 27 28 29 30
31 32 33 34 35 36 37 38 39 40
41 42 43 44 45 46 47 48 49 50
51 52 53 54 55 56 57 58 59 60
61 62 63 64 65 66 67 68 69 70
71 72 73 74 75 76 77 78 79 80
81 82 83 84 85 86 87 88 89 90
91 92 93 94 95 96 97 98 99 100
となりますが、本当は実行結果を
としたいところですね。
これを簡単に実現するためには第４講で学ぶIf文を使わなければなりませんが、
If文を使わないでも実現できます。
皆さん考えてみてください。
結構難しいですから、
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 18 19 20
21 22 23 24 25 26 27 28 29 30
31 32 33 34 35 36 37 38 39 40
41 42 43 44 45 46 47 48 49 50
51 52 53 54 55 56 57 58 59 60
61 62 63 64 65 66 67 68 69 70
71 72 73 74 75 76 77 78 79 80
81 82 83 84 85 86 87 88 89 90
91 92 93 94 95 96 97 98 99 100
と役割を分ければ良いのだということをヒントとして出しておきます。
