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

11 查阅

[填空题] 在窗体上画一个名称为Command1的命令按钮，然后编写下列程序：Option Base_1Private Sub Command1_Click() Dim a(10)As Integer For i=1 To 10 a(i)=i Next Call swap( 【8】 ) For i=1 To 10 Print a(i)； NextEnd SubSub swap(b()As Integer) n= 【9】 For i=1 To n/2 t=b(i) b(i)=b(n) b(n)=t 【10】 NextEnd Sub 上述程序的功能是通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换， a(2)与a(9)的值互换，……，请填空。

参考答案:

[8]a [9]Ubound(b) [10]n=n-1

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

计算机考试