計(jì)算機(jī)VB簡(jiǎn)單編程題目實(shí)訓(xùn)五.pptVIP

實(shí)訓(xùn)五 選擇程序設(shè)計(jì),一、實(shí)訓(xùn)目的 1、掌握IfThenElse 語(yǔ)句的用法。 2、掌握Select CaseEnd Select語(yǔ)句的用法。 二、實(shí)訓(xùn)內(nèi)容 1、 If Then Else 語(yǔ)句 【實(shí)訓(xùn)要求】 已知三角形的三條邊，求三角形的面積。要求：三條邊由文本框輸入。 【實(shí)訓(xùn)步驟】 第1步：在窗體上創(chuàng)建5個(gè)標(biāo)簽、4個(gè)文本框和命令按鈕。,第2步：控件的初始屬性設(shè)置后的界面如圖所示：,第3步：編寫(xiě)代碼：SX5_1.vbp Private Sub Command1_Click() 計(jì)算按鈕 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ù)錯(cuò)誤“ End If End Sub, 清除按鈕,Private Sub Command2_Click() Text1.Text = “ Text2.Text = “ Text3.Text = “ Text4.Text = “ Text1.SetFocus End Sub Private Sub Command3_Click() 結(jié)束按鈕 End End Sub 運(yùn)行程序后，在a、b、c中輸入數(shù)據(jù)后單擊“計(jì)算”按鈕，其界面如圖所示：,2、做一做,利用If.Then.Else 語(yǔ)句編寫(xiě)求函數(shù) 的值的程序，要求只要在文本框Text1中輸入自變量x的值，就在標(biāo)簽 label1上顯示函數(shù)值。界面如圖： 根據(jù)題意，在窗體上添加一個(gè)文本框控件Text1和標(biāo)簽控件label1，代碼應(yīng)包含在Text1_change事件中。 sx5_2.vbp,3、做一做,編程檢查文本框中輸入的表達(dá)式中圓括號(hào)是否配對(duì)，并顯示相應(yīng)的結(jié)果。 要求：邊輸入，邊統(tǒng)計(jì)，以回車(chē)符作為表達(dá)式輸 入結(jié)束。 sx5_3.VBP,4、 Select Case End Select 語(yǔ)句,【實(shí)驗(yàn)要求】 下表是華中航空總公司機(jī)票打折表。試根據(jù)此表編寫(xiě)程序。日期、機(jī)票數(shù)從文本框中輸入，打折情況在窗體上輸出。 Sx5_4.vbp 【實(shí)驗(yàn)步驟】 第1步：在窗體上添加6個(gè)標(biāo)簽Label1 Label6，Label1 Label5的Caption屬性依次為： “請(qǐng)輸入日期”、“月”、“日”、“請(qǐng)輸入訂票數(shù)”、“張”，Label6的Caption屬性設(shè)計(jì)時(shí)為空白，運(yùn)行時(shí)用來(lái)顯示優(yōu)惠率。 添加3個(gè)文本框控件Text1Text3，添加一個(gè)命令按鈕Command1。,機(jī)票優(yōu)惠率表,要求：,1、雙擊Text1可以取系統(tǒng)的日期作為輸入日期 2、單擊Text1清空所有文本框的內(nèi)容，單擊其他文本框，只清空被單擊的文本框的內(nèi)容。 3、當(dāng)按回車(chē)鍵時(shí)，焦點(diǎn)自動(dòng)跳到下一個(gè)文本框。 第2步：控件的初始屬性設(shè)置后的界面如圖所示：,第3步：編寫(xiě)代碼。,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 = “您所訂機(jī)票優(yōu)惠率為:“ & str(intss) & “%“ End Sub,另外，可以取系統(tǒng)的日期作為輸入日期,該事件可以指定為T(mén)ext1_DbClick事件，即雙擊Text1將系統(tǒng)的月份和日期分別取到文本框Text1 和Text2中 ，其代碼應(yīng)為： Private Sub Text1_DblClick() Text1.Text = Text2.Text = End Sub 當(dāng)要重新輸入數(shù)據(jù)時(shí)，可以自動(dòng)清空各文本框的內(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,此外，還應(yīng)當(dāng)按回車(chē)鍵時(shí)，焦點(diǎn)自動(dòng)跳到下一個(gè)文本框：,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 =