【正文】 就會(huì)有 2個(gè)選項(xiàng)均為 1。 Visual Basic程序設(shè)計(jì)教程 62 Dim Result As Integer Private Sub Form_Load() Randomize: = False = 簡(jiǎn)單四則運(yùn)算 := 出題 = 可選答案 = 16: = = : = End Sub 變量 Result的聲明和 Form_Load初始化對(duì)象屬性 Visual Basic程序設(shè)計(jì)教程 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。如圖。 Chr(13) amp。 Chr(13) amp。a=0,b≠0 MsgBox 方程只有一個(gè)解。要求： a、 b、 c可由用戶任意輸入，但不能讓 VB出現(xiàn)編譯錯(cuò)誤或運(yùn)行錯(cuò)誤。 ErrLine: MsgBox 對(duì)負(fù)數(shù)開(kāi)平方根！ , vbCritical, 錯(cuò)誤 End Sub 本例由于簡(jiǎn)單，出錯(cuò)能斷定由 Sqr函數(shù)的參數(shù)造成的。 合格 GoTo A4 A3: Print 等級(jí)： amp。 目標(biāo)列表 為一系列行標(biāo)簽或行號(hào)，逗號(hào)間隔，表示轉(zhuǎn)向的目標(biāo)位置。 語(yǔ)句執(zhí)行后，轉(zhuǎn)移到行標(biāo)簽 /行號(hào)所在處往下執(zhí)行。 Visual Basic程序設(shè)計(jì)教程 48 框架 Frame 3．框架的主要屬性 （名稱）： Name，框架名稱。 Flag作為標(biāo)志變量，只要有一項(xiàng)被選中， Flag就會(huì)變?yōu)?1。 2．復(fù)選框的主要屬性 （名稱）： Name，名稱，默認(rèn)值為 Check1 Caption：標(biāo)題內(nèi)容，字符型。 事件： Form_Load 和各單選按鈕的 Click Private Sub Form_Load() = 10 = True 39。 現(xiàn)要求編寫一程序，在文本框中輸入工資或薪金總額，單擊“計(jì)算”按鈕，將求得的個(gè)人所得稅顯示在標(biāo)簽上。 當(dāng)與所有的表達(dá)式值不符時(shí)，執(zhí)行 Case Else后的語(yǔ)句塊。 合格 Else = 等級(jí)： amp。 這樣 A、 B、 C已按從小到大排列。 Visual Basic程序設(shè)計(jì)教程 17 在窗體上建立文本框控件 Text1和命令按鈕控件 Command1。 Visual Basic程序設(shè)計(jì)教程 13 4．字符串比較 字符型數(shù)據(jù)， VB將按內(nèi)碼大小進(jìn)行比較。下劃線 If = 1 Then = True Else = False End If End Sub Visual Basic程序設(shè)計(jì)教程 10 比較大小的運(yùn)算在程序設(shè)計(jì)中稱為關(guān)系運(yùn)算。紅色 = RGB(255, 0, 0) End Sub Private Sub Option2_Click() 39。 設(shè)計(jì)時(shí)先創(chuàng)建框架，在選擇框架的情況下，再創(chuàng)建其內(nèi)部其它控件。 根據(jù)給定的條件來(lái)決定執(zhí)行不同的程序代碼段。大學(xué)計(jì)算機(jī)基礎(chǔ)教程 TaiYuan University of Technology 第 4章 設(shè)計(jì)選擇結(jié)構(gòu)程序 Visual Basic 程序設(shè)計(jì)教程 Visual Basic程序設(shè)計(jì)教程 2 本章主要介紹： 選擇結(jié)構(gòu)： 有關(guān)表達(dá)式 單分支語(yǔ)句 多分支語(yǔ)句 單選按鈕 復(fù)選框 Visual Basic程序設(shè)計(jì)教程 3 程序就是數(shù)據(jù)加算法。 Visual Basic程序設(shè)計(jì)教程 6 選擇結(jié)構(gòu)是程序結(jié)構(gòu)中的一種形式。單選按鈕和復(fù)選框用于設(shè)置文本框文字的顏色、字體或字型。 Visual Basic程序設(shè)計(jì)教程 9 Private Sub Option1_Click() 39。斜體 If = 1 Then = True Else = False End If End Sub Private Sub Check3_Click() 39。 如： 3 = 3+2，先執(zhí)行 3+2結(jié)果為 5，再比較 3=5，結(jié)果 False。用InputBox輸入 x，計(jì)算結(jié)果 f(x)輸出到 Text控件。 （ 4） B和 C比較，小的數(shù)放入 B，大的數(shù)放入 C。 優(yōu)秀 ElseIf Average = 60 Then = 等級(jí)： amp。 常用于分段計(jì)算、根據(jù)離散值處理信息 Select Case語(yǔ)句的其格式是： Select Case 測(cè)試表達(dá)式 [Case 表達(dá)式值 1 [ 語(yǔ)句塊 1 ]] [Case 表達(dá)式值 2 [ 語(yǔ)句塊 2 ]] …… [Case Else [ 語(yǔ)句塊 n+1]] End Select Visual Basic程序設(shè)計(jì)教程 28 1．語(yǔ)句執(zhí)行過(guò)程 先求出測(cè)試表達(dá)式的值 將值與 Case語(yǔ)句中的表達(dá)式值進(jìn)行比較，如果條件滿足，則執(zhí)行該 Case子句對(duì)應(yīng)的語(yǔ)句塊。假定某單位薪金總值不超過(guò) 41600元， 41600元以下的工資、薪金部分的稅率表如表所示。 控件： 1個(gè)文本框， 3個(gè)單選按鈕。 1．創(chuàng)建復(fù)選框 在工具箱內(nèi)選取復(fù)選框工具。T暫存標(biāo)簽要顯示的字符串 If = 1 Then T = T + + : Flag = 1 If = 1 Then T = T + + : Flag = 1 If = 1 Then T = T + + : Flag = 1 If = 1 Then T = T + + : Flag = 1 If = 1 Then T = T + + : Flag = 1 If = 1 Then T = T + + : Flag = 1 If Flag = 0 Then T = 你沒(méi)有選擇項(xiàng)目！ = T End Sub Visual Basic程序設(shè)計(jì)教程 45 其它復(fù)選框的 Click事件的內(nèi)部代碼，與 Check1完全一樣。 （ 2）對(duì)已在窗體上的控件，放入框架，使用復(fù)制方法： 選擇控件 → 復(fù)制 → 選擇框架 → 粘貼。 行標(biāo)簽的命名與變量命名相同，行標(biāo)簽后跟“ : ” 行號(hào)采用正整數(shù)形式。 如果表達(dá)式值超范圍，則該語(yǔ)句無(wú)效。 不合格 GoTo A4 A2: Print 等級(jí)： amp。(BSqr(D))/(2*A) Exit Sub ?終止當(dāng)前事件過(guò)程（ Click）的執(zhí)行。其中a、 b、 c由鍵盤輸入至文本框，單擊命令按鈕后用 Msgbox顯示方程的解（可以有復(fù)根）。a=0,b=0,c≠0 End If Else X1 = C / B 39。 Round(X1,4) amp。 i amp。 Visual Basic程序設(shè)計(jì)教程 60 【 例 48】 設(shè)計(jì)一個(gè)四則運(yùn)算的測(cè)試程序，運(yùn)算符和運(yùn)算數(shù)據(jù)均由隨機(jī)函數(shù)隨機(jī)產(chǎn)生。 Visual Basic程序設(shè)計(jì)教程 61 其它屬性設(shè)置在代碼中進(jìn)行。