求vb代码-

来源：百度知道 编辑：UC知道 时间：2024/06/17 12:49:49
从键盘输入10个数，并放入一个一维数组中，将第i个元素与第10-i个元素互换。分别显示输入和输出结果

Private Sub Form_Click()
Dim a(1 To 10) As Integer '定义数组

For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个整数")
Next i

Print "原来的值"
For i = 1 To 10
Print a(i);
Next i

Print
Print "交换后的值"
For i = 10 To 1 Step -1
Print a(i);
Next i
End Sub
我想其实可以不用互换的，把数组的输出顺序倒过来就可以了