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

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

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

Option base 1

Private Sub Command1_Click( )

Dim a(10)As Integer

For i=1 To 10

a(i)=(i)

Next

Call swap( 【13】 )

For i=1 T0 10

Print a(i)

Next

End Sub

Sub swap(b( )As Integer)

n= 【14】

For i=1 To n/2

t=b(i)

b(i)=b(n)

b(n)=t

【15】

Next

End Sub

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

正确答案：

[13]a( ) [14]UBound(b)或10 [15]n=n-I

参考解析：

由于建立了一个swap过程，该过程具有调换数组中数值的存放位置的功能，故在本处调用该过程是，应把a( )作为swap的参数。 For循环通过中介变量t交换数组中数值的存放位置。具体过程是，先把b(i)值赋给 t，让t储存；随后将b(n)值赋给b(i)，这个过程完成了数组靠后的元素与靠前的元素的交换；b(n)的值被赋给b(i)后，将接收b(i)的值，以完成数值的对调，这个过程由t对它赋值完成。据此，可以看出本处应填数组的元素总数，即UBound(b)。UBound(b)函数返回数组b的下标上界。由于在本程序中，只有a(10)需要调用该过程，所以第14空也可以填10。效果是一样的。 根据上面的分析，第15空处应填写语句让n随着For循环的执行不断的减小，而且每次减小的幅度为1，故填：n=n-1。