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