第8課選擇語句實驗五

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

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

3、象Image1置于前方。命令按鈕Command1的標題（Caption）屬性值設(shè)置為“開 燈”。如圖10-2所示。Image0Image1Command1圖10-2 開、關(guān)燈程序的界面設(shè)計 最后，需要將燈亮的圖像對象Image1移動到Image0前方，確保程序運行時只能看到其中一張圖片。 （3）設(shè)計算法。命令按鈕Command1被單擊后，所需處理的算法可用流程圖描述如下：開始Image1不可見？使Image1可見使按鈕標題為“關(guān)燈”使Image1不可見使按鈕標題為“開燈”結(jié)束YN（4）編寫程序。根據(jù)流程圖的算法描述，完善下列程序，并將其輸入到命令按鈕Command1相應(yīng)的事件驅(qū)動程序中。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）運行調(diào)試程序。運行完成的VB應(yīng)用程序并進行相應(yīng)的操作，觀察運行結(jié)果，若有錯則修改程序直至正確。 【擴展與提高】 （6）對上述程序進行改進，使得程序能統(tǒng)計開、關(guān)燈總的次數(shù)并在窗體中顯示開、關(guān)燈的總操作次數(shù)。 4.相關(guān)練習(xí)（1）變量a

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

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

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

8、，并在上面添加一個按鈕控件，其caption屬性設(shè)為“計算費用”，再添加一個文本框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