第8課選擇語句實(shí)驗(yàn)五

1、 開關(guān)燈程序 1.實(shí)踐目標(biāo)（1）掌握?qǐng)D像、按鈕控件的使用。（2）初步掌握賦值、選擇結(jié)構(gòu)語句的使用。（3）初步學(xué)會(huì)選擇結(jié)構(gòu)的算法和程序設(shè)計(jì)。（4）掌握VB程序的調(diào)試和運(yùn)行。 2.任務(wù)描述 參考圖10-1，設(shè)計(jì)一個(gè)模擬控制電燈開、關(guān)的程序。單擊命令按鈕“開 燈”（Command1）后，電燈變亮，同時(shí)按鈕標(biāo)題（Caption）變?yōu)椤瓣P(guān) 燈”；單擊命令按鈕“開 燈”（Command1）后，電燈滅掉，同時(shí)按鈕標(biāo)題（Caption）變?yōu)椤伴_ 燈”。圖10-1 模擬控制電燈開、關(guān)的程序執(zhí)行效果 3.操作提示（1）分析問題?！盁袅痢焙汀盁魷纭逼鋵?shí)是兩張圖片的呈現(xiàn)效果，可用圖像對(duì)象Image0來顯示“燈滅”圖片

2、，用Image1來顯示“燈亮”圖片，設(shè)計(jì)界面時(shí)將Image1置于Image0的前方，當(dāng)Image1“可見”時(shí)我們就看到“燈亮”效果，當(dāng)Image1“不可見”時(shí)我們就看到“燈滅”效果。命令按鈕Command1的標(biāo)題改變可通過賦值語句來實(shí)現(xiàn)。在顯示新的效果前要判斷原有狀態(tài)，所以要采用選擇結(jié)構(gòu)進(jìn)行程序設(shè)計(jì)。（2）設(shè)計(jì)界面。新建一個(gè)工程，在窗體中添加兩個(gè)圖像（Image）對(duì)象，并將其名稱分別命名為“image0”、“image1”，“Picture”屬性值分別設(shè)置為“燈滅”、“燈亮”圖片，拉伸（Stretch）屬性值都設(shè)置為“True”，寬度（Width）和高度（Height）屬性值設(shè)置為相同。并將對(duì)

3、象Image1置于前方。命令按鈕Command1的標(biāo)題（Caption）屬性值設(shè)置為“開 燈”。如圖10-2所示。Image0Image1Command1圖10-2 開、關(guān)燈程序的界面設(shè)計(jì) 最后，需要將燈亮的圖像對(duì)象Image1移動(dòng)到Image0前方，確保程序運(yùn)行時(shí)只能看到其中一張圖片。 （3）設(shè)計(jì)算法。命令按鈕Command1被單擊后，所需處理的算法可用流程圖描述如下：開始Image1不可見？使Image1可見使按鈕標(biāo)題為“關(guān)燈”使Image1不可見使按鈕標(biāo)題為“開燈”結(jié)束YN（4）編寫程序。根據(jù)流程圖的算法描述，完善下列程序，并將其輸入到命令按鈕Command1相應(yīng)的事件驅(qū)動(dòng)程序中。Pri

4、vate Sub Command1_Click()If Image1.Visible = False Then Image1.Visible = _ Command1.Caption = "關(guān) 燈" Else Image1.Visible = _ Command1.Caption = "開 燈"End IfEnd Sub （5）運(yùn)行調(diào)試程序。運(yùn)行完成的VB應(yīng)用程序并進(jìn)行相應(yīng)的操作，觀察運(yùn)行結(jié)果，若有錯(cuò)則修改程序直至正確。 【擴(kuò)展與提高】 （6）對(duì)上述程序進(jìn)行改進(jìn)，使得程序能統(tǒng)計(jì)開、關(guān)燈總的次數(shù)并在窗體中顯示開、關(guān)燈的總操作次數(shù)。 4.相關(guān)練習(xí)（1）變量a

5、,b,c分別保存一元二次方程的二次項(xiàng)、一次項(xiàng)系數(shù)和常數(shù)項(xiàng)（其中a0），變量x1和x2分別保存方程的兩個(gè)根。下列程序根據(jù)方程的a,b,c計(jì)算根并輸出相應(yīng)信息，請(qǐng)完善下列程序。d_If d 0 Thenx1_x2_Text4.TextStr（x1）Text5.TextStr（x2）Label6.Caption"有兩個(gè)不同的實(shí)數(shù)根"ElseIf _ Thenx1（b） / （2*a）x2x1Text4.TextStr（x1）Text5.TextStr（x2）Label6.Caption"有兩個(gè)相同的實(shí)數(shù)根"ElseText4.Text""T

6、ext5.Text""Label6.Caption"沒有實(shí)數(shù)根"End IfEnd If（2）下列是VB程序運(yùn)行調(diào)試時(shí)所涉及的一般操作步驟：根據(jù)錯(cuò)誤提示修改程序 保存程序 再次運(yùn)行程序，觀察程序運(yùn)行是否正確 結(jié)束程序運(yùn)行圖10-3 某VB應(yīng)用程序運(yùn)行時(shí)出錯(cuò)提示信息某VB應(yīng)用程序運(yùn)行時(shí)出現(xiàn)如圖10-3所示提示信息，在單擊“確定”按鈕關(guān)閉“編譯錯(cuò)誤”提示窗體后，進(jìn)行應(yīng)用程序修改的正確步驟應(yīng)該是（ ）A.B.C.D.（3）根據(jù)圖10-3所示的程序，說明第二行代碼出現(xiàn)了語法錯(cuò)誤，則該行代碼（“If Image1.Visible = False The”）應(yīng)修改為

7、：實(shí)驗(yàn)2 運(yùn)費(fèi)計(jì)算鐵路托運(yùn)行李，從甲地到乙地，規(guī)定每張客標(biāo)托運(yùn)費(fèi)計(jì)算方法是:行李重量不超過50公斤時(shí)，每公斤0.5元，超過50公斤超過100公斤時(shí)，其超過部分每公斤1.5元，超過100公斤時(shí)，其超過部分每公斤2元。請(qǐng)計(jì)算并輸出托運(yùn)的費(fèi)用。提示1.先分析計(jì)算托運(yùn)費(fèi)用的公式。設(shè)行李重量為W公斤，應(yīng)付運(yùn)費(fèi)為X元，則運(yùn)費(fèi)公式為： 當(dāng)W <=50 時(shí)，則 X=0.5*W 當(dāng) 50 < W <=100 時(shí)，則 X=05*50+1.5*（W-50）當(dāng) W > 100 時(shí)，則X=0.5*50+1.5*50+（W-100）2. 新建工程文件“實(shí)驗(yàn)5.2.vbp”，在其中新建窗體form1

8、，并在上面添加一個(gè)按鈕控件，其caption屬性設(shè)為“計(jì)算費(fèi)用”，再添加一個(gè)文本框text1，界面如圖18所示：圖18 程序界面3.在單擊按鈕相應(yīng)的事件過程中添加代碼。Private Sub Command1_Click() If Not IsNumeric(Text1.Text) Then MsgBox "您輸入的不是數(shù)值數(shù)據(jù)" Else w = Val(Text1.Text) If w <= 50 Then x = 0.5 * w Else If w <= 100 Then x = 0.5 * 50 + 1.5 * (w - 50) Else x = 0.5 * 50 + 1.5