-----窮舉法設(shè)計(jì)程序算法與程序設(shè)計(jì)高二信息技術(shù)欣賞一段影片請(qǐng)同學(xué)們下載共享空間下的2位破解密碼的程序，運(yùn)行改程序，破解密碼。程序界面如下圖

這種將求解對(duì)象一一列舉出來，然后逐一加以分析、處理，并驗(yàn)證結(jié)果是否滿足給定的條件，窮舉完所有對(duì)象，問題將最終得以解決的方法，稱為窮舉法也叫枚舉法、列舉法窮舉法●了解窮舉法的特點(diǎn)，掌握用窮舉法設(shè)計(jì)算法的基本要求●學(xué)會(huì)編寫程序?qū)崿F(xiàn)窮舉法學(xué)習(xí)目標(biāo)：●使用哪種編程工具來編寫程序?

●高級(jí)語言VisualBasic如果密碼是5位數(shù)，我們還能用剛才的方法破解嗎？

分析問題：密碼范圍是10000—99999。

算法實(shí)現(xiàn)：設(shè)a為設(shè)定的5位數(shù)密碼，i為循環(huán)變量。窮舉過程如下：I取初值10000終止值取99999測(cè)試i是否等于a，若是，則輸出密碼正確，若不是，將i加1，繼續(xù)測(cè)試執(zhí)行

直到密碼正確后退出。任務(wù)一：密碼是一個(gè)5位數(shù)（第一位不為0）

代碼實(shí)現(xiàn)：●

從10000—99999窮舉可用循環(huán)實(shí)現(xiàn)●

判斷a是否等于i可用if語句實(shí)現(xiàn)。PrivateSubCommand1_Click()DimaaslongDimiaslonga=Val(Text1.Text)Fori=

To_______

If

Then_______

EndIfNextiEndSub●文件保存為.exe格式（位置桌面）●界面整潔、美觀

設(shè)計(jì)界面：

●在窗體中添加一個(gè)命令按鈕對(duì)象、2個(gè)文本框?qū)ο蟆⒁粋€(gè)標(biāo)簽對(duì)象要求：PrivateSubCommand1_Click()DimaaslongDimiaslonga=Val(Text1.Text)Fori=

To_______

If

Then_______

EndIfNextiEndSub利用窮舉法解決問題的思路：依據(jù)題目的已知條件，確定答案的大致范圍，在此范圍內(nèi)對(duì)所有可能的情況，逐一驗(yàn)證，直到全部情況驗(yàn)證完，若某種情況經(jīng)驗(yàn)符合條件則輸出結(jié)果，否則繼續(xù)查找，直到全部情況查詢完畢為止。Dimx,y,zAsIntegerForx=__To9Fory=__To9Forz=__To9If______________=x^3+y^3+z^3ThenPrintx;y;zEndIfNextzNextyNextx任務(wù)二：用窮舉法找出所有的“水仙花數(shù)”。說明：水仙花數(shù)是一個(gè)三位數(shù)，它的各位數(shù)的立方和等于該數(shù)本身。如：153=1^3+5^3+3^3●

問題解的可能搜索的范圍：用循環(huán)或循環(huán)嵌套

結(jié)構(gòu)實(shí)現(xiàn)；●寫出符合問題解的條件；課堂總結(jié)●利用不同的思路編寫程序，窮舉出所有的“水仙花數(shù)”拓展思考Dimx,y,z,aAsIntegerFora=100to999x=

y=z=if