repo.or.cz
/
mono-project.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
* MonthCalendar.cs:
[mono-project.git]
/
mcs
/
btests
/
ControlFlowA.vb
blob
77096164fb7c1dc00ee85006ceb2f0bdd5ec4108
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