PAGEPAGE4實驗四循環結構程序設計〔4個學時〕一、實驗目的掌握For循環語句的使用。掌握單Do循環語句的使用。掌握如何控制循環條件，防止死循環或不循環。二、實驗內容1.設計一個程序：用For循環語句計算1~n(正整數)的所有的偶數之和。要求:程序運行后，單擊窗體彈出一個輸入框由用戶輸入n的值，然后在窗體上顯示計算的結果。1〕代碼設計如下PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegera=InputBox("請輸入n值",n,"")Forb=2ToaIfbMod2=0Thenc=c+bEndIfNextbPrintcEndSub2〕將輸入100時的運行結果的界面截下來粘貼在下面：3〕調試過程記錄〔錯誤情況及改正方法〕2．設計程序：求100以內所有19的倍數的數。并求這些數的和。要求：點擊“顯示〞按鈕時，將結果顯示在窗體上。點擊“求和〞按鈕時，將結果顯示在一個文本框中。1〕代碼設計如下DimbAsInteger,cAsIntegerPrivateSubCommand1_Click()Forb=1To100IfbMod19=0ThenPrintbEndIfNextbEndSubPrivateSubCommand2_Click()Forb=1To100IfbMod19=0Thenc=c+bEndIfNextbText1.Text=cEndSub2〕將運行結果的界面截下來粘貼在下面3〕調試過程記錄〔錯誤情況及改正方法〕3.設計一個程序：我國今年的國民生產總值為45600億元，假設今后每年以9%的增長率增長，計算多少年后能實現國民生產總值翻一番？要求：單擊“計算〞按鈕時，將計算的結果顯示在窗體上。1〕代碼設計PrivateSubCommand1_Click()DimaAsLong,bAsLong,cAsIntegera=45600:b=2*a:c=0DoWhilea<ba=1.09*ac=c+1LoopPrintcEndSub2〕將運行結果的界面截下來粘貼在下面3〕調試過程記錄〔錯誤情況及改正方法〕4.編寫一個程序，點擊窗體時在窗體上輸出所有水仙花數〔水仙花數是指一個三位十進制正整數，該數的各位數字的立方和等于該數本身，例如153是個水仙花數，因為1^3+5^3+3^3=153〕。1〕代碼設計PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsIntegerFora=1To9Forb=0To9Forc=0To9If(100*a+10*b+c)=(a^3+b^3+c^3)ThenPrinta&b&cEndIfNextcNextbNextaEndSub2〕將程序運行的結果圖截下粘貼在下面。3〕調試過程記錄〔錯誤情況及改正方法〕5.編寫一個程序解百馬百瓦古題：大、小馬和馬駒共100匹，共馱100片瓦，大馬一馱三，小馬一馱二，馬駒二馱一，一次馱完，三種馬都馱，共有多少種組合？要求：單擊窗體將結果顯示在窗體上。1〕代碼設計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〕將程序運行的結果圖截下粘貼在下面。3〕調試過程記錄〔錯誤情況及改正方法〕錯誤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"**********