下面程序段的运行结果是[ ]。

Option Base 1

Private Sub swap(a()As InteSer)

F．or I=1 to 10/2

t=a(i)

a(i)=a(10-1+1)

a(10-1+1)=t

Next1

E．nd Sub

Private Sub Form_Click()

D．im x(10)As Integer

F．or I=1 to 10

x(i)=I*2

Next1

Swap x()

F．or1=1 to 10

Print x (i)

Next I

E．nd Sub

[单选题]下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dimx(10)As Integer,y(5) As Integer ForI=1 to 10 x(i)=10-I+1 NextI ForI=1 to 5 y(i)cx(2*-1)+x(2*I) NextI ForI=1 to 5 Printy(i)； NextIA．3 7 11 45 19B．17 13 9 5 1C．1 3 5 7 9D．不确定的值

[单选题]下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Dimx(10) ForI=1 to 10 x(i)=10-I+1 Next I ForI=10 to 1 step-2 Printx(i)； NextI End SubA．1 3579B．975 3 1C．1234567 89 10D．1098765432 1

[单选题]下列程序运行时输出的结果是( )。 Option Base 1 Private Sub Form_Click() Const a=6 Dim x (a) As Integer For I=1 to a x(i)=1^2 Next I Print x(i) End SubA．36B．25C．1D．出错信息

[单选题]下面程序：________Option Base 1Private Sub Command1_Click() Dim a(10)，p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。A．33B．28C．35D．37

[单选题]下列程序运行时输出的结果是 Option Base 1Private Sub Form_Click()D．im x(10) As Integer，y(5) As IntegerF．or i=1 to 10x(i) =10-i+1NextF．or i=1 to 5y(i)=x(2*i-1)+x(2*i)NextF．or i=1 to 5Print y(i)NextE．nd SubA．3 7 11 45 19B．19 15 11 7 3C．1 3 5 7 9D．不确定的值

[单选题]下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x(10) As Integer，y(5) As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End SubA．3 7 11 45 19B．19 15 11 7 3C．1 3 5 7 9D．不确定的值

[单选题]下列程序运行时输出的结果是 Option Base 1 Private Sub Form_Click() Dim x (10)As Integer，y(5)As Integer For i=1 to 10 x(i)=10-i+1 Next For i=1 to 5 y(i)=x(2*i-1)+x(2*i) Next For i=1 to 5 Print y(i) Next End SubA．3 7 11 45 19B．19 15 11 7 3C．1 3 5 7 9D．不确定的值

[单选题]以下程序的输出结果是D)9 12 Option Base 1 Private Sub Command1_Click() Dim s(10)，p(3)As Integer k=5 For i=1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next I For i=1 To 3 k=k+ p(i)*2 Next i Print k End subA．33B．28C．35D．37

[单选题]下列程序段的执行结果是______。 option base 1 private eommand1_c1ick () Dim A(10) Dim E(5) For i = 1 To 10 A(i) = i Next i For j = 1 To 5 B(j) = j * 20 Next j A(5) = B(2) Print “A(5)=”; A(5) End subA．A(5)=20B．A(5)=30C．A(5)=40D．A(5)=50

[单选题]运行下列程序：Option Base 1Private Sub Form_Click()y = 43x = Array(21, 4, 50, 18, 23, 44, 87, 32, 67, 70)F．or i = 1 To 10If x(i)< y Thenz = x(i) + 1y = x(i)E．lsez = z + yE．nd IfNext iPrint zE．nd Sub单击窗体后，则在窗体上显示的结果是()。A．43B．21C．37D．44