mcs/btests/ControlFlowA.vb

   1 Imports System\r
   2 \r
   3 Module ControlFlowA\r
   4     Dim result As Integer\r
   5 \r
   6     Sub F1()\r
   7         Dim i As Integer\r
   8         For i = 0 To 4\r
   9             Stop\r
  10             result += i\r
  11             If i = 3 Then\r
  12                 Exit Sub\r
  13             End If \r
  14         Next i\r
  15         result = 4\r
  16     End Sub\r
  17 \r
  18     Sub main()\r
  19 \r
  20         F1()\r
  21         If result <> 6 Then\r
  22             Throw New Exception("#CFA1 - Exit Statement failed")\r
  23         End If\r
  24         Console.WriteLine(result)\r
  25         Try\r
  26             End\r
  27             Console.WriteLine("After Stop Statement")\r
  28         Catch e As Exception\r
  29             Console.WriteLine(e.Message)\r
  30         Finally\r
  31             Throw New Exception("#CFA2 - End Statement failed")\r
  32         End Try\r
  33 \r
  34     End Sub\r
  35 \r
  36 End Module\r