Помогите решить пожалуйста. линейные массивы.1.Замена.- переписать линейныймассив вещественных чисел b(30) в обратном порядке.

Visual Basic.NET
Imports System.Console

Module Module1
    Sub Main()
        Dim Rnd As Random = New Random()
        Dim A(30) As Integer
        Dim k As Integer
        Dim i As Byte
        For i = 0 To A.Length - 1
            A(i) = i Rnd.Next(255)
            WriteLine("A({0}) => {1}", i, A(i))
        Next
        WriteLine()
        i = 0
        For i = 0 To Math.Truncate(A.Length / 2)
            k = A(i)
            A(i) = A(A.Length - i - 1)
            A(A.Length - i - 1) = k
        Next
        For k = 0 To A.Length - 1
            WriteLine("A({0}) => {1}", k, A(k))
        Next
        ReadKey(False)
    End Sub
End Module