【正文】 = 1 Else = 0 End If End Sub Private Sub Check3_Click() If = 1 Then 39。提供“選中”和“未選中”兩種可選項(xiàng) 復(fù)選框控件與單選按鈕控件在使用方面的區(qū)別 2. Caption屬性 Value屬性： 表示復(fù)選框的狀態(tài) 有三種取值： 0——未選中 (缺省值 ) 1——選中 2——不可用 (灰色顯示 ) Alignment屬性； Style屬性 3. 復(fù)選框可響應(yīng)的事件與單選按鈕基本相同 復(fù)選框 中國最大的資料庫下載 (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 多行文本框 (帶垂直滾動(dòng)條 )和四個(gè)復(fù)選框 (2)編寫程序代碼 功能要求： 程序開始運(yùn)行后，用戶在文本框中輸入一段文字 (如“復(fù)選框應(yīng)用示例” )，然后按需要單擊各復(fù)選框，則文字的字體、字型、字號及顏色隨之改變 例 用復(fù)選框來控制文字的字體、字型、字號及顏色 中國最大的資料庫下載 Private Sub Check1_Click() If = 1 Then 39。求出的兔數(shù) j2 = Val(InputBox(雞的只數(shù)是多少？ , 請回答 )) t2 = Val(InputBox(兔的只數(shù)是多少？ , 請回答 )) Select Case True 39。總頭數(shù)及總腳數(shù) j1 = (4 * h f) / 2 39。 雞兔同籠，已知雞和兔總頭數(shù)為 23， Print Spc(3)。采用的程序代碼如下： Private Sub Form_Load() Show Print FontSize = 18 Print Spc(9)。 Case Is5 ′表示條件在小于 5范圍取值 中國最大的資料庫下載 實(shí)現(xiàn)例 ， 程序代碼如下： Private Sub mand1_click() Dim score As Integer, temp As String score = Val() temp = 成績等級為： Select Case score Case 0 To 59 = temp + 不及格 Case 60 To 69 = temp + 及格 Case 70 To 79 = temp + 中 Case 80 To 89 = temp + 良 Case 90 To 100 = temp + 優(yōu) Case Else = 成績出錯(cuò) End Select End Sub 例 用 Select Case語句來實(shí)現(xiàn)多分支選擇功能 中國最大的資料庫下載 雞兔同籠，已知雞和兔總頭數(shù)為 h=23，總腳數(shù)為 f=56，求雞兔各有多少只 ? 再提供輸入框由學(xué)生回答問題，然后采用輸出框顯示對 設(shè)計(jì)步驟如下： (1)在窗體上設(shè)置一個(gè)命令按鈕 Command1 (2)采用窗體的裝載事件 Form_Load,使考題內(nèi)容直接顯示在窗體上。 Case 1,3,5 ′表示條件在 1， 3， 5范圍內(nèi)取值 (2)表達(dá)式 1 TO 表達(dá)式 2。如果沒有相符合的 Case值，則執(zhí)行 Case Else中的語句塊 多分支語句 中國最大的資料庫下載 表達(dá)式表通常是一個(gè)具體值 (如 Case 1)，每一個(gè)值確定一個(gè)分支。更有效、更易讀，并且易于跟蹤調(diào)試。 如果所有條件都是假，那么執(zhí)行 Else后面的語句塊 n，然后執(zhí)行 End If 2. ElseIf格式 If h 12 Then Print 早上好！ ElseIf h 18 Then Print 下午好！ Else Print 晚上好！ End If 中國最大的資料庫下載 輸入學(xué)生成績 (百分制 )，判斷該成績的等級 (優(yōu)、良、中、及格、不及格 ) (1)創(chuàng)建應(yīng)用程序的用戶界面和設(shè)置對象屬性 (2)編寫程序代碼 功能要求： 用戶從“成績”文本框 (Text1)中輸入學(xué)生成績，單擊“執(zhí)行”按鈕 (mand1)后，經(jīng)判斷得到等級并顯示在標(biāo)簽 Label2上。取系統(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ā)出問候語 中國最大的資料庫下載 If 條件 1 Then 語句塊 1 ElseIf 條件 2 Then 語句塊 2 ElseIf 條件 3 Then 語句塊 3 …… ［ Else 語句塊 n］ End If 先測試條件 1，如果為假，就依次測試條件 2，依此類推，直到找到為真的條件。 中國最大的資料庫下載 例如： 0時(shí)至 1