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

admin2006-08-15  63

问题 在窗体上画一个名称为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(5)与a(6)的值互换。请填空。

选项

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

解析 子过程的功能是实现数组前后对应元素的交换,比如a(1)和a(10)、a(2)和 a(9)依次类推,n=UBound(B)取得数组的上界下标,n=n-1实现后面元素的向前递变。
转载请注明原文地址:https://jikaoti.com/ti/Fw80FFFM
0

最新回复(0)