For Next 二重ループ サンプル [VB 2010]

For Next で九九の結果を表示

For Next の2重ループを使って、掛け算の九九の結果を表示するプログラムを作成します。

Console.Writeは、同じ行に続けて表示したいときに使います。Console.WriteLineと違って、改行しません。

Module Module1

    Sub Main()
        ' 九九表のタイトル表示
        Console.WriteLine("*** 九九表 ***")
        Console.WriteLine()    ' 改行
        Console.Write("            ")    ' 調整用空白
        For i As Integer = 1 To 9
          Console.Write(" X" & i)
        Next
        Console.WriteLine()    ' 改行

        ' 九九を二重ループを使って計算
        For j As Integer = 1 To 9
            Console.Write(j & "のだん --> ")
            For k As Integer = 1 To 9
                ' 九九計算と表示
                Console.Write("{0,3:#0}", j * k)
            Next
            ' 各段終了時に改行
            Console.WriteLine()
        Next
    End Sub

End Module

Console.Write(("{0,3:#0}"), i * j)の {0,3:ｄ} は、書式指定文字列と呼ばれ、演算結果をいろいろ形式で表示するために使います。

{0,3:ｄ}は、1番のデータ i * j を、3桁右詰の10進数で表示（1桁や2桁のときは、残りは空白）します。

書式指定文字列についてはこちらからどうぞ

• 標準数値書式指定文字列
• カスタム数値書式指定文字列

実行結果は次のようになります。

次回は、For Each Next についてに説明します。