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
/
ForA.vb
blob
27c35e93ba0afc355f3df08121aca3922311e4b5
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