Question

VB编程求代码（关于数组的基本操作） 实验内容:从键盘输入10个整数，保存到一堆数组中，并将其顺

VB编程求代码（关于数组的基本操作）

实验内容:从键盘输入10个整数，保存到一堆数组中，并将其顺序颠倒后输出到窗体上。

实验要求：分别输出交换前和交换后的数组元素值，如依次输入22，64，78，……，56，11十个数，输出交换后的十个数分别为11，56，……，64，22。运行界面如图所示

求代码 急用 请用图中的实验目的内容完成 谢谢





Answer 1

明明是一维数组，你弄个一堆数组？
这 一堆 是多少？

追问

打错了，请问代码

追答

Private Sub Command1_Click()
Dim T As Single
Dim d(10) As Single
Dim i As Integer
For i = 1 To 10
d(i) = Val(InputBox("输入第" & i & "个数"))
Next i

Print "交换前："
For i = 1 To 10
Print d(i);
Next i
Print

For i = 1 To 5
T = d(i)
d(i) = d(11 - i)
d(11 - i) = T
Next i

Print
Print "交换后："
For i = 1 To 10
Print d(i);
Next i

End Sub