问题详情

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


请帮忙给出正确答案和分析，谢谢！