實驗四 循環(huán)結(jié)構(gòu)程序設(shè)計

PAGEPAGE9實驗四循環(huán)結(jié)構(gòu)程序設(shè)計（4個學(xué)時）一、實驗?zāi)康恼莆誇or循環(huán)語句的使用。掌握單Do循環(huán)語句的使用。掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。二、實驗內(nèi)容1.設(shè)計一個程序：用For循環(huán)語句計算1~n(正整數(shù))的所有的偶數(shù)之和。要求:程序運行后，單擊窗體彈出一個輸入框由用戶輸入n的值，然后在窗體上顯示計算的結(jié)果。1）代碼設(shè)計如下OptionExplicitDimnAsInteger,sumAsInteger,mAsIntegerPrivateSubForm_Load()Shown=Val(InputBox("請輸入n的值"))sum=0Form=1TonIfmMod2=0Thensum=sum+mNextmPrint"1-n間所有偶數(shù)這和為：";sumEndSub2）將輸入100時的運行結(jié)果的界面截下來粘貼在下面：3）調(diào)試過程記錄（錯誤情況及改正方法）2．設(shè)計程序：求100以內(nèi)所有19的倍數(shù)的數(shù)。并求這些數(shù)的和。要求：點擊“顯示”按鈕時，將結(jié)果顯示在窗體上。點擊“求和”按鈕時，將結(jié)果顯示在一個文本框中。1）代碼設(shè)計如下OptionExplicitDimnAsInteger,sumAsIntegerPrivateSubCommand1_Click()Forn=1To100IfnMod19=0ThenPrintn:sum=sum+nNextnEndSubPrivateSubCommand2_Click()Text1.Text=sumEndSub2）將運行結(jié)果的界面截下來粘貼在下面3）調(diào)試過程記錄（錯誤情況及改正方法）3.設(shè)計一個程序：我國今年的國民生產(chǎn)總值為45600億元，若今后每年以9%的增長率增長，計算多少年后能實現(xiàn)國民生產(chǎn)總值翻一番？要求：單擊“計算”按鈕時，將計算的結(jié)果顯示在窗體上。1）代碼設(shè)計OptionExplicitDimnAsInteger,sAsDoublePrivateSubCommand1_Click()s=45600n=0DoUntils>=2*45600s=s*1.09n=n+1LoopPrintnEndSub2）將運行結(jié)果的界面截下來粘貼在下面3）調(diào)試過程記錄（錯誤情況及改正方法）4.編寫一個程序，點擊窗體時在窗體上輸出所有水仙花數(shù)（水仙花數(shù)是指一個三位十進制正整數(shù)，該數(shù)的各位數(shù)字的立方和等于該數(shù)本身，例如153是個水仙花數(shù)，因為1^3+5^3+3^3=153）。1）代碼設(shè)計OptionExplicitDimmAsLong,aAsInteger,bAsInteger,cAsIntegerPrivateSubForm_Load()ShowFora=1To9Forb=0To9Forc=0To9m=a*100+b*10+c*1Ifm=a^3+b^3+c^3ThenPrintmNextcNextbNextaEndSub2）將程序運行的結(jié)果圖截下粘貼在下面。3）調(diào)試過程記錄（錯誤情況及改正方法）5.編寫一個程序解百馬百瓦古題：大、小馬和馬駒共100匹，共馱100片瓦，大馬一馱三，小馬一馱二，馬駒二馱一，一次馱完，三種馬都馱，共有多少種組合？要求：單擊窗體將結(jié)果顯示在窗體上。1）代碼設(shè)計OptionExplicitDimaAsInteger,bAsInteger,cAsIntegerPrivateSubForm_Load()ShowFora=1To100Forb=1To100Forc=1To100If3*a+b*2+0.5*c=100Anda+b+c