托收承付是指根据()由收款人发货后委托银行向异地付款人收取款项，由付款人向银行承认付款的一种结算方式。

单击一次命令按钮之后，下列程序代码的执行结果为 private Sub Command1_Click() S=P(1) +P(1)+P(2)+P(3)+P(4) Print S： End Sub Public Function P(N As Integer) Static Sum For I=1 To n Sum=Sum+I Next 1 P=Sum End Function

A．20

B．35

C．115

D．135

单击一次命令按钮，下列程序代码的执行结果为()。 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 Function P(N As Integer) Static sum For I=I To N Sum = sum +1 Next I P =sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S： End Sub

A．20

B．30

C．115

D．135

单击命令按钮时，下列程序代码的执行结果为_________。 Public Sub Procl(n As Integer，By Val m As Integer) n=n Mod i() m=m/10 End Sub Private Sub Command1 CliCk() Dim x As Integer，y As Integer x=12：y=34 Call Procl(x，y) Print x；y End Sub

A．12 34

B．2 34

C．2 3

D．12 3

单击命令按钮时，下列程序代码的执行结果为()。 Private Sub Procl(nAs Integer,ByValmASInteger) n=nMod 10 m=m\10 End Sub PrivateSubCommandl_Click() Dimx As Integer Dimy As Integer x=12 y=34 CallProcl(x，y) Printx；y End Sub

A．12 34

B．2 34

C．2 3

D．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 Sub

A．1232

B．232

C．23

D．123

在窗体上画一个命令按钮，其名称为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 Sub

A．* * * * * *

B．* * * * * *

C．* * *

D．* * * * * *

单击命令按钮时，下列程序代码的执行结果为______。 Private Sub Proe1 (n As Integer，ByVa1 m As Integer) n=n Mod 10 m=m\ 10 End Sub Private Sub Command1_Click() Dim x As Integer Dim y As Integer x= 12 y = 34 Call Proe1 (x, y) Print x; y End Sub

A． 12 34

B．2 34

C．2 3

D．12 3

单击命令按钮时，下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer，ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer x=12：y=34 Call Procl(x，y) Print x；y End Sub

A．12 34

B．2 34

C．2 3

D．12 3

单击命令按钮时，下列程序代码的执行结果为 ______。 Public Sub Procl(n As Integer，ByVal m As Integer) n=n Mod 10 m=m/10 End Sub Private Sub Command1_Click() Dim x As Integer，y As Integer x=12: y=34 Call Procl(x，y) Print x；y End Sub

A．12 34

B．2 34

C．2 3

D．12 3