● 打开 123.DOC 文档，编辑并执行了撤消、保存命令，再进行“保存”操作后，则 （41） 。（41）

单击命令按钮时，下列程序的执行结果是 Private Sub Commandl_Click() BT 4 End Sub PriVate Sub BT(x As Integer) X=X * 2 + 1 If x ＜6 Then Call BT(x) End If X=x * 2 Print x； End Sub

A．15

B．16

C．17

D．18

单击命令按钮，下列程序的执行结果为 Private Sub Commandl_Click() Dim x As Integer，y As Integer x=32：y=42 Call PCS(x，y) Print x；y End Sub Public Sub PCS(Byval n As Integer，ByVal m As Integer) n=n Mod 10+1 m=m Mood 10+1 End Sub

A．32 42

B．2 32

C．2 3

D．12 3

单击一次命令按钮，下列程序代码的执行结果为()。 Private Sub Commandl_Click() Dima As Integer,b As Integer，CASInteger a=2：b=3：c=4 PrintP2(c，b，A) End Sub PrivateFunctionPl(X As Integer,y As Intege；z As Integer) P1=2*x+y+3*Z End Function Priva

A．21

B．19

C．17

D．34

单击命令按钮时，下列程序的执行结果是

Private Sub Commandl_Click()

Dim a As Integer，b As Integer，c As Integer

a=3:b=4:c=5

Print 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

单击命令按钮时，下列程序代码的执行结果为 Public Sub Procl(n As Integer,ByVal m As integer) n=n Mod 10 m＝m\10 End sub Private Sub Commandl_Click() Dim x AS Integer,y AS Integer x=12:y=24 Call Procl(x,y) Print x;y End sub

A．12 24

B．2 24

C．2 3

D．12 2

单击命令按钮，下列程序的执行结果是 Private Sub Blck (x As Integer) x = x * 2 + l If x ＜6 Then Call Blck(x) End If x = x * 2 + 1 Print x； End Sub Private Sub Commandl_Click() Blck 2 End Sub

A．23 47

B．10 36

C．22 44

D．24 50

单击一次命令按钮后，下列程序的执行结果是()。 Private Sub Commandl_Click() s=P(1)+P(2)+P(3)+P(4) Print s End Sub Public FunctionP(N As Integer) Static Sum Fori=1To N Sum=Sum+i Nexti P=Sum End Function

A．15

B．25

C．35

D．45

单击命令按钮时，下列程序的执行结果是

Private Sub Command1_Click()

BT 4

End Sub

Private Sub BT(x As Integer)

x=x*2+1

If x＜6 Then

Call BT(x)

End If

x=x*2

Print x；

End Sub

A．15

B．16

C．17

D．18

单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click() Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVal n As Integer，ByValm As Integer) n=n\10 m=m\10 End Sub

A．08

B．50 78

C．450

D．78 50