[填空题] 当下列程序运行，单击窗体后，分别输入72和24，信息框上显示的结果是______。 Private Sub Form_Click( ) Dim

[填空题] 当下列程序运行，单击窗体后，分别输入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”运算符用来对两个数作除法并且只返回余数。