输入十个整数，放入一个一维数组中，然后将其前5个元素与后5个元素对换

Private Sub command1_click()
Dim a(1 To 10) As Long

For i = 1 To 10
a(i) = InputBox("请输入数值") '接受输入10个整数，放入数组a(1 to 10)中
Next

For i = 1 To 10
Print a(i); " "; '输出10个整数
Next

Print

For i = 1 To 5'第1个元素与第10个元素互换，第2个元素与第9个元素互唤...
temp = a(i)
a(i) = a(11 - i)
a(11 - i) = temp
Next i

For i = 1 To 10
Print a(i); " "; '输出对换后的数
Next

End Sub

Private Sub Form_Click()
Dim n%, i%, a%(1 To 10)
For i = 1 To 10
a(i) = Val(InputBox("input"))
Next i
For i = 1 To 10 \ 2 '交换一半
temp = a(i): a(i) = a(10 - i + 1): a(10 - i + 1) = temp
Next i

For Each x In a
Print x;
Next x
End Sub