Question

一维数组赋值

定义一个过程,实现给一维数组赋值,定义一个自定义过程,实现将一个一维数组逆置,
定义一个过程,输出一维数组。最后在main过程里调用上述三个过程。

最好能 解释下
写个程序吧

Answer 1

Private Sub Form_Load()
Dim x(4) As Integer
assignarr x
output x
Reverse x
output x
End Sub
Sub output(arr() As Integer)
For i = 0 To UBound(arr)
Debug.Print arr(i)
Next
End Sub
Sub assignarr(arr() As Integer)
For i = 0 To UBound(arr)
arr(i) = InputBox("请输入数组第 " & i & " 个元素", "数组赋值", "")
Next
End Sub
Sub Reverse(arr() As Integer)
For i = 0 To UBound(arr) / 2
t = arr(i): arr(i) = arr(UBound(arr) - i): arr(UBound(arr) - i) = t
Next
End Sub

Answer 2

用技术循环，弄个变量（假设是i）For语句，逆置是指从后到前从新赋值么？
建议在弄个数组作为中间亮赋完值后，再用那个充当中介的数组用计数循环赋值，输出看你是怎么输出了，是txt还是直接在窗口中？