【正文】 en 語句 1 Visual Basic程序設計教程 15 它實現(xiàn)如圖所示的選擇結構流程。 比較時，先比較第 1個字符，如不同，則得出結果；否則再比較第 2個字符，依次逐一比較，直到比較完畢或遇到一對不相同的為止。 Visual Basic程序設計教程 13 4．字符串比較 字符型數(shù)據(jù)， VB將按內碼大小進行比較。 所有的關系運算符優(yōu)先級相同，執(zhí)行次序從左到右。 運算結果為邏輯值，成立時為 True，不成立時為 False。 使用關系運算符的表達式稱為關系表達式。下劃線 If = 1 Then = True Else = False End If End Sub Visual Basic程序設計教程 10 比較大小的運算在程序設計中稱為關系運算。粗體 If = 1 Then = True Else = False End If End Sub Private Sub Check2_Click() 39。字體 = 楷體 _GB2312 End Sub Private Sub Option6_Click() 39。藍色 = RGB(0, 0, 255) End Sub Private Sub Option4_Click() 39。紅色 = RGB(255, 0, 0) End Sub Private Sub Option2_Click() 39。設置 Caption 對單選按鈕和復選框編寫了共 9個簡單的事件過程。設置 Caption BackColor Option4~ 6：設置文本框字體。設置 Text 3個框架：用于分組。 設計時先創(chuàng)建框架，在選擇框架的情況下，再創(chuàng)建其內部其它控件。 Visual Basic程序設計教程 7 【 例 41】 設計一個程序，界面如圖。 或：當條件滿足時執(zhí)行 a塊程序段， 條件不滿足時跳過 a塊程序段而執(zhí)行后面的程序。 當條件滿足時執(zhí)行 a塊程序 段，條件不滿足時執(zhí)行 b塊 程序段。 根據(jù)給定的條件來決定執(zhí)行不同的程序代碼段。 算法決定了程序的結構。 不僅要保證算法正確，還應考慮算法的質量。 如路徑問題：假設某人在某大街 53號工作，現(xiàn)接到一份工作通知單，要求他去該大街的門牌號分別為 98, 183, 37, 122, 14的地方去服務，假定兩個間隔的門牌號之間相差 10米，則他該怎樣完成任務，共走多少路？ Visual Basic程序設計教程 4 第 1種算法：按工作通知單順序，則他要走的路為： (|5398| +|98183|+ (18337) + | 37122| +(12214)) 10 =469 10=4690米 第 2種算法：最近位置服務優(yōu)先法，將服務次序改為37,14,98,122,183，則他要走的路為： (16+23+84+24+61) 10=208 10=2080 第 2種算法只需要走第 1種算法的一半路不到。大學計算機基礎教程 TaiYuan University of Technology 第 4章 設計選擇結構程序 Visual Basic 程序設計教程 Visual Basic程序設計教程 2 本章主要介紹： 選擇結構： 有關表達式 單分支語句 多分支語句 單選按鈕 復選框 Visual Basic程序設計教程 3 程序就是數(shù)據(jù)加算法。 算法的優(yōu)劣關系到程序質量的好壞。 Visual Basic程序設計教程 5 編寫程序時，會有多種可選擇的算法。 算法表示：自然語言、流程圖、結構圖等。 Visual Basic程序設計教程 6 選擇結構是程序結構中的一種形式。 流程可以如圖所示。然后它們都繼續(xù)執(zhí) 行后面的程序段。 VB中選擇結構主要用 IF和 Select Case語句。單選按鈕和復選框用于設置文本框文字的顏色、字體或字型。 設置文本框字體字型 Visual Basic程序設計教程 8 各控件： 1個文本框：顯示文字。設置 Caption Option1~ 3：設置文本框背景。設置 Caption Check1~3：設置文本框字型。 Visual Basic程序設計教程 9 Private Sub Option1_Click() 39。綠色 = RGB(0, 255, 0) End Sub Private Sub Option3_Click() 39。字體 = 宋體 End Sub Private Sub Option5_Click() 39。字體 = 仿宋 _GB2312 End Sub 每個復選框的 Click事件，都采用選擇結構 在選擇顏色時，也可使用： = Private Sub Check1_Click() 39。斜體 If = 1 Then = True Else = False End If End Sub Private Sub Check3_Click() 39。 VB常用的關系運算符有 6種： = (等于 )、 (不等于 )、 (大于 )、 =(大于等于 )、 (小于 )、 = (小于等于 )。 Visual Basic程序設計教程 11 1．格式： 表達式 1 關系運算符 表達式 2 2．數(shù)據(jù)類型： 表達式 1和表達式 2應具有相同的數(shù)據(jù)類型。 Visual Basic程序設計教程 12 3．優(yōu)先級 算術運算符或字符串運算符的優(yōu)先級高于關系運算符。 如： 3 = 3+2，先執(zhí)行 3+2結果為 5，再比較 3=5，結果 False。 西文字符使用 ASCII碼比較 漢字使用漢字內碼比較。 注意：若把 0x10作為 VB表達式，失去數(shù)學含義。 行 If要求代碼寫在一行內，語句過長可用續(xù)行符 如果語句 1或語句 2有多條語句，則用冒號“ :”分隔。用InputBox輸入 x，計算結果 f(x)輸出到 Text控件。 編制事件過程 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程序設計教程 18 【 例 42】 在文本框內輸入三個數(shù)，“排序”按鈕對它們從小到大排列。 Visual Basic程序設計教程 19 首先確定 A和 B兩個數(shù)的大小排序的算法： 若 A B，則交換 A和 B中的數(shù)據(jù)，否則 A、 B保持不變。 （ 2） A與 B比較，小的數(shù)放入 A，大的數(shù)放入 B； （ 3） A與 C比較，小的數(shù)放入 A，大的數(shù)放入 C。 （ 4） B和 C比較，小的數(shù)放入 B，大的數(shù)放入 C。 （ 5） A、 B、 C分別放入三個文本框。 （ 2）塊 If語句必須在 Then或 Else后換行 （ 3）塊 If語句可以沒有 Else或 ElseIf子句。 Visual Basic程序設計教程 23 如變量 Average存放成績，進行等級轉換的語句為： If Average = 90 Then 39。 優(yōu)秀 ElseIf Average = 60 Then = 等級： amp。 不合格 End If 3． 關于 語句塊 語句塊可以是一條或多條語句，可寫成一行或多行。 如判斷 x的符號，采用行 If嵌套，程序代碼為：