[填空题] 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序: Option Base 1 Private Sub Command1_Click() Dim a(10) As I

12 查阅

[填空题] 在窗体上画一个名称为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=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 n=n-1

题目中,首先定义一个长度为10的一维数组,并给数组赋值为1~10的整数,接下来调用swap过程完成数组元素值的互换。由于swap过程的形参为数组,所以调用swap过程时传递的实参应该是一个数组名,本题中[11]只能是a。在过程swap中,首先求得数组b的上界n,然后在for循环中作元素值的互换,循环第一次时,i=1,a(1)与a(n)互换;循环第二次时,i=2,应该与数组倒数第二个元素值互换,以此类推,所以每循环一次n值应减少1,即[12]为n=n-1。

计算机考试