[单选题]

( 30 )下面程序运行时,若输入 395 ,则输出结果是

Private Sub Comand1_Click ()

D.im x%

x=InputBox (" 请输入一个 3 位整数 ")

Print x Mod 10,x/100, ( x Mod 100 ) /10

E.nd Sub

A. ) 3 9 5

B. ) 5 3 9

C. ) 5 9 3

D. ) 3 5 9

参考答案与解析:

相关试题

下面程序运行时,若输入395,则输出结果是Prirate sub command

[单选题]下面程序运行时,若输入395,则输出结果是Prirate sub commandl_Click()D.im x%x=InputBox(“请输入一个3位整数”)Print x Mod 10,x\100,(x Mod 100)\10E.nd SubA.3 9 5B.5 3 9C.5 9 3D.3 5 9

  • 查看答案
  • 下面程序运行时,若输入395,则输出结果是( )。

    [单选题]下面程序运行时,若输入395,则输出结果是( )。A. 5 9 3B. 3 5 9C. 5 3 9D. 3 9 5

  • 查看答案
  • 以下程序运行时,输入3和4后输出的结果是______。Private Sub C

    [单选题]以下程序运行时,输入3和4后输出的结果是______。 Private Sub Command1_Click() a=InputBox(“请输入a的值”) b=InputBox(“请输入b的值”) Print a+b End SubA.3+4B.7C.34D.12

  • 查看答案
  • 下列程序运行时输出的结果是 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.不确定的值

  • 查看答案
  • 下列程序运行时输出的结果是()。Private Sub Form_Click()

    [单选题]下列程序运行时输出的结果是( )。 Private Sub Form_Click() Dima a=Array("天天向上","清华大学","天上人间","程序设计") forI=Lbound(a,1) to Ubound(a,1) ifleft(a(i),1)="天"then print a(i); nextI End SubA.天天向上B.天天向上天上人间C.出错信息D.天天向上清华大学天上人间程序设计

  • 查看答案
  • 下列程序运行时输出的结果是()。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 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

  • 查看答案
  • 下列程序运行时输出的结果是 Private Sub Form_Click()Di

    [单选题]下列程序运行时输出的结果是Private Sub Form_Click()D.im xx=Array("天天向上","清华大学","天上人间","程序设计")F.or i=LBound(a,1) to UBound(a,1)If Left(a(i),1)="天"Then Print a(i);NextE.nd SubA.天天向上B.天天向上天上人间C.出错信息D.天天向上清华大学天上人间程序设计

  • 查看答案
  • 下列程序运行时输出的结果是Private Sub Form_Click()Dim

    [单选题]下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array("天天向上","清华大学","天上人间","程序设计") For i=LBound(a,1)to UBound(a,1) If Left(a(i),1)="天"Then Print a(i); Next End SubA.天天向上B.天天向上天上人间C.出错信息D.天天向上清华大学天上人间程序设计

  • 查看答案
  • 下列程序运行时输出的结果是Private Sub Form_Click()Dim

    [单选题]下列程序运行时输出的结果是 Private Sub Form_Click() Dim x x=Array(“天天向上”,“清华大学”,“天上人间”,“程序设计”) For i=LBound(a,1)to UBound(a,1) If Left(a(i),1)=“天”Then Print a(i); Next End SubA.天天向上B.天天向上天上人间C.出错信息D.天天向上清华大学天上人间程序设计

  • 查看答案
  • ( 30 )下面程序运行时,若输入 395 ,则输出结果是Private Sub