下列程序运行后，信息框显示的内容是()。

Private Sub Command1_Click()

D．im s1 As String

D．im s2 As Integer

s1 = "Hello-World,2004"

s2 = Len(s1) + InStr(1, s1, "2")

MsgBox s2

E．nd Sub

A．Hello-World

B．2003

C．16

D．29

[单选题]下面程序运行后，窗体中显示______。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．＄＄＄＄＄＄＄＄＄

[单选题]下列程序运行时,消息框显示的内容是( )。Private Sub Command1_Click()MsgBox CStr(123 + 321)E．nd SubA． 444B． 123321C． 123+321D． 显示出错信息

[单选题]下面程序运行后的输出结果是______。Private Sub Command1_ Click ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j/3 Next j Print aEnd SubA．20B．10C．3D．9

[单选题]下列程序段运行后窗体上输出结果为( )。 Private Sub Command1 Click() a=5：b=4：c=3：d=2 X=3＞2*b Or a=c And b＜＞C Or c＞d Print X End SubA．1B．TrueC．FalseD．2

[单选题]下列程序段，运行后窗体上输出结果是( )。Private Sub Command1_Click()a=5:b=4:c=3:d=2x=3＞2*b Or a=c And b＜＞c Or c＞dPrintxE．nd SubA．1B．TrueC．FalseD．2

[主观题]下面程序运行后，窗体中显示[ ]。Private Sub Command1_Click) ( )aS ="*" :b$ ="$"F．or k = 1 To 3x$ =Strings (Len(a$) +k,b$ )Print x $;NextPrintE．nd Sub

[单选题]单击命令按钮时，下列程序代码的运行结果为 Private Sub Command1_Click() Print MyFunc(20, 18) End Sub Public Function MyFunc(m As Integer, n As Integer)As Integer Do While m＜＞n Do While m＞n:m=m-n:Loop Do Whle m＜n:n=n-m:Loop Loop MyFunc=m End FunctionA．0B．2C．4D．6

[单选题]运行下列程序：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 = 100b = 24a = a Mod bb = b / aa = b - aD．ebug.Print aE．nd Sub单击Command1命令按钮后，则在立即窗口上输出结果是()。A．2B．24C．50D．100

[单选题]运行下列程序:Private Sub Command1_Click( )x = 3If x < 3 Then Print x £« 3;If x < 4运行下列程序：Private Sub Command1_Click( )x = 3If x < 3 Then Print x + 3;If x < 4 Then Print x + 4;If x < 5 Then Print x + 5;If x < 6 Then Print x + 6;PrintE．nd Sub单击Co