[填空题] 在窗体上画一个名称为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= 【】 For i=1 To n/2 t=

试题难度： 

参考解析：

第一空考查的考点是有关数组作为函数参数的。本题中被调函数Swap的形参为数组b，故此与之匹配的实参必须是一个不带括号的数组名，在本题中只能是数组a。第二空考查的考点是有关循环次数的。本题中要求数组逆置，循环次数应该是数组长度的一半。Ubound函数可以求数组的上界，由于是在被调函数中，所以数组名要使用形参数组名b。第三空考查的考点是有关循环中的交换问题的。本题中每次循环b(i)均要和b(n)交换，而b(i)每次循环都要发生变化，每当i加1后，对应与之交换的n应该减1才符合题意。