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
/
StringTypeCharTestB.vb
blob
a2a191fa2eedc2b66e0a0fbbd7784cdb2955e48f
1
Imports System
2
Module
StringTypeCharTest
3
Sub
Main
()
4
Try
5
Dim
m
As
String
6
m
=
f
(
20
)
7
If
m
<>
20
Then
8
Throw
New
Exception
(
"StringTypeCharTest: failed"
)
9
End If
10
Exit Sub
11
Catch e
As
Exception
12
Console
.
WriteLine
(
e
.
Message
)
13
End
Try
14
End Sub
15
16
Function
f
$(ByVal
param
$)
17
f$
=
param
18
End Function
19
End Module