在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代

问题单项选择题

在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码： Private Sub Command1_Click() MsgBox f(24,18) End Sub Public Function f(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 f=m End Function 窗体打开运行后，单击命令按钮，则消息框的输出结果是（）。

A．2

B．4

C．6

D．8

答案

参考答案：C

解析：题目中命令按钮的单击事件是使用MsgBox显示过程f的值。在过程f中有两层Do循环，传入参数m=24，n=18，由于m＞n所以执行m=m-n=24-18=6，内层第1个Do循环结束后m=6，n=18；此时m小于n，所以再执行n=n-m=18-6=12，此时m=6，n=12；再执行n=n-m后m=n=6；m＜＞n条件满足，退出循环，然后执行f=m的赋值语句，即为f=m=6。