計(jì)算機(jī)二級(jí)vb教程ppt課件(存儲(chǔ)版)
【正文】 If A = 0 Then If B = 0 Then If C = 0 Then MsgBox 任意 X 都是方程的解。 Round(X1, 4), , 信息 End If Visual Basic程序設(shè)計(jì)教程 59 Else D = B * B 4 * A * C 39。 T1 amp。 T2 amp。 （ 4）正確答案 Result在出題時(shí)產(chǎn)生，在改題時(shí)要使用，故把 Result的聲明放在通用對(duì)象中。出題完成 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。 （ 2）產(chǎn)生 1~4的隨機(jī)整數(shù) C， 1表示加、 2表示減、 … 。 _ T1 amp。 Round(X2,4), , 信息 Else 39。 Chr(13) amp。顯然有： 當(dāng) a、 b、 c均為零時(shí)，方程有無(wú)數(shù)解； 當(dāng) a、 b為零， c≠0時(shí)，方程無(wú)解； 當(dāng) a為零， b≠0時(shí)，方程解為 X＝－ c/b； 當(dāng) a≠0時(shí)，求： D＝ b2－ 4ac 若 D≥0， X＝ (－ b177。 Visual Basic程序設(shè)計(jì)教程 56 模塊化程序設(shè)計(jì)的思想為：“自頂向下，逐步細(xì)化和模塊化” 總體出發(fā)，把一個(gè)大的任務(wù)分解為若干個(gè)子任務(wù) 每個(gè)子任務(wù)作為一個(gè)模塊完成一個(gè)特定的功能。 Visual Basic程序設(shè)計(jì)教程 54 On Error語(yǔ)句 程序運(yùn)行出現(xiàn)錯(cuò)誤時(shí)，將運(yùn)行 On Error語(yǔ)句 利用 On Error語(yǔ)句可編寫處理錯(cuò)誤程序段 On Error語(yǔ)句有三種格式： On Error GoTo line 39。 若值小于 1或大于目標(biāo)列表總數(shù)，則執(zhí)行On …GoTo 語(yǔ)句后的下一句代碼。行標(biāo)簽 Print 正在進(jìn)行處理中 ... …… ProB: 39。 默認(rèn)值為 Frame1 Enabled：允許屬性。 在學(xué)第 7章后，可用控件數(shù)組，大大簡(jiǎn)化程序。默認(rèn) 0表示左對(duì)齊 Value：復(fù)選框當(dāng)前狀態(tài)。 單擊單選按鈕時(shí)，只作選擇標(biāo)記，編程只對(duì)命令按鈕。 Y End Sub Visual Basic程序設(shè)計(jì)教程 37 單選按鈕 (OptionButton) 單選按鈕可用于表示一組互相排斥的選項(xiàng)。 （ 2）“表達(dá)式值”其類型與“測(cè)試表達(dá)式”相同，有確定值。 Visual Basic程序設(shè)計(jì)教程 24 編寫嵌套的選擇結(jié)構(gòu)程序 If語(yǔ)句允許出現(xiàn)嵌套形式。 兩數(shù)互換使用語(yǔ)句組： X = A : A = B : B = X Visual Basic程序設(shè)計(jì)教程 20 【 例 42】 三數(shù)排序 程序代碼如下 : Option Explicit Private Sub Command1_Click() Dim A As Single, B As Single, C As Single, X As Single A = Val(): B = Val() C = Val() If A B Then X = A: A = B: B = X If A C Then X = A: A = C: C = X If B C Then X = B: B = C: C = X = A: = B: = C End Sub Visual Basic程序設(shè)計(jì)教程 21 塊 If語(yǔ)句采用多行代碼的形式，其格式為： If 條件 1 Then 語(yǔ)句塊 1 [ElseIf 條件 2 Then [ 語(yǔ)句塊 2 ]] …… [Else [ 語(yǔ)句塊 n+1 ]] End If 1．語(yǔ)句執(zhí)行過程 執(zhí)行過程如圖 Visual Basic程序設(shè)計(jì)教程 22 使用塊 If語(yǔ)句 2．關(guān)于格式 （ 1） If與 End If必須成對(duì)出現(xiàn)。界面如圖。 比較時(shí)，先比較第 1個(gè)字符，如不同，則得出結(jié)果；否則再比較第 2個(gè)字符，依次逐一比較，直到比較完畢或遇到一對(duì)不相同的為止。 使用關(guān)系運(yùn)算符的表達(dá)式稱為關(guān)系表達(dá)式。藍(lán)色 = RGB(0, 0, 255) End Sub Private Sub Option4_Click() 39。設(shè)置 Text 3個(gè)框架：用于分組。 當(dāng)條件滿足時(shí)執(zhí)行 a塊程序 段，條件不滿足時(shí)執(zhí)行 b塊 程序段。 如路徑問題：假設(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種算法的一半路不到。 算法表示：自然語(yǔ)言、流程圖、結(jié)構(gòu)圖等。 VB中選擇結(jié)構(gòu)主要用 IF和 Select Case語(yǔ)句。設(shè)置 Caption Check1~3：設(shè)置文本框字型。字體 = 仿宋 _GB2312 End Sub 每個(gè)復(fù)選框的 Click事件，都采用選擇結(jié)構(gòu) 在選擇顏色時(shí)，也可使用： = Private Sub Check1_Click() 39。 Visual Basic程序設(shè)計(jì)教程 12 3．優(yōu)先級(jí) 算術(shù)運(yùn)算符或字符串運(yùn)算符的優(yōu)先級(jí)高于關(guān)系運(yùn)算符。 行 If要求代碼寫在一行內(nèi)，語(yǔ)句過長(zhǎng)可用續(xù)行符 如果語(yǔ)句 1或語(yǔ)句 2有多條語(yǔ)句，則用冒號(hào)“ :”分隔。 （ 2） A與 B比較，小的數(shù)放入 A，大的數(shù)放入 B； （ 3） A與 C比較，小的數(shù)放入 A，大的數(shù)放入 C。 Visual Basic程序設(shè)計(jì)教程 23 如變量 Average存放成績(jī)，進(jìn)行等級(jí)轉(zhuǎn)換的語(yǔ)句為： If Average = 90 Then 39。 如果使用塊 If來編程，程序代碼為： If x = 0 Then If x = 0 Then y = 0 Else y = 1 End If Else y = 1 End If 嵌套時(shí)，程序注意使用
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1