【正文】 x=5 Then =Str(1x*x) Else _ =Str((x5)^) End Sub Visual Basic程序設(shè)計(jì)教程 18 【 例 42】 在文本框內(nèi)輸入三個(gè)數(shù)，“排序”按鈕對(duì)它們從小到大排列。 不合格 End If 3． 關(guān)于 語(yǔ)句塊 語(yǔ)句塊可以是一條或多條語(yǔ)句，可寫成一行或多行。 Visual Basic程序設(shè)計(jì)教程 34 40000元以下的工資、薪金部分的稅率表 Visual Basic程序設(shè)計(jì)教程 35 【 例 43】 計(jì)算個(gè)人所得稅 程序 Private Sub Form_Load() = 個(gè)人所得稅 = 薪金總額 = = = 計(jì)算 End Sub Visual Basic程序設(shè)計(jì)教程 36 Private Sub Command1_Click() Dim X As Single, Y As Single X = Val() Select Case X 1600 Case Is 40000, Is 1600 MsgBox 輸入的薪金有錯(cuò) , , 出錯(cuò) Case 0 To 500: Y = (X 1600) * Case 500 To 2022: Y = 500 * + (X 1600 500) * Case 2022 To 5000: Y=500*+1500*+(X 1600 2022)* Case 5000 To 20220 Y=500 * + 1500 * + 3000 * + (X 1600 5000) * Case Is 20220 Y=500*+1500*+3000*+15000*+(X160020220)* Case Else: Y = 0 End Select = 個(gè)人所得稅為 : amp。 默認(rèn)值為 Check1 Alignment：對(duì)齊方式，整數(shù)類型。 默認(rèn)值為 Frame1 Caption：框架標(biāo)題，一般說(shuō)明框架內(nèi)控件特性。 Visual Basic程序設(shè)計(jì)教程 52 2．語(yǔ)句流程 先計(jì)算表達(dá)式的值， 若值為 1，轉(zhuǎn)移到目標(biāo)列表中的第 1個(gè)目標(biāo)處 若值為 2，轉(zhuǎn)移到目標(biāo)列表中的第 2個(gè)目標(biāo)處， …… 。 復(fù)雜程序應(yīng)根據(jù)錯(cuò)誤號(hào) ()來(lái)編寫處理程序。 amp。 X2= amp。出題開始 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。 （ 5）標(biāo)志 Flag表示答題是否正確，正確為 1，否則為 0。 + amp。 , , 信息 39。禁止當(dāng)前過(guò)程任何錯(cuò)誤處理程序 Visual Basic程序設(shè)計(jì)教程 55 【 例 】 求一元二次方程的實(shí)數(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=”。 Visual Basic程序設(shè)計(jì)教程 51 On...GoTo語(yǔ)句 On...GoTo語(yǔ)句可實(shí)現(xiàn)多分支。 Visual Basic程序設(shè)計(jì)教程 47 2．創(chuàng)建框架容器內(nèi)其它控件的方法： （ 1）先建框架，在選擇框架后依次創(chuàng)建其中的各控件。是否按下第二個(gè)？ = 18 Else 39。 （ 5）語(yǔ)句塊可以是一條或多條語(yǔ)句，可寫成一行或多行。 Visual Basic程序設(shè)計(jì)教程 23 如變量 Average存放成績(jī)，進(jìn)行等級(jí)轉(zhuǎn)換的語(yǔ)句為： If Average = 90 Then 39。 行 If要求代碼寫在一行內(nèi)，語(yǔ)句過(guò)長(zhǎng)可用續(xù)行符 如果語(yǔ)句 1或語(yǔ)句 2有多條語(yǔ)句，則用冒號(hào)“ :”分隔。字體 = 仿宋 _GB2312 End Sub 每個(gè)復(fù)選框的 Click事件，都采用選擇結(jié)構(gòu) 在選擇顏色時(shí)，也可使用： = Private Sub Check1_Click() 39。 VB中選擇結(jié)構(gòu)主要用 IF和 Select Case語(yǔ)句。 如路徑問(wèn)題：假設(shè)某人在某大街 53號(hào)工作，現(xiàn)接到一份工作通知單，要求他去該大街的門牌號(hào)分別為 98, 183, 37, 122, 14的地方去服務(wù)，假定兩個(gè)間隔的門牌號(hào)之間相差 10米，則他該怎樣完成任務(wù)，共走多少路？ Visual Basic程序設(shè)計(jì)教程 4 第 1種算法：按工作通知單順序，則他要走的路為： (|5398| +|98183|+ (18337) + | 37122| +(12214)) 10 =469 10=4690米 第 2種算法：最近位置服務(wù)優(yōu)先法，將服務(wù)次序改為37,14,98,122,183，則他要走的路為： (16+23+84+24+61) 10=208 10=2080 第 2種算法只需要走第 1種算法的一半路不到。設(shè)置 Text 3個(gè)框架：用于分組。 使用關(guān)系運(yùn)算符的表達(dá)式稱為關(guān)系表達(dá)式。界面如圖。 Visual Basic程序設(shè)計(jì)教程 24 編寫嵌套的選擇結(jié)構(gòu)程序 If語(yǔ)句允許出現(xiàn)嵌套形式。 Y End Sub Visual Basic程序設(shè)計(jì)教程 37 單選按鈕 (OptionButton) 單選按鈕可用于表示一組互相排斥的選項(xiàng)。默認(rèn) 0表示左對(duì)齊 Value：復(fù)選框當(dāng)前狀態(tài)。 默認(rèn)值為 Frame1 Enabled：允許屬性。 若值小于 1或大于目標(biāo)列表總數(shù)，則執(zhí)行On …GoTo 語(yǔ)句后的下一句代碼。 Visual Basic程序設(shè)計(jì)教程 56 模塊化程序設(shè)計(jì)的思想為：“自頂向下，逐步細(xì)化和模塊化” 總體出發(fā)，把一個(gè)大的任務(wù)分解為若干個(gè)子任務(wù) 每個(gè)子任務(wù)作為一個(gè)模塊完成一個(gè)特定的功能。 Chr(13) amp。 _ T1 amp。設(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。 （ 4）正確答案 Result在出題時(shí)產(chǎn)生，在改題時(shí)要使用，故把 Result的聲明放在通用對(duì)象中。 T1 amp。 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