mcs/btests/ForA.vb

   1 Imports System
   2
   3 Module ForA
   4
   5     Sub main()
   6         Dim i, j, k As Integer
   7
   8         For i = 0 To 10
   9             If i = 1 Then
  10                 Exit For
  11             End If
  12             For j = 0 To 10 Step 2
  13                 If j = 2 Then
  14                     Exit For
  15                 End If
  16                 For k = 0 To 10 Step 3
  17                     If k = 3 Then
  18                         Exit For
  19                     End If
  20                     Console.WriteLine("i: {0}  j: {1}  k: {2}", i, j, k)
  21                 Next k
  22             Next
  23         Next i
  24
  25         If i <> 1 Or j <> 2 Or k <> 3 Then
  26             Throw New Exception("#ForA1 - For..Next Statement failed")
  27         End If
  28
  29     End Sub
  30
  31 End Module