Visual Basic Console应用程序只循环一次

Question

这里的一切都是新的，当我发现我的程序只循环一次时，我正在摆弄VB 2012。如果你能帮忙，我将不胜感激。

Module Module1
    Dim i As Integer = 0
    Sub Main()
        While i < 3
            i = i + 1
            Console.WriteLine(i)
            Console.ReadLine()
        End While
        End
    End Sub
End Module

编辑:是的，这里的人是对的，用那个代码是不可能的，所以我又瞎折腾了一下，想出了一个解决方案

Module Module1
    Dim i As Integer = 0
    Sub Main()
        While i < 3
            i = i + 1
            Console.WriteLine(i)
            System.Threading.Thread.Sleep(1000)
        End While
    End Sub
End Module

Answer 1

为什么要多放End ?你确定那不是罪魁祸首吗?

While i < 3
    i = i + 1
    Console.WriteLine(i)
    Console.ReadLine()
End While
End  <-- not required.