[单选题]

下列程序运行时输出的结果是 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 Sub

A.3 7 11 45 19

B.19 15 11 7 3

C.1 3 5 7 9

D.不确定的值

参考答案与解析:

相关试题

下列程序运行时输出的结果是Option Base 1Private Sub Fo

[单选题]下列程序运行时输出的结果是 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 1Private Sub Fo

    [单选题]下列程序运行时输出的结果是 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 1Private Sub

    [单选题]下列程序运行时输出的结果是( )。 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 1Private Sub

    [单选题]下列程序运行时输出的结果是( )。 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

    [单选题]下列程序运行时输出的结果是( )。 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

    [单选题]下列程序运行时输出的结果是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 1Private Sub s

    [试题]下面程序段的运行结果是[ ]。Option Base 1Private Sub swap(a()As InteSer)F.or I=1 to 10/2t=a(i)a(i)=a(10-1+1)a(10-1+1)=tNext1E.nd SubPrivate Sub Form_Click()D.im x(10)As IntegerF.or I=1 to 10x(i)=I*2Next1Swap x()F.or1=1 to 10Print x (i)Next IE.nd Sub

  • 查看答案
  • 以下程序的输出结果是D)912Option Base 1Private Sub

    [单选题]以下程序的输出结果是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 1Private Sub

    [单选题]有如下程序,运行后输出的是( )。 Option Base 1 Private Sub Commandl_click() Dim aj(1 To 10) Forj=6 To 10 aj(j)=j*2 Nextj Printaj(1)+aj(j) End SubA.5B.20C.22D.显示出错信息

  • 查看答案
  • 以下程序运行后,消息框的输出结果是()。OPTION BASE 1PRIVATE

    [单选题]以下程序运行后,消息框的输出结果是( )。 OPTION BASE 1 PRIVATE SUB COMMAND1_CLICK( ) DIM A(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 MSGBOX K END SUBA.33B.28C.35D.37

  • 查看答案
  • 下列程序运行时输出的结果是Option Base 1Private Sub Fo