求完數（完美數）。一個數恰好等于除它本身外的因子之和，這個數就稱為完數。例如28除本身之外的因子是1，2，4，7，14，且1+2+4+7+14=28，則28是完數。下列Visual Basic程序用于查找2～10000中的所有完數，并將結果顯示在列表框List1中，程序運行界面如圖1所示。其中方框內程序對應的流程圖如圖2所示
程序代碼如下：
Private Sub Command1_Click （ ）
Dim i As Integer,t As Integer,s as integer
|
For x=2 To 10000 s=0 For i=1 To x\2 If x Modi=0 Then s=② End If Next i If s=xThen List1．AddItem① End If Next x End sub |
枚舉算法
枚舉算法
。 （選填：解析算法/枚舉算法）（2）在程序①和②橫線處，填入適當的語句或表達式，把程序補充完整：
程序中①橫線處應填入
str（s）或str（x）
str（s）或str（x）
。程序中②橫線處應填入
s+i
s+i
。【考點】枚舉算法及程序實現．
【答案】枚舉算法；str（s）或str（x）；s+i
【解答】
【點評】
聲明：本試題解析著作權屬菁優網所有，未經書面同意，不得復制發布。
發布：2024/6/27 10:35:59組卷：8引用：1難度：0.2
相似題
-
1．以下問題，適合用枚舉法解決的是（ ）
發布：2024/11/8 11:30:1組卷：2引用：1難度：0.8 -
2．如果一個4位數恰好等于它的各位數字的4次方和，則這個數被稱為“玫瑰花”數。例如1634就是一個玫瑰花數：1634=14+64+34+44。如果要求出所有的玫瑰花數，下列算法合適的是（ ）
發布：2024/11/16 22:30:5組卷：7引用：2難度：0.5 -
3．若一個三位數abc,滿足abc=a3+b3+c3，則稱abc為水仙花數。如三位數153滿足13+53+33=1+125+27=153，則153是水仙花數。請把所有滿足條件的水仙花數輸出。
（1）分析問題。由題意可知，三位數的范圍是100～999，我們可以讓計算機一一檢查每一個三位數，輸出其中的水仙花數。設百位數字、十位數字、個位數字分別是a,b,c（0＜a≤9，0≤b≤9，0≤c≤9），這個三位數就可以表示為100×a+10×b+c,如果它正好等于各位數字的立方和，那么它就是水仙花數。
（2）設計算法。
①令a從1～9窮舉；
②令b從0～9窮舉；
③令c從0～9窮舉；
④如果100×a+10×b+c和a3+b3+c3相等，那么就把它輸出。
⑤轉步驟③，重復執行③④⑤，直到c窮舉完畢；
⑥轉步驟②，重復執行②③④⑤⑥，直到b窮舉完畢；
⑦轉步驟①，重復執行①②③④⑤⑥⑦，直到a窮舉完畢；
⑧跳出循環，結束。
（3）編寫程序。
（4）調試程序。發布：2024/8/7 8:0:9組卷：1引用：0難度：0.4