We have to ______ many difficulties in the course of social reforms.A．cope withB．keep with

单击按钮时，以下列程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer，z As Integer x=1：y=2：z=3 Call proc1(x，x，2) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub

A．6 6 12 6 6 10

B．9 5 10 5 10 10

C．9 6 12 9 10 15

D．9 5 10 5 4 10

单击按钮时，以下程序运行后的输出结果是 Private Sub Commandl_Click() Dim X As Integer，y As Integer，z As Integer x=1：y=2： Z=3 Call God(x，x，z) Print x；x；z Call God(x，y，y) Print X；y；y End Sub Private Sub God(x As Integer，y As Integer，z As Integer) x=3 * Z + 1 y=2 * Z z=x + y End Sub

A．6 6 12 7 11 11

B．8 5 10 5 11 11

C．9 6 12 9 10 15

D．8 10 10 5 9 10

在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是()。

Private Sub p1(n As Integer)

For i=n To 1 Step-1

x=String(i,"*")

Print x

Next i

End Sub

Private Sub Command1_Click()

p1(3)

End SubA)

*B)C)D)

A．*** ** *

B．* ** ****

C．* * *

D．******

以下程序运行后，单击按钮输出结果是 Private Sub Commandl_Click() Dim x As Integer，y As Integer，z As Integer X=4：y=2： Z=3 Call Gopd(x，x，z) Print x；X；Z Call Gopd(x，y，y) Print x；y；y End Sub Private Sub Gopd(x As Integer，y As Integer，z As Integer) X=3 * Z + 1 y=2 * z z=x + y End Sub

A．6 6 12 7 11 11

B．8 5 10 5 11 11

C．9 6 12 9 10 15

D．8 10 10 5 9 10

运行下列程序：

Private Sub Command1_Click()

Dim x As Integer, n As Integer

n = 0

Do

n = n + 2

x = x + n

Loop While n< 10

Debug.Print x

End Sub

单击Command1命令按钮后，则在立即窗口上输出结果是是()。

A.2

B.10

C.12

D.30

在窗体上画一个命令按钮，其名称为Command1。程序运行后，单击命令按钮，输出结果是（）。

Private S．b p1(n As Integer)

For i=n To 1 Step=1

x=String(i，"*")

Print x

Next i

End Sub

Private Sub Command1 Click（）

pl(3)

EndSub

A.***

**

*

B.***

***

C.*

*

*

D.******

以下程序运行后，单击命令按钮，窗体显示的结果是 ______。 Private Function p1(x As Integer，y As Integel，z As Integer) p1=2*x+y+3*z End Function Private Function p2(x As Integer，y As Integer，z As Integer) p2=p1(2，y，x)+x End Function Private SubCommandl_Click() Dim a As Integer Dim b As Integer Dim c As Integer a=2:b=3:c=4 Print p2(c，b，A)

End Sub

A．19

B．21

C．22

D．23

以下程序运行时，单击窗体后，在窗体上输出的结果是 ______。 Private SubForm_Click() Dim a As Integer，b As Integer a=10 ：b=20 Call ff(a，B)Print a，b End Sub Private Sub ff(x As Integer，y As Integer) x=x+y y=x+y End Sub

A．30 50

B．30 30

C．20 20

D．10 20

b p1(n As Integer) For i=n To 1 Step -1 x=String(i,"*") Print x Next i End Sub Private Sub Commandl_Click() P1(3) End Sub

A.*** ** *

B.* ** ***

C.* * *

D.******

单击命令按钮执行下列程序，其输出结果是()。

Private Sub Command1_Click()

Dim a As Integer,b As Integer,c As Integer

a=3

b=4

c=5

Prim SecProc(c,b,A)

End Sub

Function FirProc(x As Integer,y As Integer,z As Integer)

FirProc=2*x+y+3*z

End Function

Function SecProc(x As Integer,y As Integer,z As Integer)

SecProc=FirProc(z,x,y)+x

End Function

A．20

B．22

C．28

D．30