【正文】 Visual Basic程序設(shè)計教程 61 其它屬性設(shè)置在代碼中進行。 i amp。a=0,b=0,c≠0 End If Else X1 = C / B 39。(BSqr(D))/(2*A) Exit Sub ?終止當(dāng)前事件過程（ Click）的執(zhí)行。 如果表達式值超范圍，則該語句無效。 （ 2）對已在窗體上的控件，放入框架，使用復(fù)制方法： 選擇控件 → 復(fù)制 → 選擇框架 → 粘貼。 1．創(chuàng)建復(fù)選框 在工具箱內(nèi)選取復(fù)選框工具。假定某單位薪金總值不超過 41600元， 41600元以下的工資、薪金部分的稅率表如表所示。 優(yōu)秀 ElseIf Average = 60 Then = 等級： amp。用InputBox輸入 x，計算結(jié)果 f(x)輸出到 Text控件。斜體 If = 1 Then = True Else = False End If End Sub Private Sub Check3_Click() 39。單選按鈕和復(fù)選框用于設(shè)置文本框文字的顏色、字體或字型。大學(xué)計算機基礎(chǔ)教程 TaiYuan University of Technology 第 4章 設(shè)計選擇結(jié)構(gòu)程序 Visual Basic 程序設(shè)計教程 Visual Basic程序設(shè)計教程 2 本章主要介紹： 選擇結(jié)構(gòu)： 有關(guān)表達式 單分支語句 多分支語句 單選按鈕 復(fù)選框 Visual Basic程序設(shè)計教程 3 程序就是數(shù)據(jù)加算法。 設(shè)計時先創(chuàng)建框架，在選擇框架的情況下，再創(chuàng)建其內(nèi)部其它控件。下劃線 If = 1 Then = True Else = False End If End Sub Visual Basic程序設(shè)計教程 10 比較大小的運算在程序設(shè)計中稱為關(guān)系運算。 Visual Basic程序設(shè)計教程 17 在窗體上建立文本框控件 Text1和命令按鈕控件 Command1。 合格 Else = 等級： amp。 現(xiàn)要求編寫一程序，在文本框中輸入工資或薪金總額，單擊“計算”按鈕，將求得的個人所得稅顯示在標(biāo)簽上。 2．復(fù)選框的主要屬性 （名稱）： Name，名稱，默認值為 Check1 Caption：標(biāo)題內(nèi)容，字符型。 Visual Basic程序設(shè)計教程 48 框架 Frame 3．框架的主要屬性 （名稱）： Name，框架名稱。 目標(biāo)列表 為一系列行標(biāo)簽或行號，逗號間隔，表示轉(zhuǎn)向的目標(biāo)位置。 ErrLine: MsgBox 對負數(shù)開平方根！ , vbCritical, 錯誤 End Sub 本例由于簡單，出錯能斷定由 Sqr函數(shù)的參數(shù)造成的。a=0,b≠0 MsgBox 方程只有一個解。 Chr(13) amp。 Visual Basic程序設(shè)計教程 62 Dim Result As Integer Private Sub Form_Load() Randomize: = False = 簡單四則運算 := 出題 = 可選答案 = 16: = = : = End Sub 變量 Result的聲明和 Form_Load初始化對象屬性 Visual Basic程序設(shè)計教程 63 Private Sub Command1_Click() Dim A As Integer, B As Integer, C As Integer, C1 As Integer, Flag As Integer Dim R1 As Integer, R2 As Integer, R3 As Integer If = “出題 Then 39。 （ 6）在屬性窗口將 Command1的 TabIndex設(shè)為 0，使窗體啟動后焦點自動在 Command1上。 T2 amp。a=0,b=0,c=0 Else MsgBox 方 程 無 解 ！?。?, , 出錯信息 39。(B+Sqr(D))/(2*A), “X2=”。格式： On 表達式 GoTo 目標(biāo)列表 1．有關(guān)格式 “表達式”值應(yīng)為 0至 255之間的數(shù)，一般取整數(shù)。 此時不能采用雙擊方法創(chuàng)建控件。第三個按鈕被按下 = 36 End If End Sub ▲ 表達式 = True可直接寫成 Visual Basic程序設(shè)計教程 41 復(fù)選框 CheckBox 復(fù)選框允許用戶進行多項選擇 復(fù)選框有三種狀態(tài)：選中 (√)，沒選中和無效。以成績等級轉(zhuǎn)換為例，使用Select Case語句的代碼如下： Visual Basic程序設(shè)計教程 31 Select Case Average Case 90 To 100 Print Average, 優(yōu)秀 Case 80 To 89 Print Average, 良好 Case 70 To 79 Print Average, 中等 Case 60 To 69 Print Average, 及格 Case 0 To 59 Print Average, 不及格 Case Else Print Average, 輸入數(shù)據(jù)錯誤 End Select Visual Basic程序設(shè)計教程 32 【 例 】 輸入年 、 月份 ， 輸出該月天數(shù) ,判斷某年 y是否為閏年的條件： y mod 4=0 and y mod 100 0 or y mod 400=0 程序環(huán)境 Visual Basic程序設(shè)計教程 33 【 例 43】 我國個人所得稅在 2022年元旦提高起征點，起征點的 1600元。其中標(biāo)簽 Label5用于顯示等級 = 等級： amp。 Visual Basic程序設(shè)計教程 16 5 x5)(x 5x x1 f ( x )1 / 42????????【 例 】 編程，輸入 x，求下列分段函數(shù) f(x)值。粗體 If = 1 Then = True Else = False End If End Sub Private Sub Check2_Click() 39。 Visual Basic程序設(shè)計教程 7 【 例 41】 設(shè)計一個程序，界面如圖。 算法的優(yōu)劣關(guān)系到程序質(zhì)量的好壞。 設(shè)置文本框字體字型 Visual Basic程序設(shè)計教程 8 各控件： 1個文本框：顯示文字。 VB常用的關(guān)系運算符有 6種： = (等于 )、 (不等于 )、 (大于 )、 =(大于等于 )、 (小于 )、 = (小于等于 )。 編制事件過程 Command1_Click如下： Private Sub Command1_Click() Dim x as Single x=InputBox(輸入 x,計算分段函數(shù)的值 ) If