A-A+
当运行下列程序 单击窗体后 分别输入72和24 信息框上显示的结果是【 】。 Private
问题详情
当运行下列程序,单击窗体后,分别输入72和24,信息框上显示的结果是【 】。 Private Sub Form_Click() Dim x As Integer,y As Integer x=Val(InputBox("输入整数72")) y=Val(InputBox("输入整数24")) z=fun1(x,y) MsgBox Str(Z) End Sub Private Function funl(ByVal a As Integer, ByVal b As Integer)As Integer Do r=a Mod b a = b b = r Loop Until r=0 funl=a End Function
请帮忙给出正确答案和分析,谢谢!
参考答案
正确答案:24
由“欧几里德”求最大公约数的算法可知,当余数r为零时,a为a和b的最大公约数。72和24的最大公约数为6。“Mod”运算符用来对两个数做除法运算并且只返回余数。