【正文】 程序中還存在一個(gè)問題，即四個(gè)選項(xiàng)中有可能會出現(xiàn)重復(fù)，如 A、 B均為 1，而選項(xiàng)是由加、減、乘、除結(jié)果的整數(shù)構(gòu)成，故就會有 2個(gè)選項(xiàng)均為 1。出題完成 Visual Basic程序設(shè)計(jì)教程 65 Else 39。設(shè)置界面運(yùn)算符，獲得正確答案和其它選項(xiàng)值 Case 1 : = + : Result = A + B: R1 = A B: R2 = A * B: R3 = A / B Case 2 : = : Result = A B: R1 = A + B: R2 = A * B: R3 = A / B If A B Then = B: = A: Result = B A Case 3 : = : Result = A * B: R1 = A + B: R2 = A B: R3 = A / B Case 4 : = 247。 Visual Basic程序設(shè)計(jì)教程 62 Dim Result As Integer Private Sub Form_Load() Randomize: = False = 簡單四則運(yùn)算 := 出題 = 可選答案 = 16: = = : = End Sub 變量 Result的聲明和 Form_Load初始化對象屬性 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。 （ 6）在屬性窗口將 Command1的 TabIndex設(shè)為 0，使窗體啟動后焦點(diǎn)自動在 Command1上。 （ 4）正確答案 Result在出題時(shí)產(chǎn)生，在改題時(shí)要使用，故把 Result的聲明放在通用對象中。 （ 2）產(chǎn)生 1~4的隨機(jī)整數(shù) C， 1表示加、 2表示減、 … 。如圖。 （ 2）完整的復(fù)根沒有存放在變量中 （ 3） Chr(13)表示換行。 T2 amp。 _ T1 amp。 Chr(13) amp。 T2 amp。 T1 amp。 Round(X2,4), , 信息 Else 39。 Chr(13) amp。a≠0,D≥0 X1 = (B + Sqr(D)) / (2 * A) : X2 = (B Sqr(D)) / (2 * A) MsgBox X1= amp。 Round(X1, 4), , 信息 End If Visual Basic程序設(shè)計(jì)教程 59 Else D = B * B 4 * A * C 39。 Chr(13) amp。a=0,b≠0 MsgBox 方程只有一個(gè)解。a=0,b=0,c=0 Else MsgBox 方 程 無 解 ?。?！ , , 出錯(cuò)信息 39。 Sqr(－D)/(2a)i Visual Basic程序設(shè)計(jì)教程 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作臨時(shí)變量 A = Val(): B = Val(): C = Val() If A = 0 Then If B = 0 Then If C = 0 Then MsgBox 任意 X 都是方程的解。顯然有： 當(dāng) a、 b、 c均為零時(shí)，方程有無數(shù)解； 當(dāng) a、 b為零， c≠0時(shí)，方程無解； 當(dāng) a為零， b≠0時(shí)，方程解為 X＝－ c/b； 當(dāng) a≠0時(shí)，求： D＝ b2－ 4ac 若 D≥0， X＝ (－ b177。要求： a、 b、 c可由用戶任意輸入，但不能讓 VB出現(xiàn)編譯錯(cuò)誤或運(yùn)行錯(cuò)誤。 Visual Basic程序設(shè)計(jì)教程 57 【 例 47】 編程，求解一元二次方程： aX2＋ bX＋ c＝ 0。 層層分解，逐步細(xì)化。 Visual Basic程序設(shè)計(jì)教程 56 模塊化程序設(shè)計(jì)的思想為：“自頂向下，逐步細(xì)化和模塊化” 總體出發(fā)，把一個(gè)大的任務(wù)分解為若干個(gè)子任務(wù) 每個(gè)子任務(wù)作為一個(gè)模塊完成一個(gè)特定的功能。 ErrLine: MsgBox 對負(fù)數(shù)開平方根！ , vbCritical, 錯(cuò)誤 End Sub 本例由于簡單，出錯(cuò)能斷定由 Sqr函數(shù)的參數(shù)造成的。(B+Sqr(D))/(2*A), “X2=”。發(fā)生錯(cuò)誤后，忽略錯(cuò)誤繼續(xù)執(zhí)行 On Error GoTo 0 39。 Visual Basic程序設(shè)計(jì)教程 54 On Error語句 程序運(yùn)行出現(xiàn)錯(cuò)誤時(shí)，將運(yùn)行 On Error語句 利用 On Error語句可編寫處理錯(cuò)誤程序段 On Error語句有三種格式： On Error GoTo line 39。 合格 GoTo A4 A3: Print 等級： amp。小于 0無效 On Int(Average / 10) + 1 GoTo A1, A1, A1, A1, _ A1, A1, A2, A2, A2, A3, A3 A1: Print 等級： amp。 If Average 100 Then GoTo A4 39。 若值小于 1或大于目標(biāo)列表總數(shù)，則執(zhí)行On …GoTo 語句后的下一句代碼。 目標(biāo)列表 為一系列行標(biāo)簽或行號，逗號間隔，表示轉(zhuǎn)向的目標(biāo)位置。格式： On 表達(dá)式 GoTo 目標(biāo)列表 1．有關(guān)格式 “表達(dá)式”值應(yīng)為 0至 255之間的數(shù)，一般取整數(shù)。 盡量少用或不用 GoTo，以免造成程序可讀性下降。行標(biāo)簽 Print 正在進(jìn)行處理中 ... …… ProB: 39。 語句執(zhí)行后，轉(zhuǎn)移到行標(biāo)簽 /行號所在處往下執(zhí)行。 格式： Goto 行標(biāo)簽 | 行號 行標(biāo)簽為語句行標(biāo)識符的簡稱。 Boolean型。 默認(rèn)值為 Frame1 Enabled：允許屬性。 Visual Basic程序設(shè)計(jì)教程 48 框架 Frame 3．框架的主要屬性 （名稱）： Name，框架名稱。 此時(shí)不能采用雙擊方法創(chuàng)建控件。 1．創(chuàng)建框架 在工具箱內(nèi)選取框架工具。 在學(xué)第 7章后，可用控件數(shù)組，大大簡化程序。 Flag作為標(biāo)志變量，只要有一項(xiàng)被選中， Flag就會變?yōu)?1。 屬性設(shè)置 Label1： Caption：你沒有選擇項(xiàng)目 ! Check1～ Check6： Caption 分別設(shè)為： 100米、 200米、 400米、跳高、跳遠(yuǎn)、鉛球 Form： Caption：田徑項(xiàng)目選擇 Visual Basic程序設(shè)計(jì)教程 4