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