[填空题] 下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。Private Sub Command1_Click() Dim x As Long， y

15 查阅

[填空题] 下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。Private Sub Command1_Click() Dim x As Long， y As Long，i As Long x=Val(Text1．Text) y=Val(Text2．Text) Text3．Text = Str( 【13】 )End SubFunction fun1(a As Long，b As Long)As Long Dim r As Long Dim t As Long If 【14】 Thent = aa = bb = t End If r = a Mod b Do While r ＜＞ 0a = bb = rr = a Mod b Loop 【15】 End Function

参考答案:

[13]fun1(x，y)[分析]：由“欧几里德”求最大公约数的算法可知，当余数r为零时，b为x和y的最大公约数。填空[13]是将fun1的计算值返回。为了确保a＞b，如果程序中的填空[14](a＜b)的条件成立的话，就将a和b的值对调。填空[15]就是将最大公约数b赋值给函数名fun1，由它将计算结果返回去。

[14]a＜b[15]fun1=b

计算机考试