下面程序段的运行结果是 1。Option Base 1Private Sub swap(a( ) As Integer)For I = 1 to 10\2t =a(I)a(I) = a(10-I+l)a(10-I+1) = tNext IEnd SubPrivate Sub Form Click( )Dim x(10) As IntegerFor I = 1 to 10x(I) = I * 2Next ISwap x( )For I=1 to 10Print x(I)Next IEnd Sub
  • 1、
【正确答案】 1、正确答案：2.0181614121e+015    
【答案解析】解析：在该事件过程中，定义并生成了x数组，该数组共有10个元素，分别是2、4、6、8、10、 12、14、16、18、20。接着使用了不带Call的调用语句，实际参数和虚拟参数都是数组，是按地址传送，在过程中访问的数组就是事件过程中的x数组。在该过程中，将数组的第一个元素和最后一个元素交换位置。依此类推。返回事件过程后输出交换后的数组全部元素。