[填空題] 本程序的功能是:找出所有滿足各位數(shù)字之和正好是其所有質(zhì)因子之和的三位數(shù)。例如378,其各位數(shù)字之和為18,而其質(zhì)因子2,3,3,3,7之和也是18,
[填空題] 本程序的功能是:找出所有滿足各位數(shù)字之和正好是其所有質(zhì)因子之和的三位數(shù)。例如378,其各位數(shù)字之和為18,而其質(zhì)因子2,3,3,3,7之和也是18,所以378是滿足條件的數(shù)。Option ExplicitPrivate Sub CmdFind_Click()Dim i As Integer,p As String,st As String,st1 As StringFor i=100 To 999（）If csum(i)=zyz(i,st) Thenp=CStr(i)st1=Left(p,1) & "+" & Mid(p,2,1) & "+" & Right(p,1)List1.AddItem i & ": " & st1 & "=" & Left(st,Len(st)-1)End IfNext iIf List1.ListCount=0 ThenList1.AddItem "無滿足要求的數(shù)!"End IfEnd SubPrivate Function csum(m As Integer)As Integer ’求各位數(shù)字之和Dim i As Integer,p As Stringp=CStr(m)For i=1 To Len(p)（）Next iEnd FunctionPrivate Function zyz(ByVal m As Integer,st As String)As Integer ’求所有質(zhì)因子之和Dim i As Integeri=2DoIf m Mod i=0 Thenzyz=zyz+ist=st & i & "+"m=miEIse（）End IfLoop Until （）End Function
正確答案：st=""；csum=csum+val(mid(p,i,A))；i=i+A；m=A
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。