在窗体上画一个名称为Command1的命令按钮,然后编写下列程序: Option Base_1 Private Sub Command1_Click() Dim a(10)As Integer For i=1 To 10 a(i)=i Next Call

admin2009-08-15  28

问题 在窗体上画一个名称为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=b(i)
b(i)=b(n)
b(n)=t
【  】
Next
End Sub
上述程序的功能是通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换, a(2)与a(9)的值互换,……,请填空。

选项

答案a , Ubound(B) , n=n-1

解析 第[1]空考查的考点是有关数组作为函数参数的。本题中被调函数Swap的形参为数组b,故此与之匹配的实参必须是一个不带括号的数组名,在本题中只能是数组a。第[2]空考查的考点是有关循环次数的。本题中要求数组逆置,循环次数应该是数组长度的一半。Ubound函数可以求数组的上界,由于是在被调函数中,所以数组名要使用形参数组名b。第[3]空考查的考点是有关循环中的交换问题的。本题中每次循环b(i)均要和b(n)交换,而b(i)每次循环都要发生变化,每当i加1后,对应与之交换的n应该减1才符合题意。
转载请注明原文地址:https://kaotiyun.com/show/L01p777K
0

随机试题
最新回复(0)