以下程序运行时，输入3和4后输出的结果是______。 Private Sub Command1_Click() a=InputBox(“请输入a的值”) b=InputBox(“请输入b的值”) Print a+b End Sub

A．3+4

B．7

C．34

D．12

[单选题]（ 30 ）下面程序运行时，若输入 395 ，则输出结果是Private Sub Comand1_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

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

[单选题]下列程序运行时输出的结果是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 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 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．天天向上清华大学天上人间程序设计

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

[单选题]以下程序运行后输出的结果是______。 Private Sub Form. _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End SubA．10B．15C．80D．100