【正文】 s = / t = a / b End Select = a amp。“計(jì)算”按鈕 Dim a As Single, b As Single, t As Single, s As String a = Val() b = Val() Select Case True Case 39。關(guān)閉計(jì)時(shí)器 End Sub Private Sub Command1_Click() 39。計(jì)時(shí)器控件 Timer1的計(jì)時(shí)器采用默認(rèn)的屬性值 Enabled屬性值為 True(真 )， Interval屬性值為 0 例 實(shí)現(xiàn)字體的放大 中國(guó)最大的資料庫(kù)下載 (2)編寫(xiě)程序代碼 Private Sub Form_Load() = 放大 = ?把標(biāo)簽的高度和寬度 ‘設(shè)置為窗體相同尺寸 = = 800 End Sub Private Sub Timer1_Timer() If 140 Then = * Else = 8 End If End Sub 中國(guó)最大的資料庫(kù)下載 例 電子倒計(jì)時(shí)器。也就是說(shuō)，計(jì)時(shí)器控件對(duì)象在間隔了一個(gè) Interval設(shè)定時(shí)間后，便觸發(fā)一次Timer事件 中國(guó)最大的資料庫(kù)下載 (1)創(chuàng)建應(yīng)用程序的用戶(hù)界面和設(shè)置對(duì)象屬性 一個(gè)計(jì)時(shí)器控件和一個(gè)文本框。判復(fù)選框 2是否選中 = 1 Else = 0 End If End Sub Private Sub Check3_Click() If = 1 Then 39。求出的兔數(shù) j2 = Val(InputBox(雞的只數(shù)是多少？ , 請(qǐng)回答 )) t2 = Val(InputBox(兔的只數(shù)是多少？ , 請(qǐng)回答 )) Select Case True 39。 雞兔同籠，已知雞和兔總頭數(shù)為 23， Print Spc(3)。 Case Is5 ′表示條件在小于 5范圍取值 中國(guó)最大的資料庫(kù)下載 實(shí)現(xiàn)例 ， 程序代碼如下： Private Sub mand1_click() Dim score As Integer, temp As String score = Val() temp = 成績(jī)等級(jí)為： 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 = 成績(jī)出錯(cuò) End Select End Sub 例 用 Select Case語(yǔ)句來(lái)實(shí)現(xiàn)多分支選擇功能 中國(guó)最大的資料庫(kù)下載 雞兔同籠，已知雞和兔總頭數(shù)為 h=23，總腳數(shù)為 f=56，求雞兔各有多少只 ? 再提供輸入框由學(xué)生回答問(wèn)題，然后采用輸出框顯示對(duì) 設(shè)計(jì)步驟如下： (1)在窗體上設(shè)置一個(gè)命令按鈕 Command1 (2)采用窗體的裝載事件 Form_Load,使考題內(nèi)容直接顯示在窗體上。如果沒(méi)有相符合的 Case值，則執(zhí)行 Case Else中的語(yǔ)句塊 多分支語(yǔ)句 中國(guó)最大的資料庫(kù)下載 表達(dá)式表通常是一個(gè)具體值 (如 Case 1)，每一個(gè)值確定一個(gè)分支。 如果所有條件都是假，那么執(zhí)行 Else后面的語(yǔ)句塊 n，然后執(zhí)行 End If 2. ElseIf格式 If h 12 Then Print 早上好！ ElseIf h 18 Then Print 下午好！ Else Print 晚上好！ End If 中國(guó)最大的資料庫(kù)下載 輸入學(xué)生成績(jī) (百分制 )，判斷該成績(jī)的等級(jí) (優(yōu)、良、中、及格、不及格 ) (1)創(chuàng)建應(yīng)用程序的用戶(hù)界面和設(shè)置對(duì)象屬性 (2)編寫(xiě)程序代碼 功能要求： 用戶(hù)從“成績(jī)”文本框 (Text1)中輸入學(xué)生成績(jī)，單擊“執(zhí)行”按鈕 (mand1)后，經(jīng)判斷得到等級(jí)并顯示在標(biāo)簽 Label2上。 中國(guó)最大的資料庫(kù)下載 例如： 0時(shí)至 12時(shí)，顯示“早上好” 利用窗體裝載 (Load)事件，采用 Print直接在窗體上輸出結(jié)果 Private Sub Form_Load() Dim h As Integer Show 39。 , amp。m用來(lái)存放較大值 Else m = b End If If c m Then m = c = m End Sub 程序代碼 中國(guó)最大的資料庫(kù)下載 (1)建立應(yīng)用程序的用戶(hù)界面和設(shè)置對(duì)象屬性 (2)編寫(xiě)程序代碼 功能要求：用戶(hù)從上面三個(gè)文本框 (Text Text Text3)中輸入數(shù)據(jù)，單擊“排序”按鈕 (Command1)，則在第 4個(gè)文本框 (Text4)中顯示結(jié)果 例 輸入三個(gè)數(shù)，將它們從大到小排序 中國(guó)最大的資料庫(kù)下載 Private Sub Command1_Click() a = Val() b = Val() c = Val() If a b Then 39。舉例 3*2 8