单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print Fun(23,18) End Sub Public Function Fun(m As Integer，n As Integer)As Integer Do While m＜＞n Do While m＞n:m=m-n:Loop Do While m＜n:n=n-m:Loop Loop Fun=m End Function

A．0

B．1

C．3

D．5

[单选题]单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click()Print Fun(23，18)E．nd SubPublic Function Fun(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:LoopLoopF．un=mE．nd FunctionA．0B．1C．3D．5

[单选题]单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print Fun(23, 18) End Sub Public Function Fun(m As Integer, n As Integer) As Integer Do Whilem ＜＞ n Do While m ＞ n : m--m - n: Loop Do While m ＜ n : n=n - m: Loop Loop Fun =m End FunctionA．0B．1C．3D．5

[单选题]单击命令按钮时，下列程序的运行结果为Private Sub Command1_Click( ) Print MyBM(23，18)End SubPublic Function MyBM(m As Integer，n As Integer)As Integer Do While m< >n Do While m ＞ n：m=m - n：Loop Do While m ＜ n：n=n - m：Loop Loop MyBM=mEnd FunctionA．0B．1C．3D．5

[单选题]单击命令按钮时，下列程序的执行结果为 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

[单选题]单击命令按钮时，下列程序的执行结果是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 SubA．15B．16C．17D．18

[单选题]单击命令按钮时，下列程序的执行结果是Private Sub Command1_Click()D．ima As Integer，b As Integer，c As Integera=3:b=4:c=5Print SecProc(c,b,A)End SubF．unction FirProc(x As Integer，y As Integer，z As Integer)F．irProc=2*x+y+3*z+2E．nd FunctionF．unction SecProc(x As Integer，y A

[单选题]单击命令按钮时，下列程序的执行结果是 Private Sub Command1_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，

[单选题]单击命令按钮时，下列程序的执行结果是 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 SubA．15B．16C．17D．18

[单选题]单击命令按钮时，下列程序的执行结果是 Private Sub Command1_Click() BT4 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 SubA．15B．16C．17D．18