在窗体上画一个名称为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。