[填空題] 下列程序的功能是計算兩個自然數(shù)的最大公約數(shù)，界面如下圖所示。給定的程序不完整，將程序補充完整。 Private Sub Command1_Clic
2021-07-20
[填空題] 下列程序的功能是計算兩個自然數(shù)的最大公約數(shù)，界面如下圖所示。給定的程序不完整，將程序補充完整。
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解析：[分析]： 由“歐幾里德”求最大公約數(shù)的算法可知，當(dāng)余數(shù)r為零時，b為x和y的最大公約數(shù)。填空[13]是將fun1的計算值返回。為了確保a＞b，如果程序中的填空[14](a＜b)的條件成立的話，就將a和b的值對調(diào)。填空[15]就是將最大公約數(shù)b賦值給函數(shù)名fun1，由它將計算結(jié)果返回去。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。