在窗体中添加一个名称为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