VB.Net Tutorial/Statements/Exit — различия между версиями

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

Текущая версия на 15:53, 26 мая 2010

Do Loop with Exit Do

<source lang="vbnet">Option Strict On

Imports System
Module Module1
   Sub Main( )
      Dim counterVariable As Integer = 0
      Do
         Console.WriteLine("counterVariable: {0}", counterVariable)
         counterVariable = counterVariable + 1
         If counterVariable > 9 Then
            Exit Do
         End If
      Loop
   End Sub "Main
End Module</source>
counterVariable: 0
counterVariable: 1
counterVariable: 2
counterVariable: 3
counterVariable: 4
counterVariable: 5
counterVariable: 6
counterVariable: 7
counterVariable: 8
counterVariable: 9

Exit For

<source lang="vbnet">public class Test

  public Shared Sub Main
       Dim j As Integer
       For i As Integer = 1 To 3
           j = 0
           Do While j < 3
               j += 1
               For k As Integer = 1 To 3
                   Dim test1 As Boolean = k = 2
                   If test1 Then Exit For " Exits the For K loop.
                   Dim test2 As Boolean = i = j
                   If test2 Then Exit Do " Exits the Do.
                   Console.WriteLine(i & ", " & j & ", " & k)
               Next k
           Loop
       Next i
  End Sub

End class</source>

2, 1, 1
3, 1, 1
3, 2, 1

Using the Exit keyword in repetition structures

<source lang="vbnet">Module Tester

  Sub Main()
     Dim output As String
     Dim counter As Integer
     For counter = 1 To 10
        If counter = 3 Then
           Exit For
        End If
     Next
     output = "counter = " & counter & _
        " after exiting For/Next structure" & vbCrLf
     Do Until counter > 10
        If counter = 5 Then
           Exit Do
        End If
        counter += 1
     Loop
     output &= "counter = " & counter & _
        " after exiting Do Until/Loop structure" & vbCrLf
     While counter <= 10
        If counter = 7 Then
           Exit While
        End If
        counter += 1
     End While
     output &= "counter = " & counter & _
        " after exiting While structure"
     Console.WriteLine(output)
  End Sub 

End Module</source>

counter = 3 after exiting For/Next structure
counter = 5 after exiting Do Until/Loop structure
counter = 7 after exiting While structure