projects
/
mono.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2004-06-09 Atsushi Enomoto <atsushi@ximian.com>
[mono.git]
/
mcs
/
btests
/
ArrayC.vb
1
Imports System
\r
2
3
Module VariableC
\r
4
Dim a() As Integer = {1, 2, 3, 4, 5}
5
\r
6
Sub Main()
7
ReDim Preserve a(10)
8
9
a(7) = 8
10
If a(7) <> 8 then
11
Throw New Exception ("#A1, Unexpected result")
12
End If
13
14
If a(2) <> 3 then
15
Throw New Exception ("#A2, Unexpected result - Preserve keyword not working")
16
End If
17
End Sub
\r
18
End Module
\r