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