如何提供再次运行程序的选项

Question

如何创建一个循环，以便程序为用户提供再次运行它的选项？ 选项可能如下：“再次运行程序输入'y'，退出'n'”

Answer 1

像这段代码片段应该可以完成这项工作。

Sub Main()
    Dim retry As String
    Dim boolRetry As Boolean
    Do
        Console.WriteLine("Do something")
        'Your processes should be here...

        Do
            Console.WriteLine("To run the programme again enter 'y', to exit enter 'n'")
            retry = Console.ReadLine()
            boolRetry = IIf(retry = "y", True, False)
        Loop While (retry <> "y" And retry <> "n")
    Loop While (boolRetry)
End Sub

也可以使用其他类型的循环，但我更喜欢在这里使用Do循环。