VB.Net Tutorial/Statements/GoTo

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

GoTo statement with Label

Option Strict On
 Imports System
 Module Module1
    Sub Main( )
       Dim counterVariable As Integer = 0
       repeat:  
       Console.WriteLine("counterVariable: {0}", counterVariable)
       counterVariable += 1
       If counterVariable < 10 Then
          GoTo repeat 
       End If
    End Sub 
 End Module
counterVariable: 0
counterVariable: 1
counterVariable: 2
counterVariable: 3
counterVariable: 4
counterVariable: 5
counterVariable: 6
counterVariable: 7
counterVariable: 8
counterVariable: 9