Imports System
Imports System.Data
Imports System.Collections
public class MainClass
Shared Sub Main()
Dim X As Array
Dim I As Integer
Dim Lengths(0) As Integer
Dim LowerBounds(0) As Integer
Lengths(0) = 10
LowerBounds(0) = 1
X = Array.CreateInstance(GetType(System.Int32), Lengths, LowerBounds)
Try
X.SetValue(5, 0)
Catch e As Exception
Console.WriteLine(e.Message)
End Try
X.SetValue(6, 1)
Console.WriteLine(X.GetValue(1))
End Sub
End Class
|