下面程序段的运行结果是 【15】 。
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) =1*2
Next I
Swap x ()
For I=1 to 10
Print x (I)
Next I
End Sub