选择题 31.  在窗体中添加一个名称为Commlandl的命令按钮,然后编写如下事件代码:
    Private Sub Comlmandl_Click()
    MsgBox f(24, 18)
    End Sub
    Public Function f(m As Integer, n As Integer)As Integer
    Do While < > n
    Do Whilem > n
    m=m-n
    Loop
    Do While m<n
    n=n-m
    Loop
    Loop
    f=m
    End Function
    窗体打开运行后,单击命令按钮,则消息框的输出结果是______。
【正确答案】 C
【答案解析】[考点] 本题考查VBA程序设计的知识。
当调用函数时,形参m=24,n=18;然后进入循环,由于m>n,所以执行m=m-n,m的值变为6;第2次循环时由于m<n,所以执行n=1-m,n的值变为12;第3次循环时由于m<n,所以执行n=n-m,n的值变为6,此时结束循环返回6。