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

A．0

B．2

C．4

D．6

[单选题]单击命令按钮时，下列程序代码的执行结果为 Private Sub Command1_Click( ) Print MyFunc(24，18) End Sub Public Function MyFunc(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 My Func=m End FunctionA．2B．4C．6D．8

[单选题]单击命令按钮时，下列程序代码的执行结果为( )。 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 SubA．12 34B．2 34C．2 3D．12 3

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

[单选题]单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click() Print MyFund(20，18) End Sub Public Function MyFund(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 MyFund=m End FunctionA．0B．2C．4D．6

[单选题]单击命令按钮时，下列程序的运行结果为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 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 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 Commandl_Click() Dimx As Integer，y As Integer x=12： y=32 CallPCS(x，y) PrintX；y End Sub PubUc Sub PCS(ByValn As Integer，ByValm As Integer) n=nMod 10 m=mMod 10 End SubA．1232B．232C．23D．123

[单选题]单击命令按钮时,下列程序的执行结果为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 SubA．12 32B．2 32C．2 3D．12 3