在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Commandl_Click() MsgBox f(24,18) End Sub Public Function f(m As

admin2018-01-25  23

问题 在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码:
    Private Sub Commandl_Click()
    MsgBox f(24,18)
    End Sub
    Public Function f(m As Integer,n As Integer)
As Integer
    Do While m < >n
    Do While In>n
    m=m-n
    Loop
    Do While In<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。
转载请注明原文地址:https://kaotiyun.com/show/WXMp777K
0

最新回复(0)