實(shí)驗(yàn)四 程序控制結(jié)構(gòu).doc

實(shí)驗(yàn)四 程序控制結(jié)構(gòu)一 、實(shí)驗(yàn)?zāi)康? 掌握順序結(jié)構(gòu)語(yǔ)句（賦值、輸出、注釋、程序終止等）的使用。2 掌握單分支、雙分支、多分支條件語(yǔ)句的使用。3 掌握For語(yǔ)句、While語(yǔ)及Do語(yǔ)句的各種形式的使用。4 掌握如何控制循環(huán)條件，防止死循環(huán)或不循環(huán)。二 、實(shí)驗(yàn)內(nèi)容設(shè)計(jì)一個(gè)程序，從文本框中輸入一個(gè)整數(shù)，判斷該整數(shù)的奇偶性，并將結(jié)果顯示在一個(gè)標(biāo)簽上。要求該程序可反復(fù)輸入。 1)創(chuàng)建界面（將設(shè)計(jì)好的界面截下來(lái)粘貼在下面）2) 以表格形式進(jìn)行屬性設(shè)置（寫(xiě)出所有非默認(rèn)屬性值的設(shè)置）3) 代碼設(shè)計(jì)Private Sub Command1_Click() Dim x As Integer x = Val(Text1.Text) If x Mod 2 = 0 Then Label2.Caption = x & 是偶數(shù)。 Else Label2.Caption = x & 是奇數(shù)。 End IfEnd SubPrivate Sub Command2_Click() Text1.Text = Label2.Caption = End Sub4) 調(diào)試過(guò)程記錄（錯(cuò)誤情況及改正方法，不得少于三條）2創(chuàng)建一個(gè)窗體，通過(guò)文本框接收數(shù)據(jù)，計(jì)算期末總成績(jī)、平均成績(jī)，再評(píng)定等級(jí)。等級(jí)評(píng)定標(biāo)準(zhǔn)是：平均分90100為“優(yōu)秀”，平均分8190為“良好”，平均分6080為“中等”，平均分60以下為“差”，程序運(yùn)行結(jié)果如下所示。（參考教材P87例5.3）1）代碼設(shè)計(jì)2）運(yùn)行后的結(jié)果 （將運(yùn)行結(jié)果的界面截下來(lái)粘貼在下面）3）調(diào)試過(guò)程記錄（錯(cuò)誤情況及改正方法，不得少于三條）3. 設(shè)計(jì)一個(gè)程序?qū)崿F(xiàn)輸入銷(xiāo)售金額，系統(tǒng)自動(dòng)算出該銷(xiāo)售員的獎(jiǎng)金，要求用文本框輸入銷(xiāo)售額，獎(jiǎng)金顯示在標(biāo)簽。商場(chǎng)對(duì)售貨員的獎(jiǎng)勵(lì)機(jī)制如下：若銷(xiāo)售額大于或等于20 000元，則提取10%作為獎(jiǎng)勵(lì)；若銷(xiāo)售額大于或等于15 000元小于20 000元?jiǎng)t提取8%作為獎(jiǎng)勵(lì)；若銷(xiāo)售額大于或等于10 000元小于15 000元?jiǎng)t提取6%作為獎(jiǎng)勵(lì)；若銷(xiāo)售額小于或等于10 000元，則提取5%作為獎(jiǎng)勵(lì)。Private Sub Command1_Click()Dim s!s = Val(Text1.Text)If s = 20000 ThenLabel3.Caption = s * 0.1ElseIf s = 15000 ThenLabel3.Caption = s * 0.08ElseIf s = 10000 ThenLabel3.Caption = s * 0.06ElseLabel3.Caption = s * 0.05End IfEnd Sub1. 設(shè)計(jì)一個(gè)程序：用For 循環(huán)語(yǔ)句計(jì)算1 n (正整數(shù))的所有的偶數(shù)之和。要求: 程序運(yùn)行后，單擊窗體彈出一個(gè)輸入框由用戶(hù)輸入n的值，然后在窗體上顯示計(jì)算的結(jié)果。1）代碼設(shè)計(jì)如下Private Sub Form_Click()Dim n%, i%, s&n = Val(InputBox(請(qǐng)輸入一個(gè)正整數(shù)：)s = 0PrintPrintFor i = 1 To n If i Mod 2 = 0 Then s = s + i End IfNext iPrint Tab(4); 1 & n & (正整數(shù))的所有的偶數(shù)之和為 & sEnd Sub2）將輸入100 時(shí)的運(yùn)行結(jié)果的界面截下來(lái)粘貼在下面：3）調(diào)試過(guò)程記錄（錯(cuò)誤情況及改正方法）2設(shè)計(jì)程序：求100 以?xún)?nèi)所有19的倍數(shù)的數(shù)。并求這些數(shù)的和。 要求：點(diǎn)擊“顯示”按鈕時(shí)，將結(jié)果顯示在窗體上。點(diǎn)擊“求和”按鈕時(shí)，將結(jié)果顯示在一個(gè)文本框中。1）代碼設(shè)計(jì)如下Dim s&Private Sub Command1_Click()Dim i%PrintFor i = 1 To 100If i Mod 19 = 0 ThenPrint “100 以?xún)?nèi)所有19的倍數(shù)的數(shù)” & i;s = s + iEnd IfNext iEnd SubPrivate Sub Command2_Click()Text1.Text = sEnd Sub2）將運(yùn)行結(jié)果的界面截下來(lái)粘貼在下面3）調(diào)試過(guò)程記錄（錯(cuò)誤情況及改正方法）3. 設(shè)計(jì)一個(gè)程序：我國(guó)今年的國(guó)民生產(chǎn)總值為45600億元，若今后每年以9%的增長(zhǎng)率增長(zhǎng)，計(jì)算多少年后能實(shí)現(xiàn)國(guó)民生產(chǎn)總值翻一番？ 要求：?jiǎn)螕簟坝?jì)算”按鈕時(shí)，將計(jì)算的結(jié)果顯示在窗體上。1）代碼設(shè)計(jì)Private Sub Command1_Click()Dim p As DoubleDim r As SingleDim n As Integerp = 45600r = 0.09n = 0PrintDo Until p = 45600 * 2 p = p * (1 + r) n = n + 1LoopPrint Tab(3); n; 年后 & 能實(shí)現(xiàn)國(guó)民生產(chǎn)總值翻一番End Sub2）將運(yùn)行結(jié)果的界面截下來(lái)粘貼在下面3）調(diào)試過(guò)程記錄（錯(cuò)誤情況及改正方法）4. 編寫(xiě)一個(gè)程序，點(diǎn)擊窗體時(shí)在窗體上輸出100到999內(nèi)所有水仙花數(shù)（水仙花數(shù)是指一個(gè)三位十進(jìn)制正整數(shù)，該數(shù)的各位數(shù)字的立方之和等于該數(shù)本身，例如153是個(gè)水仙花數(shù)，因?yàn)?3+53+33 =153）。1）代碼設(shè)計(jì)Private Sub Form_Click()Dim i%, a%, b%, c%i = 100PrintWhile i 1000 a = i 100 b = (i Mod 100) 10 c = (i