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

admin2013-02-04  36

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

解析  本题考查的是VBA编程基础、循环嵌套。本程序中包含有两个内循环,下面介绍一下该程序的运行过程,程序刚开始运行时,初始值:m=24,n=18。首先判断外层循环条件表达式m<>n,值为真,再判断m>n,由于24>18,所以循环继续执行。m=m-n=24-18=6,此时m<n,条件不成立,退出第一个内循环。接着执行第二个内循环:首先判断m<n,条件符合,循环继续执行,n=n-m=18-6=12,此时n>m,第二个内循环的条件仍然符合,再次执行,n=n-m=12-6=6,此时,m=6,n=6,条件表达式的值为假,退出第二个内循环,再判断外层循环的条件m<>n,此时,条件表达式m<>n的值为假,退出外层循环,循环结束。函数的返回值为6,所以单击命令按钮,则消息框的输出结果是6。
转载请注明原文地址:https://kaotiyun.com/show/C0up777K
0

最新回复(0)