下面程序段的运行结果是【 】。 Option Base 1 Private Sub Swap (a() As Integ For I=1 to 10/2 t=a(I) a(I)=a(10-I+1) 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