mcs/btests/ForA.vb

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