第3講 繰り返し処理For文
第8話 10行10列を整列させる
実行結果
を実現するプログラム例
Module Module1
Sub Main() '私は社長だ。
Dim i, j As Long 'i,j:制御変数
For i = 0 To 8
Console.Write(" {0:d} ", i + 1)
Next
Console.WriteLine ("10")
For i = 1 To 8
For j = 0 To 9
Console.Write("{0:d} ", 10 * i + j + 1)
Next
Console.WriteLine() '改行
Next
For i = 0 To 7
Console.Write("{0:d} ", i + 91)
Next
Console.WriteLine ("99 100")
End Sub
End Module
難しかったでしょう。
でも頭の体操になったと思いませんか。
前話でif文を使えば簡単にできると申し上げましたが、
どっちにしろ頭は使います。
今回のように場合に分けられなければ、
if文でも実現は不可能です。
さて、第3講を終了してif文の学習に進むことにしましょう。