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() For I = 0 To Prices.GetUpperBound(0) Console.Write(Prices(I) & " ") Next End Sub End Module
100 200 300 400 500 25.5 4.95 33.4