編寫VB程序，實現如下功能：有一個四位數，此數十位上的數字是7，且這個四位數是一個完全平方數，現要找出符合以上要求的所有四位數，并統計共有幾個數。單擊Command1按鈕，將符合要求的四位數顯示在列表框List1中，統計個數顯示在標簽Label2中，界面如圖所示。
（1）若要修改窗體背景顏色，可在其屬性窗口中 BackColorBackColor屬性的屬性值進行修改。
（2）解決這個問題采用的算法是 BB（填字母：A、解析算法 B、枚舉算法）
實現上述功能的VB程序如下，請在橫線處填入合適的代碼。
Private Sub Command1_Click （ ）
Dim i As Integer,x As Integer,c As Integer
c=0
For i=1000To 9999
x=①i\10 Mod 10i\10 Mod 10
If ②Sqr（i）=Int（Sqr（i））Sqr（i）=Int（Sqr（i）） And x=7Then
③List1．AddItemStr（i）List1．AddItemStr（i）'將符合條件的四位數顯示在列表框中
num=num+1
End If
Next i
Label2．Caption=“共有：“+④Str（num）Str（num）+“個“
End Sub
【考點】枚舉算法及程序實現．
【答案】BackColor；B；i\10 Mod 10；Sqr（i）=Int（Sqr（i））；List1．AddItemStr（i）；Str（num）
【解答】
【點評】
聲明：本試題解析著作權屬菁優網所有，未經書面同意，不得復制發布。
發布：2024/4/20 14:35:0組卷：21引用：1難度：0.4
相似題
-
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