[填空题] 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base 1Private Sub Command1_Click()Dim a(10) As I

[填空题] 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As I

[填空题] 在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

Option base 1

Private Sub Command1_Click()

Dim a(10) As Integer

For i=1 To 10

a(i)=i

Next

Call swap(______)

For i=1 To 10

Print a(i)

Next

End Sub

Sub swap(b() As Integer)

n=Ubound(b)

For i=1 To n/2

t=b(i):b(i)=b(n):b(n)=t

______

Next

End Sub

上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。

正确答案：

a n=n-1

参考解析：

题目中，首先定义一个长度为10的一维数组，并给数组赋值为1～10的整数，接下来调用swap过程完成数组元素值的互换。由于swap过程的形参为数组，所以调用swap过程时传递的实参应该是一个数组名，本题中[11]只能是a。在过程swap中，首先求得数组b的上界n，然后在for循环中作元素值的互换，循环第一次时，i=1，a(1)与a(n)互换；循环第二次时，i=2，应该与数组倒数第二个元素值互换，以此类推，所以每循环一次n值应减少1，即[12]为n=n-1。