Module Tester
Sub Main()
Dim Values() As Integer = {100, 200, 300, 400, 500}
Dim MyValues(5) As Integer
Dim Prices() As Double = {25.5, 4.95, 33.4}
Dim I As Integer
For I = 0 To 4
Console.Write(Values(I) & " ")
Next
Console.WriteLine()
Console.WriteLine("Array length: " & Values.Length)
Console.WriteLine("Array lowerbound: " & Values.GetLowerBound(0))
Console.WriteLine("Array upperbound: " & Values.GetUpperBound(0))
End Sub
End Module
|