選擇結(jié)構(gòu)程序設(shè)計(2)(參考版)
2025-01-10 01:38本頁面
【正文】 提示信息停留 5秒 End If End Sub 58 程序運行效果如圖 ： 。 Hour(Time) amp。刷新時間 End Sub 在計時器 Timer1的 Timer的事件代碼如下： Private Sub Timer1_Timer() = Time If Minute(Time) = 0 And Second(Time) = 0 Then Beep 39。 56 設(shè)計步驟如下： 建立用戶界面與設(shè)置對象屬性。 要得到系統(tǒng)時間的分鐘和秒，可以用 Minute和 Second函數(shù)。同時檢測系統(tǒng)時間是否為整點，如是整點，則發(fā)出提示聲音和整點報時信息。 55 【 例 4． 9】 利用計時器控件制作一個電子時鐘，并實現(xiàn)整點報時。當(dāng) Enabled屬性值為True（缺省值）時，激活計時器開始計時；當(dāng) Enabled屬性值為 False時，計時器處于休眠狀態(tài)、不計時。當(dāng)Interval屬性值為 0時（缺省值），計時器不起作用；當(dāng)Interval屬性為 1000時，時間間隔是 1秒。在計時器控件中，比較重要的屬性是 Interval和 Enabled 54 1． Interval屬性 Interval屬性返回或設(shè)置計時器控件的 Timer事件響應(yīng)所需間隔的毫秒數(shù)。它的大小不可改變，也沒有 Width和Height屬性。它的缺省名稱為 Timer Timer … 。并設(shè)置上述控件相應(yīng)的 Caption屬性 47 設(shè)置好的界面如圖 ： 48 ： 是否加刪除線的復(fù)選框 Check1的 Click事件代碼： Private Sub Check1_Click() If = 1 Then = True Else = False End If End Sub 是否加下劃線的復(fù)選框 Check2的 Click事件代碼： Private Sub Check2_Click() If = 1 Then = True Else = False End If End Sub 49 是否為粗體的復(fù)選框 Check3的 Click事件代碼： Private Sub Check3_Click() If = 1 Then = True Else = False End If End Sub 是否為斜體的復(fù)選框 Check4的 Click事件代碼： Private Sub Check4_Click() If = 1 Then 39。在框架 Frame1中，添加一組單選按鈕Option1 、 Option2 、 Option Option4。 設(shè)計步驟： 建立用戶界面并設(shè)置相應(yīng)的屬性： 在窗體上添加一個標(biāo)簽控件 Label1， Caption屬性設(shè)置為： Visual Basic程序設(shè)計。通常也是在其他命令按鈕被按下時的相應(yīng) Click事件處理程序中，根據(jù)復(fù)選框的被選狀態(tài)，進(jìn)行不同的處理。 0：復(fù)選框在左，標(biāo)題在右，默認(rèn)值。 2：圖示變灰（變暗），表示禁止用戶選擇。 0：未被選擇，圖示為，默認(rèn)值。當(dāng)某一項被選中后，其左邊的小方框就變成 。 44 復(fù)選框 復(fù)選框控件 —CheckBox控件，它的圖形是。 0—Standard：標(biāo)準(zhǔn)方式 1—Granpical：圖形方式 43 ⑵ 、事件 單選按鈕可接受 Click事件，但通常不需要編寫 Click事件處理程序，因為單擊單選按鈕時，已將其狀態(tài)改變，而是在其他命令按鈕被按下時的相應(yīng) Click事件處理程序中，根據(jù)單選按鈕組的被選狀態(tài)，進(jìn)行不同的處理。 ③、 Caption屬性 設(shè)置單選按鈕的文本注釋內(nèi)容，即單選按鈕邊上的的文本標(biāo)題。 0：單選按鈕在左，標(biāo)題在右，默認(rèn)值。 False：未被選中，也稱為關(guān)閉狀態(tài)，圖示為，默認(rèn)值。下面介紹 OptionButton控件的屬性及事件： 42 ⑴ ． OptionButton控件的屬性 ① Value屬性 表示單選按鈕的被選狀態(tài)。 單選按鈕必須成組出現(xiàn)，通常將兩個或兩個以上的單選控件放在一個 Frame控件（框架）中，形成一個選項組 在選項組中使用單選按鈕，用戶只能選擇其中的一項，當(dāng)其中的一項被選中（即圖示為，也稱為打開狀態(tài)），其他選擇按鈕都被置于關(guān)閉狀態(tài)（即圖示為）。 41 單選按鈕 單選按鈕 —OptionButton控件，它的圖形是，用來表示是否被選中。單選按鈕必須成組出現(xiàn)，用戶在一組單選按鈕中必須而且最多只選擇一項。 如上述：若 x大于 0， 則 y等于 1；若 x小于 0， 則 y等于 1；否則 ， y 等于 0， 可以用： y=IIF(x0,1,IIF(x0,1,0)) 實現(xiàn) 。其它情況 r = 10 39。14月份 ,11月份 ,12月份 If n 20 Then r = 20 Else r = 30 39。7月份到 9月份 If n 20 Then r = 5 Else r = 15 39。m為月份 ,n為訂 票的數(shù)量 ,p1為優(yōu)惠前的單價 Dim r As Integer, s As Single, p2 As Single 39。編程計算優(yōu)惠后的單價和總金額。在旅游淡季 14月、 11月、 12月，如果訂票超過 20（含20）張，優(yōu)惠票價的 30%；訂票 20張以下優(yōu)惠票價的 20%。 注意：在選擇結(jié)構(gòu)的嵌套中 ,應(yīng)注意 Else與 If的配對關(guān)系。 例如：若 x大于 0，則 y等于 1；若 x小于 0，則 y等于 1；否則， y等于 0。 選擇結(jié)構(gòu)的嵌套既可以是同一種結(jié)構(gòu)的嵌套，也可以是不同結(jié)構(gòu)之間的嵌套。 y End Sub 從上述例題中 ,讀者可以發(fā)現(xiàn) ,同一個問題可以 Select Case語句實現(xiàn) ,也可以用 If…Then…ElseIf 語句實現(xiàn) . 34 選擇結(jié)構(gòu)的嵌套 將一個選擇結(jié)構(gòu)放在另一個選擇結(jié)構(gòu)內(nèi)，稱為選擇結(jié)構(gòu)的嵌套。 程序代碼如下： Private Sub Command1_Click() Dim x As Single, y As Single x = InputBox(請輸入購物金額： ) Select Case x Case Is 1000 Print 不優(yōu)惠 31 y = x Case Is 2022
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1