Как дать возможность снова запустить программу

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 Loop здесь.