当运行下列程序,单击窗体后,分别输入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