【正文】 、圖片框（第 10章）和框架都是容器 容器內(nèi)可以放置其它控件 框架往往用于控件分組 窗體上所有單選按鈕自動構(gòu)成一個組，即只有一個單選按鈕被選中。 Visual Basic程序設(shè)計教程 47 2．創(chuàng)建框架容器內(nèi)其它控件的方法： （ 1）先建框架，在選擇框架后依次創(chuàng)建其中的各控件。 （ 2）對已在窗體上的控件，放入框架，使用復(fù)制方法： 選擇控件 → 復(fù)制 → 選擇框架 → 粘貼。 默認(rèn)值為 Frame1 Caption：框架標(biāo)題，一般說明框架內(nèi)控件特性。 True表示框架內(nèi)的控件可用， False為不可用 Visible：可見屬性。 False時，框架及其內(nèi)部的控件都不可見 Visual Basic程序設(shè)計教程 49 Goto語句 實現(xiàn)程序流程無條件轉(zhuǎn)移到本過程的另一處。 行標(biāo)簽的命名與變量命名相同，行標(biāo)簽后跟“ : ” 行號采用正整數(shù)形式。 Visual Basic程序設(shè)計教程 50 如要求輸入一個 0的數(shù)，再進(jìn)行一些處理，代碼： Private Sub Command1_Click() Dim A As Single,…… A = Val(InputBox(請輸入一整數(shù) )) If A 0 Then GoTo ProA MsgBox 數(shù)據(jù)輸入有錯 ! GoTo ProB ProA: 39。行標(biāo)簽 …… End Sub 行標(biāo)簽 /行號不同于 Select Case中的分支，這里僅作標(biāo)記。 Visual Basic程序設(shè)計教程 51 On...GoTo語句 On...GoTo語句可實現(xiàn)多分支。 如果表達(dá)式值超范圍，則該語句無效。 Visual Basic程序設(shè)計教程 52 2．語句流程 先計算表達(dá)式的值， 若值為 1，轉(zhuǎn)移到目標(biāo)列表中的第 1個目標(biāo)處 若值為 2，轉(zhuǎn)移到目標(biāo)列表中的第 2個目標(biāo)處， …… 。 Visual Basic程序設(shè)計教程 53 如：進(jìn)行成績等級的轉(zhuǎn)換，可以使用以下程序代碼。大于 100無效 If Average 0 Then GoTo A4 39。 不合格 GoTo A4 A2: Print 等級： amp。 優(yōu)秀 A4: …… 不過現(xiàn)在基本上使用以 If和 Select Case語句為主。轉(zhuǎn)到行標(biāo)簽 line處執(zhí)行錯誤處理 On Error Resume Next 39。禁止當(dāng)前過程任何錯誤處理程序 Visual Basic程序設(shè)計教程 55 【 例 】 求一元二次方程的實數(shù)解，程序可以編寫成： Private Sub Form_Click() Dim A As Single, B As Single, C As Single Dim D As Single, X1 As Single, X2 As Single On Error GoTo ErrLine A = Val(InputBox(“a=”)): B = Val(InputBox(“b=”)) C = Val(InputBox(“c=”)) D = B * B 4 * A * C Print “X1=”。(BSqr(D))/(2*A) Exit Sub ?終止當(dāng)前事件過程（ Click）的執(zhí)行。 復(fù)雜程序應(yīng)根據(jù)錯誤號 ()來編寫處理程序。 如果子任務(wù)還是太復(fù)雜，則可以對子任務(wù)再進(jìn)行分解。 這些模塊集組合起來形成一個整體，完成指定功能的問題要求。其中a、 b、 c由鍵盤輸入至文本框，單擊命令按鈕后用 Msgbox顯示方程的解（可以有復(fù)根）。 為防止出錯，在編程前應(yīng)考慮周全。 Sqr(D))/(2a) 若 D＜ 0時，有兩個不同復(fù)根： X＝－ b/(2a)177。 , , 信息 39。a=0,b=0,c≠0 End If Else X1 = C / B 39。 amp。 X= amp。a≠0 If D = 0 Then 39。 Round(X1,4) amp。 X2= amp。a≠0,D＜ 0 T1 = Round(B / (2 * A), 4) : T2 = Abs(Round(Sqr(D) / (2 * A), 4)) MsgBox X1= amp。 + amp。 i amp。 X2= amp。 amp。 i , , 信息 End If End If End Sub （ 1） T T2可改用 X1和 X2，但并非真正的 X值。 Visual Basic程序設(shè)計教程 60 【 例 48】 設(shè)計一個四則運算的測試程序，運算符和運算數(shù)據(jù)均由隨機(jī)函數(shù)隨機(jī)產(chǎn)生。 （ 1）命令按鈕應(yīng)具有出題和判題兩個功能。 （ 3）產(chǎn)生 1~4的隨機(jī)整數(shù) C1，表示正確答案位置。 （ 5）標(biāo)志 Flag表示答題是否正確，正確為 1，否則為 0。 Visual Basic程序設(shè)計教程 61 其它屬性設(shè)置在代碼中進(jìn)行。出題開始 A = Int(Rnd * 9 + 1): B = Int(Rnd * 9 + 1): C = Int(Rnd * 4 + 1) If C = 4 Then A = A * B = A: =B Select Case C 39。 : 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。判題開始 Flag = 0 If Then If Val() = Result Then MsgBox 非常正確 !, , 信息 : Flag = 1 ElseIf Then If Val()=Result Then MsgBox 非常正確 ,做得很棒 !,信息:Flag=1 ElseIf Then If Val()=Result Then MsgBox 非常正確 ,很聰明 !, , 信息 : Flag = 1 ElseIf Then If Val()=Result Then MsgBox 好極了 ,完全正確 !, 信息 : Flag = 1 End If If Flag = 0 Then MsgBox 很遺憾 ,你沒有做對 ,下次努力吧 !, , 信息“ = 出題“ End If End Sub Visual Basic程序設(shè)計教程 66 上面程序雖然較長，但部分處理過程類似。