Private Sub Commandl Click ()
MsgBox f ( 24,18 )
E.nd Sub
Public Function f ( m As Integer,n As Integer ) As Integer
D.o While m<>n
D.o While m>n
m=m-n
Loop
D.o While m<n
n=n-m
Loop
Loop
f=m
E.nd Function
窗体打开运行后,单击命令按钮,则消息框的输出结果是
A. ) 2
B. ) 4
C. ) 6
D. ) 8