計算機VB簡單編程題目實訓五.ppt

實訓五 選擇程序設計,一、實訓目的 1、掌握IfThenElse 語句的用法。 2、掌握Select CaseEnd Select語句的用法。 二、實訓內(nèi)容 1、 If Then Else 語句 【實訓要求】 已知三角形的三條邊，求三角形的面積。要求：三條邊由文本框輸入。 【實訓步驟】 第1步：在窗體上創(chuàng)建5個標簽、4個文本框和命令按鈕。,第2步：控件的初始屬性設置后的界面如圖所示：,第3步：編寫代碼：SX5_1.vbp Private Sub Command1_Click() 計算按鈕 a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) If Then p = (a + b + c) / 2 s = Sqr(p * (p - a) * (p - b) * (p - c) Text4.Text = Else Text4.Text = “數(shù)據(jù)錯誤“ End If End Sub, 清除按鈕,Private Sub Command2_Click() Text1.Text = “ Text2.Text = “ Text3.Text = “ Text4.Text = “ Text1.SetFocus End Sub Private Sub Command3_Click() 結束按鈕 End End Sub 運行程序后，在a、b、c中輸入數(shù)據(jù)后單擊“計算”按鈕，其界面如圖所示：,2、做一做,利用If.Then.Else 語句編寫求函數(shù) 的值的程序，要求只要在文本框Text1中輸入自變量x的值，就在標簽 label1上顯示函數(shù)值。界面如圖： 根據(jù)題意，在窗體上添加一個文本框控件Text1和標簽控件label1，代碼應包含在Text1_change事件中。 sx5_2.vbp,3、做一做,編程檢查文本框中輸入的表達式中圓括號是否配對，并顯示相應的結果。 要求：邊輸入，邊統(tǒng)計，以回車符作為表達式輸 入結束。 sx5_3.VBP,4、 Select Case End Select 語句,【實驗要求】 下表是華中航空總公司機票打折表。試根據(jù)此表編寫程序。日期、機票數(shù)從文本框中輸入，打折情況在窗體上輸出。 Sx5_4.vbp 【實驗步驟】 第1步：在窗體上添加6個標簽Label1 Label6，Label1 Label5的Caption屬性依次為： “請輸入日期”、“月”、“日”、“請輸入訂票數(shù)”、“張”，Label6的Caption屬性設計時為空白，運行時用來顯示優(yōu)惠率。 添加3個文本框控件Text1Text3，添加一個命令按鈕Command1。,機票優(yōu)惠率表,要求：,1、雙擊Text1可以取系統(tǒng)的日期作為輸入日期 2、單擊Text1清空所有文本框的內(nèi)容，單擊其他文本框，只清空被單擊的文本框的內(nèi)容。 3、當按回車鍵時，焦點自動跳到下一個文本框。 第2步：控件的初始屬性設置后的界面如圖所示：,第3步：編寫代碼。,Private Sub Command1_Click() Dim intnn As Long 訂票數(shù)量 Dim intss As Integer,strdate As Integer 優(yōu)惠率、 日期 intnn = Clng(Text3.Text) strdate = Cint(Trim(Text1.Text) & Trim(Text2.Text) Select Case Case 428 To 431, 51 To 57, 928 To 931, 101 To 107 If intnn = 30 Then intss = 35 Else intss = 15 Case 71 To 79, 710 To 731, 81 To 89, 810 To 831 If intnn = 30 Then intss = 30 Else intss = 20 If intnn = 30 Then intss = 25 Else intss = 10 End Select Label6.Caption = “您所訂機票優(yōu)惠率為:“ & str(intss) & “%“ End Sub,另外，可以取系統(tǒng)的日期作為輸入日期,該事件可以指定為Text1_DbClick事件，即雙擊Text1將系統(tǒng)的月份和日期分別取到文本框Text1 和Text2中 ，其代碼應為： Private Sub Text1_DblClick() Text1.Text = Text2.Text = End Sub 當要重新輸入數(shù)據(jù)時，可以自動清空各文本框的內(nèi)容。其中單擊Text1清空所有文本框的內(nèi)容，單擊其他文本框，只清空被單擊的文本框的內(nèi)容。 Private Sub Text1_Click() Text1.Text = “ Text2.Text = “ Text3.Text = “ End Sub,Private Sub Text2_Click() Text2.Text = “ End Sub Private Sub Text3_Click() Text3.Text = “ End Sub,此外，還應當按回車鍵時，焦點自動跳到下一個文本框：,Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii =