module1.vb

来自「编程之道VB.NETt程序设计入门-589M.zip」· VB 代码 · 共 31 行

Module Module1

    Sub Main()
        Dim iCounter As Integer
        For iCounter = 1 To 5
            Console.WriteLine("第1个循环执行第" & iCounter & "次")
        Next
        Console.WriteLine("跳出第1个循环！")
        Console.ReadLine()

        Dim bContinue As Boolean = True
        Do While bContinue
            Console.WriteLine("继续执行第2个循环？")
            If (Console.ReadLine() = "no") Then bContinue = False
        Loop
        Console.WriteLine("跳出第2个循环！")
        Console.ReadLine()

        Dim iAnswer As Integer
        Console.WriteLine("2的10次方等于几？")
        Do
            iAnswer = Integer.Parse(Console.ReadLine())
        Loop Until iAnswer = 1024
        Console.WriteLine("正确！")
        Console.WriteLine("跳出第3个循环！")

        Console.ReadLine()
    End Sub

End Module