【正文】 : Result = A / B: R1 = A + B: R2 = A B: R3 = A * B End Select Visual Basic程序設(shè)計教程 64 C1 = Int(Rnd * 4 + 1) Select Case C1 ?根據(jù) C1的值，設(shè)置正確答案的位置，并設(shè)置其他選 Case 1: = Result = R1: = R2: = R3 Case 2: = Result = R1: = R2: = R3 Case 3: = Result = R1: = R2: = R3 Case 4: = Result = R1: = R2: = R3 End Select = False: = False : = False = False : = True = 確定 39。 （ 3）產(chǎn)生 1~4的隨機整數(shù) C1，表示正確答案位置。 amp。a≠0,D＜ 0 T1 = Round(B / (2 * A), 4) : T2 = Abs(Round(Sqr(D) / (2 * A), 4)) MsgBox X1= amp。 X= amp。 Sqr(D))/(2a) 若 D＜ 0時，有兩個不同復(fù)根： X＝－ b/(2a)177。 如果子任務(wù)還是太復(fù)雜，則可以對子任務(wù)再進行分解。轉(zhuǎn)到行標(biāo)簽 line處執(zhí)行錯誤處理 On Error Resume Next 39。 Visual Basic程序設(shè)計教程 53 如：進行成績等級的轉(zhuǎn)換，可以使用以下程序代碼。行標(biāo)簽 …… End Sub 行標(biāo)簽 /行號不同于 Select Case中的分支，這里僅作標(biāo)記。 True表示框架內(nèi)的控件可用， False為不可用 Visible：可見屬性。 Visual Basic程序設(shè)計教程 46 框架 Frame框架是一種容器性質(zhì)的 VB控件 窗體、圖片框（第 10章）和框架都是容器 容器內(nèi)可以放置其它控件 框架往往用于控件分組 窗體上所有單選按鈕自動構(gòu)成一個組，即只有一個單選按鈕被選中。 0：未選中，呈空白； 1：選中，呈“ √”； 2：無效，呈灰色“ √” Visual Basic程序設(shè)計教程 42 3．復(fù)選框的事件 復(fù)選框的主要事件是 Click事件 常用的代碼結(jié)構(gòu)為： If =1 Then 語句塊 Else 或 語句塊 End If Select Case Case 0 語句塊 Case 1 語句塊 End Select Visual Basic程序設(shè)計教程 43 【 例 46】 設(shè)計程序，單擊任一個復(fù)選框，標(biāo)簽顯示的內(nèi)容都會發(fā)生變化。 Private Sub Form_Load() = 10 = True = Hello! End Sub Visual Basic程序設(shè)計教程 40 Private Sub Command1_Click() If = True Then 39。 1．創(chuàng)建單選按鈕 在工具箱內(nèi)選取單選按鈕工具。 “表達式值”的幾種形式 : 表達式值 表示固定值，如 Case 1或 Case 3*5+Y 表達式值 1,…, 值 n 表示幾個固定值之一，如 Case 1,3,5,7,9 表達式值 1 To 值 2 表示上下限之間的范圍，如 Case 2 To 4 Is 關(guān)系運算符 值 表示范圍，如 Case Is 5 Visual Basic程序設(shè)計教程 30 （ 3） Select Case 應(yīng)與 End Select成對出現(xiàn)。 如判斷 x的符號，采用行 If嵌套，程序代碼為： If x = 0 Then If x = 0 Then y = 0 Else y = 1 Else y = 1 Visual Basic程序設(shè)計教程 25 變量 y存放比較結(jié)果。 （ 2）塊 If語句必須在 Then或 Else后換行 （ 3）塊 If語句可以沒有 Else或 ElseIf子句。 Visual Basic程序設(shè)計教程 19 首先確定 A和 B兩個數(shù)的大小排序的算法： 若 A B，則交換 A和 B中的數(shù)據(jù)，否則 A、 B保持不變。 注意：若把 0x10作為 VB表達式，失去數(shù)學(xué)含義。 Visual Basic程序設(shè)計教程 11 1．格式： 表達式 1 關(guān)系運算符 表達式 2 2．?dāng)?shù)據(jù)類型： 表達式 1和表達式 2應(yīng)具有相同的數(shù)據(jù)類型。字體 = 宋體 End Sub Private Sub Option5_Click() 39。設(shè)置 Caption Option1~ 3：設(shè)置文本框背景。然后它們都繼續(xù)執(zhí) 行后面的程序段。 Visual Basic程序設(shè)計教程 5 編寫程序時，會有多種可選擇的算法。 不僅要保證算法正確，還應(yīng)考慮算法的質(zhì)量。 或：當(dāng)條件滿足時執(zhí)行 a塊程序段， 條件不滿足時跳過 a塊程序段而執(zhí)行后面的程序。設(shè)置 Caption BackColor Option4~ 6：設(shè)置文本框字體。字體 = 楷體 _GB2312 End Sub Private Sub Option6_Click() 39。 運算結(jié)果為邏輯值，成立時為 True，不成立時為 False。 Visual Basic程序設(shè)計教程 14 使用行 If語句 行 If語句的格式為： If 條件 Then 語句 1 [Else 語句 2 ] If 條件 Then 語句 1 Visual Basic程序設(shè)計教程 15 它實現(xiàn)如圖所示的選擇結(jié)構(gòu)流程。 程序算法為： （ 1）先將三個數(shù)賦值給變量 A、 B、 C。 （ 4）行 If語句也可以改寫成塊 If語句。但可讀性不好。 （ 4） Case與“表達式值”之間應(yīng)有空格間隔。 2．單選按鈕的主要屬性 （名稱） : Name，單選按鈕的名稱，默認(rèn)值為 Option1 Caption: 單選按鈕的標(biāo)題內(nèi)容，默認(rèn)值為 Option1 Alignment:對齊方式，默認(rèn) 0(左 )，按鈕在左，標(biāo)題在右； Value: 按鈕是否被選中。是否是第一個按鈕按下？ = 10 ElseIf = True Then 39。什么都不選時，標(biāo)簽顯示“你沒有選擇項目 !” 對象： 1個標(biāo)簽和 6個復(fù)選框。 1．創(chuàng)建框架 在工具箱內(nèi)選取框架工具。 Boolean型。 盡量少用或不用 GoTo，以免造成程序可讀性下降。 If Average 100 Then GoTo A4 39。發(fā)生錯誤后，忽略錯誤繼續(xù)執(zhí)行 On Error GoTo 0 39。 層層分解，逐步細(xì)化。 Sqr(－D)/(2a)i Visual Basic程序設(shè)計教程 58 【 例 47】 方程求解 程序 Private Sub Command1_Click() Dim A As Single, B As Single, C As Single, D As Single Dim X1 As Single, X2 As Single,T1 As Single, T2 As Single ?T作臨時變量 A = Val(): B = Val(): C = Val()