【正文】 計教程 29 2．關(guān)于格式 （ 1）“測試表達式”可以是數(shù)值、字符串表達式。 不合格 End If 3． 關(guān)于 語句塊 語句塊可以是一條或多條語句，可寫成一行或多行。 （ 5） A、 B、 C分別放入三個文本框。 編制事件過程 Command1_Click如下： Private Sub Command1_Click() Dim x as Single x=InputBox(輸入 x,計算分段函數(shù)的值 ) If x=5 Then =Str(1x*x) Else _ =Str((x5)^) End Sub Visual Basic程序設(shè)計教程 18 【 例 42】 在文本框內(nèi)輸入三個數(shù)，“排序”按鈕對它們從小到大排列。 西文字符使用 ASCII碼比較 漢字使用漢字內(nèi)碼比較。 VB常用的關(guān)系運算符有 6種： = (等于 )、 (不等于 )、 (大于 )、 =(大于等于 )、 (小于 )、 = (小于等于 )。綠色 = RGB(0, 255, 0) End Sub Private Sub Option3_Click() 39。 設(shè)置文本框字體字型 Visual Basic程序設(shè)計教程 8 各控件： 1個文本框：顯示文字。 流程可以如圖所示。 算法的優(yōu)劣關(guān)系到程序質(zhì)量的好壞。 算法決定了程序的結(jié)構(gòu)。 Visual Basic程序設(shè)計教程 7 【 例 41】 設(shè)計一個程序，界面如圖。設(shè)置 Caption 對單選按鈕和復(fù)選框編寫了共 9個簡單的事件過程。粗體 If = 1 Then = True Else = False End If End Sub Private Sub Check2_Click() 39。 所有的關(guān)系運算符優(yōu)先級相同，執(zhí)行次序從左到右。 Visual Basic程序設(shè)計教程 16 5 x5)(x 5x x1 f ( x )1 / 42????????【 例 】 編程，輸入 x，求下列分段函數(shù) f(x)值。 通過這樣兩次比較， A便是最小數(shù)了。其中標簽 Label5用于顯示等級 = 等級： amp。 Visual Basic程序設(shè)計教程 26 Dim nflag As Integer Dim smystring As String Private Sub Form_Load() nflag = 1 smystring = 歡迎使用 Visual Basic = 18 End Sub Private Sub Form_Click() If nflag = 1 Then = 黑體 Print smystring nflag = nflag + 1 Else If nflag = 2 Then = 楷體 _gb2312“ Print smystring nflag = nflag + 1 Else If nflag = 3 Then = 隸書 Print smystring nflag = nflag + 1 Else nflag = 1 End If End Sub 程序環(huán)境 【 例 】 在窗體中輪流以不同字體顯示文字 Visual Basic程序設(shè)計教程 27 Select Case是實現(xiàn)多分支程序設(shè)計的條件語句 Select Case又稱為“情況選擇”語句。以成績等級轉(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元。初始文字大小為 10磅。第三個按鈕被按下 = 36 End If End Sub ▲ 表達式 = True可直接寫成 Visual Basic程序設(shè)計教程 41 復(fù)選框 CheckBox 復(fù)選框允許用戶進行多項選擇 復(fù)選框有三種狀態(tài)：選中 (√)，沒選中和無效。 屬性設(shè)置 Label1： Caption：你沒有選擇項目 ! Check1～ Check6： Caption 分別設(shè)為： 100米、 200米、 400米、跳高、跳遠、鉛球 Form： Caption：田徑項目選擇 Visual Basic程序設(shè)計教程 44 復(fù)選框 CheckBox例（部分程序） Private Sub Check1_Click() Dim Flag As Integer, T As String Flag = 0 T = 你選擇了 : 39。 此時不能采用雙擊方法創(chuàng)建控件。 格式： Goto 行標簽 | 行號 行標簽為語句行標識符的簡稱。格式： On 表達式 GoTo 目標列表 1．有關(guān)格式 “表達式”值應(yīng)為 0至 255之間的數(shù)，一般取整數(shù)。小于 0無效 On Int(Average / 10) + 1 GoTo A1, A1, A1, A1, _ A1, A1, A2, A2, A2, A3, A3 A1: Print 等級： amp。(B+Sqr(D))/(2*A), “X2=”。 Visual Basic程序設(shè)計教程 57 【 例 47】 編程，求解一元二次方程： aX2＋ bX＋ c＝ 0。a=0,b=0,c=0 Else MsgBox 方 程 無 解 ?。?！ , , 出錯信息 39。a≠0,D≥0 X1 = (B + Sqr(D)) / (2 * A) : X2 = (B Sqr(D)) / (2 * A) MsgBox X1= amp。 T2 amp。 （ 2）完整的復(fù)根沒有存放在變量中 （ 3） Chr(13)表示換行。 （ 6）在屬性窗口將 Command1的 TabIndex設(shè)為 0，使窗體啟動后焦點自動在 Command1上。 程序中還存在一個問題，即四個選項中有可能會出現(xiàn)重復(fù)，如 A、 B均為 1，而選項是由加、減、乘、除結(jié)果的整數(shù)構(gòu)成，故