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

参考答案：

an=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。

当前位置：IT认证＞BASIC题库

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

相关题目: