VB.Net Tutorial/Statements/Do Loop Until

Материал из VB Эксперт
Перейти к: навигация, поиск

Using Do/Loop Until repetition structure

Module Tester
   Sub Main()
      Dim counter As Integer = 1
      Do
         Console.Write(counter & " ")
         counter += 1
      Loop Until counter > 5
   End Sub 
End Module
1 2 3 4 5 "