单击命令按钮，下列事件过程的执行结果为

Private Sub Command1_Click（）

D．im x As Integer, y As Integer

x=40: y=72

C．all PtoP（x, y）

Print x; y

E．nd Sub

Public Sub PtoP（Byval n As Integer, ByVal m As Integer）

n=n ＼ 10+2

m=m ＼ 10+2

E．nd Sub（ ）。

A．0 8

B．40 72

C．4 50

D．78 50

[单选题]有如下事件过程，单击命令按钮扣，输出结果为Private Sub Command1_Click（）D．im b%（1 To 4） , j%, t#F．or j=1 To 4b（j） =jNext jt=Tax（b（） ）Print "t="; t,E．nd SubF．unction Tax （a（） As Integer）D．im t#, i%t=1F．or i=2 To UBound（A．t=t * a（i）Next iTax=tE．nd Function（ ）。A．t＝18B．t＝24C

[单选题]单击命令按钮，下列程序的执行结果为Private Sub Command1_Click（）D．im x As Integer, y As Integerx=32: y=42C．all PCS（x, y）Print x; yE．nd SubPublic Sub PCS（Byval n As Integer, ByVal m As Integer）n=n Mod 10+1m=m Mod 10+1E．nd Sub （ ）。A．32 42B．2 32C．2 3D．12 3

[单选题]单击命令按钮时，下列的执行结果为Private Sub Command1_Click（）D．im x As Integer, y As Integerx=86: y=29C．all Proc（x, y）Print x; yE．nd SubPublic Sub Proc（n As Integer, ByVal m As Integer）n=n Mod 10m=m Mod 10E．nd Sub（ ）。A．12 32B．6 29C．2 3D．12 3

[单选题]单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click（）D．im a As Integer, b As Integer, c As Integera=2: b=3: c=4Print P2（c, b, A．E．nd SubPrivate Function P1（x As Integer, y As Integer, z As Integer）P1=2 * x + y + 3 * zE．nd FunctionPrivate Function P2（x As In

[单选题]单击命令按钮时，下列程序的执行结果为Private Sub Command1_Click（）D．im x As Integer, y As Integerx=12: y=32C．all PCS（x, y）Print x; yE．nd SubPublic Sub PCS（ByVal n As Integer, ByVal m As Integer）n=n Mod 10m=m Mod 10E．nd Sub（ ）。A．12 32B．2 32C．2 3D．12 3

[单选题]单击命令按钮时，下列程序的执行结果是Private Sub Command1_Click（）B．T 4E．nd SubPrivate Sub BT（x As Integer）x=x * 2 + 1If x < 6 ThenC．all BT（x）E．nd Ifx=x * 2Print x;E．nd Sub（ ）。A．15B．16C．17D．18

[单选题]单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click（）Print MyBM（23, 18）E．nd SubPublic Function MyBM（m As Integer, n As Integer） As IntegerD．o While m <> nD．o While m > n: m=m - n: LoopD．o While m < n: n=n - m: LoopLoopMyBM=mE．nd Function（ ）。A．0B

[单选题]单击一次命令按钮后，下列程序的执行结果是Private Sub Command1_Click（）s=P（1） + P（2） + P（3） + P（4）Print sE．nd SubPublic Function P（N As Integer）Static SumF．or i=1 To NSum=Sum + iNext iP=SumE．nd Function（ ）。A．15B．25C．35D．45

[单选题]单击命令按钮时，下列程序的执行结果为 Private Sub Command1_click() Dim X As Integer，Y As Integer x=12:y=32 Call PCS(x,y) Print x；y End Sub Public Sub PCS(ByVal n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End SubA．12 32B．2 32C．2 3D．12 3

[单选题]单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click( ) Dim x As Integer, y As Integer x=12:y=32 Call PCS(x, y) Print x; y End Sub Public Sub PCS( ByVal n As Integer, ByVal m As Integer) n = n Mod 10 m=m Mod 10 End SubA．12 32B．2 32C．2 3D．12 3