Question

完成下列子程序的编写

该子程序的功能是：将数组中的数据按相反的顺序存放。例如，数组中的原数据顺序为：12、9、15。子程序执行后，数组中的数据顺序变为：15、9、12。
Sub Reverse(a() As Integer)
Dim i As Integer, j As Integer, ▁▁▁▁▁▁▁▁
i = LBound(a)
j = UBound(a)
Do Until ▁▁▁▁▁▁▁▁
▁▁▁▁▁▁▁▁ ’交换a(i)与a(j)值
▁▁▁▁▁▁▁▁
▁▁▁▁▁▁▁▁
i = ▁▁▁▁▁▁▁▁
j = ▁▁▁▁▁▁▁▁
Loop
End Sub

Answer 1

Sub Reverse(a() As Integer)
  Dim i As Integer, j As Integer, t As Integer
  i = LBound(a)
  j = UBound(a)
  Do Until i >= j
    t = a(i)
    a(i) = a(j)
    a(j) = t
    i = i + 1
    j = j - 1
  Loop
End Sub