![[填空题] 下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。 Private Sub Command1_Click() Dim x As Long，](http://www.mshxw.com/aiimages/31/249973.png "[填空题] 下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。 Private Sub Command1_Click() Dim x As Long，")
[填空题] 下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。
![[填空题] 下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。 Private Sub Command1_Click() Dim x As Long，](/uploadfile/member/20180926/1537963926.jpg "[填空题] 下列程序的功能是计算两个自然数的最大公约数，界面如下图所示。给定的程序不完整，将程序补充完整。 Private Sub Command1_Click() Dim x As Long，")
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 Sub
Function fun1(a As Long，b As Long)As Long
Dim r As Long
Dim t As Long
If 【14】 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
【15】
End Function
参考答案：
[13]fun1(x，y)[14]a＜b[15]fun1=b解析：[分析]： 由“欧几里德”求最大公约数的算法可知，当余数r为零时，b为x和y的最大公约数。填空[13]是将fun1的计算值返回。为了确保a＞b，如果程序中的填空[14](a＜b)的条件成立的话，就将a和b的值对调。填空[15]就是将最大公约数b赋值给函数名fun1，由它将计算结果返回去。问题解析:
解析无
