[計(jì)算機(jī)軟件及應(yīng)用]vb第4章教案-免費(fèi)閱讀
【正文】 i = R amp。取數(shù)據(jù) c If a = 0 Then 39。關(guān)閉計(jì)時(shí)器 End Sub Private Sub Command1_Click() 39。也就是說(shuō)，計(jì)時(shí)器控件 對(duì)象在間隔了一個(gè) Interval設(shè)定時(shí)間后，便觸發(fā)一次 Timer事件。判復(fù)選框 2是否選中 = True Else = False End If End Sub Private Sub Check3_Click() If = 1 Then 39。 1. 單選按鈕的用途 單選按鈕 (OptionButton)控件由一個(gè)圓圈“○”及緊挨它的文 字組成，能提供“選中”和“未選中”兩種可選項(xiàng)。取系統(tǒng)的時(shí)間 FontSize = 30 : ForeColor = RGB(255, 0, 0) BackColor = RGB(255, 255, 0) If h 12 Then Print 早上好！ Else If h 18 Then Print 下午好！ Else Print 晚上好！ End If End If End Sub 例 根據(jù)不同的時(shí)間段發(fā)出問(wèn)候語(yǔ) 例 If 條件 1 Then 語(yǔ)句塊 1 ElseIf 條件 2 Then 語(yǔ)句塊 2 ElseIf 條件 3 Then 語(yǔ)句塊 3 …… ［ Else 語(yǔ)句塊 n］ End If 先測(cè)試條件 1，如果為假，就依次測(cè)試條件 2，依此類推，直到找到為真的條件。 多行 (塊 )結(jié)構(gòu) 單行結(jié)構(gòu) 表達(dá)式 T F 語(yǔ)句（塊） 單分支結(jié)構(gòu) 格式： If 條件 Then 語(yǔ)句塊 1 (A) Else 語(yǔ)句塊 2 (B) End If 功能： 首先測(cè)試條件 (E)，如果條件成立 (即值為真 )，則執(zhí)行 Then后面的語(yǔ)句塊 1，如果條件不成立 (即值為假 )，則執(zhí)行 Else后面的語(yǔ)句塊 2。 T Xor T 為 F T Xor F 為 T F Xor T 為 T F Xor F 為 F Eqv — 邏輯等：兩個(gè)操作數(shù)相同時(shí)，結(jié)果為真。 ☆ 如果兩個(gè)操作數(shù)是數(shù)值型，則按其大小比較；如果兩個(gè)操作數(shù)是字符型，則按字符的 ASCII值從左到右一一比較。 由關(guān)系運(yùn)算符連接起來(lái)的式子就是關(guān)系表達(dá)式，關(guān)系表達(dá)式的 結(jié)果是邏輯值，一般表示一個(gè)條件是否成立。 Not F 為 T Not T 為 F And — 邏輯與：兩個(gè)操作數(shù)都為真時(shí)結(jié)果為真。表示為： 年齡 =35 And 職稱 =“ 高級(jí)工程師 ” And 政治面目 =“中共黨員 ” 若表示為： 年齡 =35 Or 職稱 =“ 高級(jí)工程師 ” Or 政治面目 =“中共黨員 ” 表示三個(gè)條件只要有一個(gè)成立即可。 If 條件 1 Then If 條件 2 Then … End If Else … End If 使用條件語(yǔ)句嵌套時(shí)，一定要注意 If與 Else， If與 End If的配 對(duì)關(guān)系。如果沒(méi)有相符合的 Case值，則執(zhí)行 Case Else中的語(yǔ)句塊。 2. Caption Value屬性：表示復(fù)選框的狀態(tài) 有三種取值： 0——未選中 (缺省值 ) 1——選中 2——不可用 (灰色顯示 ) Alignment屬性； Style 3. 復(fù)選框可響應(yīng)的事件與單選按鈕基本相同。 Enabled屬性 ：確定計(jì)時(shí)器是否可用。先由用戶給定倒計(jì)時(shí)的初始分秒數(shù)，然 后開(kāi)始倒計(jì)時(shí)，當(dāng)計(jì)到 0分 0秒時(shí)，通過(guò)消息對(duì)話框顯示“倒計(jì) 時(shí)結(jié)束” (1)在窗體上建立一個(gè)計(jì)時(shí)器 (Timer1)、兩個(gè)標(biāo)簽、兩個(gè)文 本框 (Text1和 Text2)和一個(gè)命令按鈕 (Command1)，計(jì)時(shí)器的 Enabled屬性值為 True, Interval屬性值為 0 例 程序舉例 (2)編寫程序代碼 Dim m As Integer,
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1