下面程序段的运行结果是 【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