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