Private Sub Command1_Click()
MsgBox CStr(123 + 321)
E．nd Sub
A． 444
B． 123321
C． 123+321
D． 显示出错信息
[单选题]下列程序运行后，信息框显示的内容是()。Private Sub Command1_Click()D．im s1 As StringD．im s2 As Integers1 = "Hello-World,2004"s2 = Len(s1) + InStr(1, s1, "2")MsgBox s2E．nd SubA．Hello-WorldB．2003C．16D．29
[单选题]下列程序运行时，两次单击窗体后，显示的结果是( )。 Private Sub Form_Click() Dim b As Integer Static c As Integer b=b+2 c=c+2 Print "b="；b;"c=";c End SubA．b=2 c=2 b=2 c=2B．b=2 c=2 b=4 c=4C．b=2 c=2 b=2 c=4D．b=2 c=2 b=4 c=2
[单选题]运行下列程序，显示的结果是Private Sub Command34_Click()i=0D．oi=i+1Loop While i<10MsgBox iE．nd SubA．0B．1C．10D．11
[单选题]运行下列程序：Private Sub Command1_Click( )a = Val(InputBox("a = "))Print fun1(a)E．nd SubPrivate Function fun1(b)If b > 0 Thenfun1 = 10E．lseIf b = 0 Thenfun1 = 9E．lsefun1 = 8E．nd IfE．nd Function单击按钮后从键盘为变量a输入数据3，输出的结果是( )。A．3B．8C．9D．10
[单选题]下面程序运行后，窗体中显示______。Private Sub Command1_ Click() a＄ = "*": b＄ = "＄ for k = 1 To 3 x＄ = String＄(Len(a＄) +k, b＄) Print x＄; Next k PrintEnd SubA．*** ** ***B．*＄*＄*＄C．1*＄2*＄3*＄D．＄＄＄＄＄＄＄＄＄
[单选题]下列程序运行时输出的结果是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．天天向上清华大学天上人间程序设计
[单选题]下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click Dim I As Integer Dim sum As Long Dim t1 As Long t1=1:sum=0 For 1=1 To 3 t1=t1*I sum=sum+t1 Next I Print sum End SubA．3B．9C．5D．6
[单选题]下面程序运行时，单击窗体后，窗体上显示的结果是( )。 Private Sub Form_Click() Dim I As Integer Dim sum As Long sum=0 For I=10 To 16 If I Mod 3=0 OrI Mod 5=0 Then sum=sum+I End If Next I Print sum End SubA．10B．12C．37D．22
[单选题]运行下列程序：Private Sub Command1_Click()a = 100b = 24a = a Mod bb = b / aa = b - aD．ebug.Print aE．nd Sub单击Command1命令按钮后，则在立即窗口上输出结果是()。A．2B．24C．50D．100