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()
Values.Reverse(Values)
For I = 0 To 4
Console.Write(Values(I) & " ")
Next
Console.WriteLine()
End Sub
End Module
|