Imports System.Windows.Forms
Module Module1

    Sub Main()
        Dim a As Double()
        a = New Double(3) {1, 2, 3, 4}
        Dim b As Double()
        b = New Double(3) {}
        Dim output1 As String
        Dim output2 As String
        Dim t As Int32
        For t = 0 To 3
            output1 += a(t).ToString & vbNewLine

        Next 
        MessageBox.Show(output1, "開始數(shù)據(jù)")
        For t = 0 To 3
            b(t) = a(3 - t)
            output2 += b(t).ToString & vbNewLine
        Next
        MessageBox.Show(output2, "結果數(shù)據(jù)")



    End Sub

End Module