mcs/btests/ControlFlowA.vb

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