下面的方法比較直觀，在form1上放一個command1按鈕，兩個文字框按鈕text1和text2：Private Sub Command1_Click() Dim a(10) As Long, b(5) As Long, i As Integer For i = 1 To 10 輸入資料 a(i) = InputBox("請輸入第" & i & "個數", "整數輸入") Next i For i = 1 To 10 "顯示調換前的資料 Text1.Text = Text1.Text & vbCrLf & "a(" & i & ") =" & a(i) Next i For i = 1 To 5 "資料調換 b(i) = a(i) a(i) = a(i + 5) a(i + 5) = b(i) Next i For i = 1 To 10 "顯示調換後的資料 Text2.Text = Text2.Text & vbCrLf & "a(" & i & ") =" & a(i) Next iEnd Sub