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

admin2019-02-19  26

问题 在窗体中添加一个名称为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=m-n,m的值变为6;第2次循环时由于m<n,所以执行n=n-m,n的值变为12;第3次循环时由于m<n,所以执行n=n-m,n的值变为6,此时结束循环返回6。
转载请注明原文地址:https://kaotiyun.com/show/EL0p777K
0

最新回复(0)