計算機(jī)二級vb教程ppt課件(已修改)
2025-05-15 07:08 本頁面
【正文】 大學(xué)計算機(jī)基礎(chǔ)教程 TaiYuan University of Technology 第 4章 設(shè)計選擇結(jié)構(gòu)程序 Visual Basic 程序設(shè)計教程 Visual Basic程序設(shè)計教程 2 本章主要介紹： 選擇結(jié)構(gòu)： 有關(guān)表達(dá)式 單分支語句 多分支語句 單選按鈕 復(fù)選框 Visual Basic程序設(shè)計教程 3 程序就是數(shù)據(jù)加算法。 算法的優(yōu)劣關(guān)系到程序質(zhì)量的好壞。 如路徑問題：假設(shè)某人在某大街 53號工作，現(xiàn)接到一份工作通知單，要求他去該大街的門牌號分別為 98, 183, 37, 122, 14的地方去服務(wù)，假定兩個間隔的門牌號之間相差 10米，則他該怎樣完成任務(wù)，共走多少路？ Visual Basic程序設(shè)計教程 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種算法的一半路不到。 Visual Basic程序設(shè)計教程 5 編寫程序時，會有多種可選擇的算法。 不僅要保證算法正確，還應(yīng)考慮算法的質(zhì)量。 算法表示：自然語言、流程圖、結(jié)構(gòu)圖等。 算法決定了程序的結(jié)構(gòu)。 Visual Basic程序設(shè)計教程 6 選擇結(jié)構(gòu)是程序結(jié)構(gòu)中的一種形式。 根據(jù)給定的條件來決定執(zhí)行不同的程序代碼段。 流程可以如圖所示。 當(dāng)條件滿足時執(zhí)行 a塊程序 段，條件不滿足時執(zhí)行 b塊 程序段。然后它們都繼續(xù)執(zhí) 行后面的程序段。 或：當(dāng)條件滿足時執(zhí)行 a塊程序段， 條件不滿足時跳過 a塊程序段而執(zhí)行后面的程序。 VB中選擇結(jié)構(gòu)主要用 IF和 Select Case語句。 Visual Basic程序設(shè)計教程 7 【 例 41】 設(shè)計一個程序，界面如圖。單選按鈕和復(fù)選框用于設(shè)置文本框文字的顏色、字體或字型。 設(shè)計時先創(chuàng)建框架，在選擇框架的情況下，再創(chuàng)建其內(nèi)部其它控件。 設(shè)置文本框字體字型 Visual Basic程序設(shè)計教程 8 各控件： 1個文本框：顯示文字。設(shè)置 Text 3個框架：用于分組。設(shè)置 Caption Option1~ 3：設(shè)置文本框背景。設(shè)置 Caption BackColor Option4~ 6：設(shè)置文本框字體。設(shè)置 Caption Check1~3：設(shè)置文本框字型。設(shè)置 Caption 對單選按鈕和復(fù)選框編寫了共 9個簡單的事件過程。 Visual Basic程序設(shè)計教程 9 Private Sub Option1_Click() 39。紅色 = RGB(255, 0, 0) End Sub Private Sub Option2_Click() 39。綠色 = RGB(0, 255, 0) End Sub Private Sub Option3_Click() 39。藍(lán)色 = RGB(0, 0, 255) End Sub Private Sub Option4_Click() 39。字體 = 宋體 End Sub Private Sub Option5_Click() 39。字體 = 楷體 _GB2312 End Sub Private Sub Option6_Click() 39。字體 = 仿宋 _GB2312 End Sub 每個復(fù)選框的 Click事件，都采用選擇結(jié)構(gòu) 在選擇顏色時，也可使用： = Private Sub Check1_Click() 39。粗體 If = 1 Then = True Else = False End If End Sub Private Sub Check2_Click() 39。斜體 If = 1 Then = True Else = False End If End Sub Private Sub Check3_Click() 39。下劃線 If = 1 Then = True Else = False End If End Sub Visual Basic程序設(shè)計教程 10 比較大小的運(yùn)算在程序設(shè)計中稱為關(guān)系運(yùn)算。 VB常用的關(guān)系運(yùn)算符有 6種： = (等于 )、 (不等于 )、 (大于 )、 =(大于等于 )、 (小于 )、 = (小于等于 )。 使用關(guān)系運(yùn)算符的表達(dá)式稱為關(guān)系表達(dá)式。 Visual Basic程序設(shè)計教程 11 1．格式： 表達(dá)式 1 關(guān)系運(yùn)算符 表達(dá)式 2 2．?dāng)?shù)據(jù)類型： 表達(dá)式 1和表達(dá)式 2應(yīng)具有相同的數(shù)據(jù)類型。 運(yùn)算結(jié)果為邏輯值，成立時為 True，不成立時為 False。 Visual Basic程序設(shè)計教程 12 3．優(yōu)先級 算術(shù)運(yùn)算符或字符串運(yùn)算符的優(yōu)先級高于關(guān)系運(yùn)算符。 所有的關(guān)系運(yùn)算符優(yōu)先級相同，執(zhí)行次序從左到右。 如： 3 = 3+2，先執(zhí)行 3+2結(jié)果為 5，再比較 3=5，結(jié)果 False。 Visual Basic程序設(shè)計教程 13 4．字符串比較 字符型數(shù)據(jù)， VB將按內(nèi)碼大小進(jìn)行比較。 西文字符使用 ASCII碼比較 漢字使用漢字內(nèi)碼比較。 比較時，先比較第 1個字符，如不同，則得出結(jié)果；否則再比較第 2個字符，依次逐一比較，直到比較完畢或遇到一對不相同的為止。 注意：若把 0x10作為 VB表達(dá)式，失去數(shù)學(xué)含義。 Visual Basic程序設(shè)計教程 14 使用行 If語句 行 If語句的格式為： If 條件 Then 語句 1 [Else 語句 2 ] If 條件 Then 語句 1 Visual Basic程序設(shè)計教程 15 它實(shí)現(xiàn)如圖所示的選擇結(jié)構(gòu)流程。 行 If要求代碼寫在一行內(nèi)，語句過長可用續(xù)行符 如果語句 1或語句 2有多條語句，則用冒號“ :”分隔。 Visual Basic程序設(shè)計教程 16 5 x5)(x 5x x1 f ( x )1 / 42????????【 例 】 編程，輸入 x，求下列分段函數(shù) f(x)值。用InputBox輸入 x，計算結(jié)果 f(x)輸出到 Text控件。 Visual Basic程序設(shè)計教程 17 在窗體上建立文本框控件 Text1和命令按鈕控件 Command1。 編制事件過程 Command1_Click如下： Private Sub Command1_Click() Dim x as Single x=InputBox(輸入 x,計算分段函數(shù)的值 ) If x=5 Then =Str(1x*x) Else _ =Str((x5)^) End Sub Visual Basic程序設(shè)計教程 18 【 例 42】 在文本框內(nèi)輸入三個數(shù)，“排序”按鈕對它們從小到大排列。界面如圖。 Visual Basic程序設(shè)計教程 19 首先確定 A和 B兩個數(shù)的大小排序的算法： 若 A B，則交換 A和 B中的數(shù)據(jù)，否則 A、 B保持不變。 程序算法為： （ 1）先將三個數(shù)賦值給變量 A、 B、 C。 （ 2） A與 B比較，小的數(shù)放入 A，大的數(shù)放入 B； （ 3） A與 C比較，
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1