編寫VB程序，實(shí)現(xiàn)如下功能：有一個四位數(shù)，此數(shù)十位上的數(shù)字是7，且這個四位數(shù)是一個完全平方數(shù)，現(xiàn)要找出符合以上要求的所有四位數(shù)，并統(tǒng)計(jì)共有幾個數(shù)。單擊Command1按鈕，將符合要求的四位數(shù)顯示在列表框List1中，統(tǒng)計(jì)個數(shù)顯示在標(biāo)簽Label2中，界面如圖所示。
（1）若要修改窗體背景顏色，可在其屬性窗口中 BackColorBackColor屬性的屬性值進(jìn)行修改。
（2）解決這個問題采用的算法是 BB（填字母：A、解析算法 B、枚舉算法）
實(shí)現(xiàn)上述功能的VB程序如下，請?jiān)跈M線處填入合適的代碼。
Private Sub Command1_Click （ ?。?br />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）'將符合條件的四位數(shù)顯示在列表框中
num=num+1
End If
Next i
Label2．Caption=“共有：“+④Str（num）Str（num）+“個“
End Sub
【考點(diǎn)】枚舉算法及程序?qū)崿F(xiàn)．
【答案】BackColor；B；i\10 Mod 10；Sqr（i）=Int（Sqr（i））；List1．AddItemStr（i）；Str（num）
【解答】
【點(diǎn)評】
聲明：本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有，未經(jīng)書面同意，不得復(fù)制發(fā)布。
發(fā)布：2024/4/20 14:35:0組卷：21引用：1難度：0.4
相似題
-
1．以下問題，適合用枚舉法解決的是（ ?。?/h2>
發(fā)布：2024/11/8 11:30:1組卷：2引用：1難度：0.8 -
2．如果一個4位數(shù)恰好等于它的各位數(shù)字的4次方和，則這個數(shù)被稱為“玫瑰花”數(shù)。例如1634就是一個玫瑰花數(shù)：1634=14+64+34+44。如果要求出所有的玫瑰花數(shù)，下列算法合適的是（ ?。?/h2>
發(fā)布：2024/11/16 22:30:5組卷：7引用：2難度：0.5 -
3．若一個三位數(shù)abc,滿足abc=a3+b3+c3，則稱abc為水仙花數(shù)。如三位數(shù)153滿足13+53+33=1+125+27=153，則153是水仙花數(shù)。請把所有滿足條件的水仙花數(shù)輸出。
（1）分析問題。由題意可知，三位數(shù)的范圍是100～999，我們可以讓計(jì)算機(jī)一一檢查每一個三位數(shù)，輸出其中的水仙花數(shù)。設(shè)百位數(shù)字、十位數(shù)字、個位數(shù)字分別是a,b,c（0＜a≤9，0≤b≤9，0≤c≤9），這個三位數(shù)就可以表示為100×a+10×b+c,如果它正好等于各位數(shù)字的立方和，那么它就是水仙花數(shù)。
（2）設(shè)計(jì)算法。
①令a從1～9窮舉；
②令b從0～9窮舉；
③令c從0～9窮舉；
④如果100×a+10×b+c和a3+b3+c3相等，那么就把它輸出。
⑤轉(zhuǎn)步驟③，重復(fù)執(zhí)行③④⑤，直到c窮舉完畢；
⑥轉(zhuǎn)步驟②，重復(fù)執(zhí)行②③④⑤⑥，直到b窮舉完畢；
⑦轉(zhuǎn)步驟①，重復(fù)執(zhí)行①②③④⑤⑥⑦，直到a窮舉完畢；
⑧跳出循環(huán)，結(jié)束。
（3）編寫程序。
（4）調(diào)試程序。發(fā)布：2024/8/7 8:0:9組卷：1引用：0難度：0.4
把好題分享給你的好友吧~~