下面程序运行后，窗体中显示______。Private Sub Command1_ Click() a＄ = "*": b＄ = "＄ for k = 1 To 3 x＄ = String＄(Len(a＄) +k, b＄) Print x＄; Next k PrintEnd Sub

A．*** ** ***

B．*＄*＄*＄

C．1*＄2*＄3*＄

D．＄＄＄＄＄＄＄＄＄

[主观题]下面程序运行后，窗体中显示[ ]。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 ( ) 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()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 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( )Print "VB";Print "Hello! ";Print "VB"E．nd SubA． VBHello!VBB． VBH．ello!VBC． VBD． VBH．ello! VB Hello!VB

[单选题]在窗体上有一个命令按钮Command1，编写如下程序： Private Sub Command1_Click() Print pp1(3, 7) End Sub Public Function pp1(x As Single, n As Integer) As Single If n = 0 Then pp1= 1 Else If n Mod 2 = 1 Then pp1 =x*x+n Else pp1 =x*x-n End If End If End Function 程序运行后，单击该命令按

[单选题]在窗体上有一个命令按钮Command1，编写如下程序： Private Sub Command1_Click() Print pp1(3,7) End Sub Public Function pp1(x As Single,n As Integer)As Single If n=0 Then pp1=1 Else If n Mod 2=1 Then pp1=x*x+n Else pp1=x*x-n End If End If End Function 程序运行后，单击该命令按钮，屏幕上显示的是(

[单选题]（ 28 ）下面程序在调试时出现了死循环Private Sub Command1_Click （）n=InputBox （ “ 请输入一个整数 ” ）D．oIf n Mod 2=0 Thenn=n+1E．lsen=n+2E．lse IfLoop Until n=1000E．nd Sub下面关于死循环的叙述中正确的是（ ）A． ）只有输入的 n 是偶数时才会出现死循环，否则不会B． ）只有输入的 n 是奇数时才会出现死循环，否则不会C． ）只有输入的 n 是大于 1000 的整数时才会出现死循环，

[单选题]在窗体上有一个命令按钮Command1，编写下列程序：Private Sub Command1_Click()Print pp1(3,7)E．nd SubPublic Function pp1(x As Single,n As Integer)As SingleIf n=0 Thenpp1=1E．lseIf n Mod 2=1 Thenpp1=x*x+nE．lsepp1=x*x-nE．nd IfE．nd IfE．nd Function程序运行后，单击该命令按钮，屏幕上显示的是( )。A．2B．1