问题 填空题

当运行下列程序,单击窗体后,分别输入72和24,信息框上显示的结果是 【13】 。 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 Dor=a Mod ba = bb = r Loop Until r=0 funl=a End Function

答案

参考答案:X

解析:

[分析]: 由“欧几里德”求最大公约数的算法可知,当余数r为零时,a为a和b的最大公约数。72和24的最大公约数为6。“Mod”运算符用来对两个数做除法运算并且只返回余数。

选择题
填空题