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

admin2009-02-13  35

问题 在窗体上画一个名称为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 T0 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)或10 , n=n-I

解析 由于建立了一个swap过程,该过程具有调换数组中数值的存放位置的功能,故在本处调用该过程是,应把a(   )作为swap的参数。 For循环通过中介变量t交换数组中数值的存放位置。具体过程是,先把b(i)值赋给 t,让t储存;随后将b(n)值赋给b(i),这个过程完成了数组靠后的元素与靠前的元素的交换;b(n)的值被赋给b(i)后,将接收b(i)的值,以完成数值的对调,这个过程由t对它赋值完成。据此,可以看出本处应填数组的元素总数,即UBound(b)。UBound(b)函数返回数组b的下标上界。由于在本程序中,只有a(10)需要调用该过程,所以第14空也可以填10。效果是一样的。 根据上面的分析,第15空处应填写语句让n随着For循环的执行不断的减小,而且每次减小的幅度为1,故填:n=n-1。
转载请注明原文地址:https://kaotiyun.com/show/ZO2p777K
0

最新回复(0)