[填空題] 本程序的功能是找出10到60之間所有不可以表示成兩個平方數(shù)之和的數(shù),請完善本程序Option ExplicitPrivate Sub CmdFind
2021-07-20
[填空題] 本程序的功能是找出10到60之間所有不可以表示成兩個平方數(shù)之和的數(shù),請完善本程序Option ExplicitPrivate Sub CmdFind_Click()Dim i As Integer,j As Integer,k As IntegerDim p As Integer,q As IntegerFor i=10 To 60For j=1 To Int(Sqr(i))（）q=i-PIf q0 And judge(q) Then Exit ForNext jIf?（） Thenk=k+1Text1.Text=Text1.Text & i & " "If k Mod 5=0 Then Text1.Text=Text1.Text & vbCrlfEnd IfNext iEndSubPublic Function judge(ByVal x As Integer)As BooleanIf?（） Thenjudge=TrueElsejudge=FalseEnd IfEnd Function
正確答案：p=j*j；j=int(sqr(i))+1 或j>int(sqr(i))；int(sqr(x))=sqr(x)
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。