Visual Basic
Module Module1 Sub Main() Dim i As Integer Console.WriteLine("レベル1-1") For i = 1 To 100 If i Mod 3 = 0 Then Console.Write(i) Console.Write(" ") End If Next Console.WriteLine() Console.WriteLine() Console.WriteLine("レベル1-2") For i = 3 To 100 Step 3 Console.Write(i) Console.Write(" ") Next Console.WriteLine() Console.WriteLine() ' コンソールウィンドウが閉じないようにする Console.WriteLine("Enterキーを押すと終わります") Console.ReadLine() End Sub End Module