PAGEPAGE4實(shí)驗(yàn)四循環(huán)結(jié)構(gòu)程序設(shè)計(jì)〔4個(gè)學(xué)時(shí)〕一、實(shí)驗(yàn)?zāi)康恼莆誇or循環(huán)語(yǔ)句的使用。掌握單Do循環(huán)語(yǔ)句的使用。掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。二、實(shí)驗(yàn)內(nèi)容1.設(shè)計(jì)一個(gè)程序：用For循環(huán)語(yǔ)句計(jì)算1~n(正整數(shù))的所有的偶數(shù)之和。要求:程序運(yùn)行后，單擊窗體彈出一個(gè)輸入框由用戶輸入n的值，然后在窗體上顯示計(jì)算的結(jié)果。1〕代碼設(shè)計(jì)如下PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegera=InputBox("請(qǐng)輸入n值",n,"")Forb=2ToaIfbMod2=0Thenc=c+bEndIfNextbPrintcEndSub2〕將輸入100時(shí)的運(yùn)行結(jié)果的界面截下來(lái)粘貼在下面：3〕調(diào)試過(guò)程記錄〔錯(cuò)誤情況及改正方法〕2．設(shè)計(jì)程序：求100以內(nèi)所有19的倍數(shù)的數(shù)。并求這些數(shù)的和。要求：點(diǎn)擊“顯示〞按鈕時(shí)，將結(jié)果顯示在窗體上。點(diǎn)擊“求和〞按鈕時(shí)，將結(jié)果顯示在一個(gè)文本框中。1〕代碼設(shè)計(jì)如下DimbAsInteger,cAsIntegerPrivateSubCommand1_Click()Forb=1To100IfbMod19=0ThenPrintbEndIfNextbEndSubPrivateSubCommand2_Click()Forb=1To100IfbMod19=0Thenc=c+bEndIfNextbText1.Text=cEndSub2〕將運(yùn)行結(jié)果的界面截下來(lái)粘貼在下面3〕調(diào)試過(guò)程記錄〔錯(cuò)誤情況及改正方法〕3.設(shè)計(jì)一個(gè)程序：我國(guó)今年的國(guó)民生產(chǎn)總值為45600億元，假設(shè)今后每年以9%的增長(zhǎng)率增長(zhǎng)，計(jì)算多少年后能實(shí)現(xiàn)國(guó)民生產(chǎn)總值翻一番？要求：?jiǎn)螕簟坝?jì)算〞按鈕時(shí)，將計(jì)算的結(jié)果顯示在窗體上。1〕代碼設(shè)計(jì)PrivateSubCommand1_Click()DimaAsLong,bAsLong,cAsIntegera=45600:b=2*a:c=0DoWhilea<ba=1.09*ac=c+1LoopPrintcEndSub2〕將運(yùn)行結(jié)果的界面截下來(lái)粘貼在下面3〕調(diào)試過(guò)程記錄〔錯(cuò)誤情況及改正方法〕4.編寫(xiě)一個(gè)程序，點(diǎn)擊窗體時(shí)在窗體上輸出所有水仙花數(shù)〔水仙花數(shù)是指一個(gè)三位十進(jìn)制正整數(shù)，該數(shù)的各位數(shù)字的立方和等于該數(shù)本身，例如153是個(gè)水仙花數(shù)，因?yàn)?^3+5^3+3^3=153〕。1〕代碼設(shè)計(jì)PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegerFora=1To9Forb=0To9Forc=0To9If(100*a+10*b+c)=(a^3+b^3+c^3)ThenPrinta&b&cEndIfNextcNextbNextaEndSub2〕將程序運(yùn)行的結(jié)果圖截下粘貼在下面。3〕調(diào)試過(guò)程記錄〔錯(cuò)誤情況及改正方法〕5.編寫(xiě)一個(gè)程序解百馬百瓦古題：大、小馬和馬駒共100匹，共馱100片瓦，大馬一馱三，小馬一馱二，馬駒二馱一，一次馱完，三種馬都馱，共有多少種組合？要求：?jiǎn)螕舸绑w將結(jié)果顯示在窗體上。1〕代碼設(shè)計(jì)PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsInteger,dAsIntegerd=0Fora=1To100Forb=1To(100-a)c=100-a-bIf(3*a+2*b+c/2)=100Thend=d+1Printd;Tab;"大馬"&a&"匹";Tab;"小馬"&b&"匹";Tab;"馬駒"&c&"匹"Print"************************************"EndIfNextbNextaPrint"共有"&d&"種方法"EndSub2〕將程序運(yùn)行的結(jié)果圖截下粘貼在下面。3〕調(diào)試過(guò)程記錄〔錯(cuò)誤情況及改正方法〕錯(cuò)誤Fora=0To100Forb=0To(100-a)Forc=0To(100-a-b)If(3*a+2*b+c/2)=100Thend=d+1Printd;Tab;"大馬"&a&"匹";Tab;"小馬"&b&"匹";Tab;"馬駒"&c&"匹"Print"**********