Question

用VBA设计一个程序, 定义一个能保存10个数的数组, 用inputbox函数任意输入10个整数, 并赋值给数组. 用循环

语句将数组的第1个数与第10个数交换, 第2个数与第9个数交换, …, 最后用输入数组. 结果为原输入顺序的逆序. 急用！！！

Answer 1

Sub test()
Dim arr1(1 to 10) , arr2(1 to 10)
For i =1 to 10
arr1(i)=Inputbox("请输入第" & i & "个数")
Next i
For j=1 to 10
arr2(j)=arr1(11-j)
Next j
Msgbox join(arr2,",")
End Sub

Answer 2

Sub test()
Dim arr1(1 To 10)
For i = 10 To 1 Step -1
j = j + 1
arr1(i) = InputBox("请输入第" & j & "个数")
Next i
End Sub

Answer 3

哇~~作业有救了，真棒！