module1.vb

来自「学习vb过程中老师讲过的所有案例！还有课程设计」· VB 代码 · 共 29 行

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, "开始数据")
        For t = 0 To 3
            b(t) = a(3 - t)
            output2 += b(t).ToString & vbNewLine
        Next
        MessageBox.Show(output2, "结果数据")



    End Sub

End Module