實驗四 程序控制結(jié)構(gòu).doc

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