主观

下面程序段的运行结果是【 】。

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

参考答案
您可能感兴趣的试题
¥

订单号:

遇到问题请联系在线客服

订单号:

遇到问题请联系在线客服