运行下列程序：Private Sub Command1_Click（)x = 1z = ...

运行下列程序：

Private Sub Command1_Click( )

x = 3

If 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;

Print

End Sub

单击Command1命令按钮后，则在窗体上显示的结果是( )。

A.6 7 8 9

B.7 8 9

C.8 9

D.9

有下列程序： Private Sub Command1_Click() X$="Nanchang" y$="Beijing" z$="Nanjing" z$=InStr(Left(x$，3)+Right(y$，4)，z$) Print z$ End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．0

B．1

C．3

D．4

有下列程序： Private Sub Command1_Click() Dim i As Integer Dim arrY(5)As Integer For i = 0 To 4 arrY (i) = 5 Next i Dim arrZ(5)As String For i = 0 To 4 arrZ(i)= "hello" Next i Dim arrX(2)AS Variant arrX(1)=arrY() arrX(2)=arr2() Text1.Text=arrX(1) (2) TextText=arrX(2) (3) End Sub 程序运行后，单击命令按钮，在文本框Text1和Text2中分别显示的内容是【 】和【 】。

下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub

A．* * * * * *

B．1 * 2 * 3 *

C．3 * 2 * * 1 * * *

D．* * * * * *

在窗体上有一个命令按钮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

程序运行后，单击该命令按钮，屏幕上显示的是( )。

A．2

B．1

C．0

D．16

在窗体中添加一个命令按钮，并编写如下程序：Private Sub Command1_ Click() x=1: y=2: z=3 x=y: y=z: z=xEnd Sub程序执行后，输出的结果是______。

A．3

B．0

C．2

D．1

下列程序的运行结果是( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a，b)Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End Sub

A．2.25 3.75

B．1.5 2.25

C．1.5 0.75

D．0.75 1.5

下列程序段运行后窗体上输出结果为( )。 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 Sub

A．1

B．True

C．False

D．2

有如下事件过程： Sub ABD(x％，y％，z％) z％=X％ +y％ End Sub Private Sub Command1 _ Click( ) a％=30：b％=40 Call ABD(a％，b％，c％) Print c％ End Sub 运行上面的程序，单击命令按钮，输出结果为

A．70

B．70．0

C．7.0E+1

D．显示错误信息

下面程序的运行结果是 Private Sub Command1_Click() x＝1:y＝1 For i=1 To 3 x＝x+y:y＝y+x Next i:print x,y End Sub

A．6 6

B．5 8

C．13 21

D．34 35