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

admin2010-04-10  20

问题 在窗体上画一个名称为Command1的命令按钮。然后编写如下程序:
Option Base 1
Private Sub Commandl_click()
Dim a(10)As Integer
For i=l T0 10
a(i)=1
Next
call swap(【  】)
For i=1 To 10
Print a(i);
Next
End sub
Sub swap(b()As Integer)
n=UBound(b)
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()或a; , n=n-1

解析 调用函数swap,必须提供一个参数,所以第11个空填“a()”或“a”;自定义函数swap中,a(1)与a(n)调换之后,应该是a(2)与a(n-1)调换,所以第12个空应填“n=n-1”。
转载请注明原文地址:https://kaotiyun.com/show/qQmp777K
0

最新回复(0)