下面程序段的运行结果是【 】。 Option Base 1 Private Sub swap(a( ) As Integer) For I = 1 to 10\2 t =a(I) a(I) = a(10-I+l) a(10-I+1) = t Next I

admin2009-01-19  24

问题 下面程序段的运行结果是【  】。
Option Base 1
Private Sub swap(a( ) As Integer)
For I = 1 to 10\2
t =a(I)
a(I) = a(10-I+l)
a(10-I+1) = t
Next I
End Sub
Private Sub Form Click( )
Dim x(10) As Integer
For I = 1 to 10
x(I) = I * 2
Next I
Swap x( )
For I=1 to 10
Print x(I)
Next I
End Sub

选项

答案2.0181614121e+015

解析 在该事件过程中,定义并生成了x数组,该数组共有10个元素,分别是2、4、6、8、10、 12、14、16、18、20。接着使用了不带Call的调用语句,实际参数和虚拟参数都是数组,是按地址传送,在过程中访问的数组就是事件过程中的x数组。在该过程中,将数组的第一个元素和最后一个元素交换位置。依此类推。返回事件过程后输出交换后的数组全部元素。
转载请注明原文地址:https://kaotiyun.com/show/M35p777K
0

最新回复(0)