下列程序的功能是计算两个自然数的最大公约数 界面如下图所示。给定的程序不完整 将程序补充完整。 P
下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。 
Private Sub Command1_Click() Dim x As Long， y As Long，i As Long x=Val(Text1．Text) y=Val(TextText) TextText = Str(【 】) End Sub Function fun1(a As Long，b As Long)As Long Dim r As Long Dim t As Long If【 】Then t = a a = b b = t End If r = a Mod b Do While r ＜＞ 0 a = b b = r r = a Mod b Loop 【 】 End Function
请帮忙给出正确答案和分析，谢谢！
参考解答
4jj***262
2023-07-21 00:06:08
正确答案：fun1(xy) a＜b fun1=b
由“欧几里德”求最大公约数的算法可知，当余数r为零时，b为x和y的最大公约数。填空[13是将fun1的计算值返回。为了确保a＞b，如果程序中的填空[14(a＜b)的条件成立的话，就将a和b的值对调。填空[15就是将最大公约数b赋值给函数名fun1，由它将计算结果返回去。
相似问题
表达式2*4^2-2*6/3+3/2的值是【 】。请帮忙给出正确答案和分析 谢谢！
表达式2*4^2-2*6 3+3 2的值是【 】。请帮忙给出正确答案和分析，谢谢！
在窗体上画一个驱动器列表框 一个目录列表框和一个文件列表框 其名称分别为Dhvel Dirl和Fi
在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为Dhvel、 Dirl和File1。为了使它们同步操作，必须触发Drive1_Change()事件和
要想在文本框中显示垂直滚动条 必须将【 】属性设置为2 同时还应将MultiLine属性设置为Tru
要想在文本框中显示垂直滚动条，必须将【 】属性设置为2，同时还应将MultiLine属性设置为True。请帮忙给出正确答案和分析，谢谢！
在一个窗体上有一个命令按钮 CmdMax。单击CmdMax时 窗体上显示“字体由小变大” 字号每次增
在一个窗体上有一个命令按钮，CmdMax。单击CmdMax时，窗体上显示“字体由小变大”，字号每次增加2。请填空。 Private Sub Form_Load() Form1 Caption
要求打开随机文件“c:/Example.txt”文件 文件号为1 实现的语句是【 】。请帮忙给出正确
要求打开随机文件“c: Example txt”文件，文件号为1，实现的语句是【 】。请帮忙给出正确答案和分析，谢谢！
