![[填空题] 当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是______。 Private Sub Form_Click( ) Dim X As Inte9er, y As](http://www.mshxw.com/aiimages/31/252987.png "[填空题] 当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是______。 Private Sub Form_Click( ) Dim X As Inte9er, y As")
[填空题] 当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是______。
Private Sub Form_Click( )
Dim X As Inte9er, y As Integer
x=Val(InputBox("输入整数72"))
y=Val(InputBox("输入整数24"))
z=funl(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
h=r
Loop Until r=0
funl=a
End Function
参考答案：
X问题解析:
由“欧几里得”求最大公约数的算法可知，当余数r为零时，a为a和b的最大公约数。72和24的最大公约数为6。“Mod”运算符用来对两个数作除法并且只返回余数。
