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
/
ArrayB.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
dim arry as boolean
8
arry = IsArray(a)
9
If arry <> true then
10
Throw New Exception ("#A1, Not an Array")
11
End If
12
13
14
ReDim Preserve a(10)
15
Console.WriteLine(a(7))
16
\r
17
End Sub
\r
18
End Module
\r