實(shí)驗(yàn)9.順序結(jié)構(gòu)與分支程序設(shè)計(jì)

1、實(shí)驗(yàn)9.2 順序結(jié)構(gòu)與分支結(jié)構(gòu)程序設(shè)計(jì)【實(shí)驗(yàn)?zāi)繕?biāo)】1掌握創(chuàng)建、編輯、運(yùn)行模塊中的過(guò)程程序的方法2掌握順序語(yǔ)句、分支語(yǔ)句的功能和使用方法【實(shí)驗(yàn)內(nèi)容】1模塊的創(chuàng)建、編輯、修改2順序結(jié)構(gòu)的程序設(shè)計(jì)3分支結(jié)構(gòu)的程序設(shè)計(jì)【實(shí)驗(yàn)環(huán)境】本次實(shí)驗(yàn)的全部實(shí)驗(yàn)程序均要求在VBE的模塊中創(chuàng)建，不能直接在立即窗口中輸入。程序錄入完成以后，請(qǐng)運(yùn)行程序查看程序運(yùn)行結(jié)果?！痉椒ǚ治雠c操作步驟】1模塊的創(chuàng)建、編輯、運(yùn)行、修改(1)模塊的創(chuàng)建方法創(chuàng)建標(biāo)準(zhǔn)模塊的方法如下：（1）首先新建一個(gè)空白數(shù)據(jù)庫(kù)，命名為ch9.accdb。（2）選定數(shù)據(jù)庫(kù)窗口中的【模塊】選項(xiàng)卡。（2）單擊【新建】按鈕，進(jìn)入標(biāo)準(zhǔn)模塊窗口。（3）選擇【插入】菜單

2、中的【過(guò)程】命令，在彈出的對(duì)話(huà)框中輸入過(guò)程名稱(chēng)和過(guò)程類(lèi)型；然后單擊【確定】按鈕，將所需的過(guò)程或函數(shù)添加到模塊。（4）根據(jù)過(guò)程的功能，編寫(xiě)過(guò)程代碼。2順序結(jié)構(gòu)的程序設(shè)計(jì)（1）編寫(xiě)子過(guò)程sub1：要求當(dāng)用戶(hù)通過(guò)鍵盤(pán)輸入自己生日的年月日后，計(jì)算其迄今為止出生的天數(shù)。 在VBE窗口中，選擇【插入】菜單中的【過(guò)程】命令，在彈出的對(duì)話(huà)框中輸入過(guò)程名稱(chēng)“sub1”和過(guò)程類(lèi)型“子程序”；然后單擊【確定】按鈕，將所需的過(guò)程添加到模塊。 在子程序過(guò)程編輯窗口中輸入程序，完成后如下所示代碼：Public Sub sub1() Dim nyear As Integer, nmonth As Integer, nday

3、 As Integer, n As Integer nyear = Val(InputBox(輸入出生年份:) 直接輸入四位年份，如1993 nmonth = Val(InputBox(輸入出生月份:) nday = Val(InputBox(輸入出生日歷:) n = Date - DateSerial(nyear, nmonth, nday) Debug.Print nEnd Sub 單擊工具欄的運(yùn)行按鈕，執(zhí)行程序，若出現(xiàn)錯(cuò)誤請(qǐng)查找錯(cuò)誤原因。也可按照自己的想法去完善程序的功能。單擊保存按鈕，將該模塊保存為“實(shí)驗(yàn)9-2”（2）在上面創(chuàng)建的模塊中編寫(xiě)子過(guò)程sub2：求半徑為R的圓的面積和周長(zhǎng)。參

4、考程序：Public Sub sub2() Const PI = 3.1415926 Dim r As Single, s As Single, c As Single r = Val(InputBox(請(qǐng)輸入半徑:) s = PI * r 2 c = 2 * PI * r Debug.Print 面積為： & s & ；周長(zhǎng)為： & c & ；End Sub3分支結(jié)構(gòu)的程序設(shè)計(jì)（1）已知某公民的月收入，計(jì)算出該公民的納稅金額。納稅方式為如果月收入超過(guò)了800元，超過(guò)部分應(yīng)繳納20%的稅金。通過(guò)鍵盤(pán)輸入納稅金額，運(yùn)行程序的結(jié)果是顯示相應(yīng)的稅金。編寫(xiě)子程序sub3實(shí)現(xiàn)上述功能。參考程序：Publ

5、ic Sub sub3() ygz = Val(InputBox(請(qǐng)輸入收入金額:) If ygz 800 Then tax = (ygz - 800) * 0.2 Else tax = 0 End If MsgBox 您本月扣除的所得稅 + Str(tax), vbInformation, 本月個(gè)人所得稅End Sub（2）編寫(xiě)子程序sub4：用戶(hù)通過(guò)鍵盤(pán)輸入變量x的值，返回下列函數(shù)y的值。 參考程序：Public Sub sub4( ) x = Val(InputBox(請(qǐng)輸入收入金額:) If x 0 Then y = -1 Else y = 1 End If MsgBox y= & Str(y)End Sub（3）編寫(xiě)子程序sub5，計(jì)算下列函數(shù)值：參考程序：Public Sub sub5() x = Val(InputBox(請(qǐng)輸入收入金額:) If x 0 Then y = -1 ElseIf x = 0 Then y = 0 Else y = 1 End If MsgBox y= & Str(y)End Sub（4）將子程序sub5復(fù)制一份更改為sub6，將程序修改如下：Public Sub sub6(