[填空題] 下面的程序是找出兩個(gè)正整數(shù)a和b，使得a＜b、a+ b=99、a和b的最大公約數(shù)是3的倍數(shù)，并統(tǒng)計(jì)滿足條件數(shù)對的個(gè)數(shù)。Option Explicit
2021-07-20
[填空題] 下面的程序是找出兩個(gè)正整數(shù)a和b，使得a＜b、a+ b=99、a和b的最大公約數(shù)是3的倍數(shù)，并統(tǒng)計(jì)滿足條件數(shù)對的個(gè)數(shù)。
Option Explicit
Dim a As Integer, b As Integer, n As Integer, c As Integer
Private Function Gcd (ByVal a As Integer, Byval b As Integer) As Integer
do
c=a Mod b: a=b=c
Loop 【13】
Gcd=a
End Function
Private Sub form_ Click()
n=0
for a= 1 To 49
b= 【14】
c= Gcd (a, b)
if c Mod 3= 0 then
【15】
Print a, b, c
End if
Next a
Print n
End Sub
正確答案：[13]until c=0或while c＜＞0 [14]99-a [15]n=n+1
參考解析：由求最大公約數(shù)的算法可知，當(dāng)余數(shù)c為零時(shí)，a為a和b的最大公約數(shù)。因條件給定：“a+ b=99”，所以“b=99-a”。n為累計(jì)數(shù)。
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。