第3章選擇結(jié)構(gòu)ppt課件

1、 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程3.1 引例：字號(hào)變大系統(tǒng)登錄3.2 If語句3.3 Select Case多分支構(gòu)造3.4 條件函數(shù)3.5 選擇控件與分組控件3.6 綜合運(yùn)用 本章目錄本章目錄 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程順序構(gòu)造、選擇構(gòu)造、循環(huán)構(gòu)造順序構(gòu)造、選擇構(gòu)造、循環(huán)構(gòu)造構(gòu)造化程序設(shè)計(jì)三種控制構(gòu)造構(gòu)造化程序設(shè)計(jì)三種控制構(gòu)造1順序構(gòu)造順序構(gòu)造 各語句按出現(xiàn)的先后次序執(zhí)行各語句按出現(xiàn)的先后次序執(zhí)行bABa用傳統(tǒng)流程圖用傳統(tǒng)流程圖表示為表示為 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程2 2選擇構(gòu)造選擇構(gòu)造傳統(tǒng)流程圖傳統(tǒng)流程圖:b ba a條件？

2、條件？AB不成立不成立成立成立根據(jù)條件決議執(zhí)行的語句根據(jù)條件決議執(zhí)行的語句 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程3 3循環(huán)構(gòu)造循環(huán)構(gòu)造I 、 當(dāng)型循環(huán)構(gòu)造當(dāng)型循環(huán)構(gòu)造 條件條件？成立成立循環(huán)體循環(huán)體b b不成立不成立a aa a循環(huán)體循環(huán)體b b不成立不成立成立成立條件？條件？II 、直到型循環(huán)構(gòu)造、直到型循環(huán)構(gòu)造 根據(jù)條件反復(fù)執(zhí)行語句根據(jù)條件反復(fù)執(zhí)行語句(稱為循環(huán)體稱為循環(huán)體) VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程3.1 3.1 引例：字體變大登陸系統(tǒng)引例：字體變大登陸系統(tǒng)【例【例3-1】：創(chuàng)建標(biāo)題為】：創(chuàng)建標(biāo)題為“系統(tǒng)登錄窗體，輸入用戶系統(tǒng)登錄窗體，輸入用戶名和密碼，單擊名和密碼，單擊“確

3、定按鈕，出現(xiàn)相應(yīng)的信息提示。確定按鈕，出現(xiàn)相應(yīng)的信息提示。1. 如輸入用戶名錯(cuò)誤，出現(xiàn)如輸入用戶名錯(cuò)誤，出現(xiàn)“用戶名錯(cuò)誤，請(qǐng)重新輸入！用戶名錯(cuò)誤，請(qǐng)重新輸入！提示提示2. 如輸入用戶名正確，密碼錯(cuò)誤，出現(xiàn)如輸入用戶名正確，密碼錯(cuò)誤，出現(xiàn)“密碼錯(cuò)誤，請(qǐng)密碼錯(cuò)誤，請(qǐng)重新輸入！提示，用戶名和密碼輸錯(cuò)了重新輸入！提示，用戶名和密碼輸錯(cuò)了3次，退出系次，退出系統(tǒng)。統(tǒng)。3. 如用戶名和密碼都正確，出現(xiàn)如用戶名和密碼都正確，出現(xiàn)“輸入正確，歡迎運(yùn)用輸入正確，歡迎運(yùn)用系統(tǒng)！提示。同時(shí)原窗體中除系統(tǒng)！提示。同時(shí)原窗體中除“退出按鈕外，其他退出按鈕外，其他控件全部隱藏，顯示標(biāo)簽控件全部隱藏，顯示標(biāo)簽Label3，

4、標(biāo)簽顯示，標(biāo)簽顯示“字號(hào)字號(hào)+字號(hào)大小。字號(hào)大小。Label3控件字號(hào)大小會(huì)自動(dòng)遞增，不斷到控件字號(hào)大小會(huì)自動(dòng)遞增，不斷到100。窗體大小設(shè)置為自動(dòng)變化，窗體標(biāo)題設(shè)置為。窗體大小設(shè)置為自動(dòng)變化，窗體標(biāo)題設(shè)置為“字字號(hào)逐漸變大。號(hào)逐漸變大。 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程3.1 3.1 選擇構(gòu)造選擇構(gòu)造 u計(jì)算機(jī)要處置的問題往往是復(fù)雜多變的，計(jì)算機(jī)要處置的問題往往是復(fù)雜多變的，僅采用順序構(gòu)造是不夠的。僅采用順序構(gòu)造是不夠的。u必需利用選擇構(gòu)造等來處理實(shí)踐運(yùn)用中的必需利用選擇構(gòu)造等來處理實(shí)踐運(yùn)用中的各種問題。各種問題。uVB中主要經(jīng)過中主要經(jīng)過If條件語句和條件語句和Select情況語情況語

5、句來實(shí)現(xiàn)。它們都是對(duì)條件進(jìn)展判別，根據(jù)句來實(shí)現(xiàn)。它們都是對(duì)條件進(jìn)展判別，根據(jù)判別結(jié)果，選擇執(zhí)行不同的分支。判別結(jié)果，選擇執(zhí)行不同的分支。 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程3.2.1 If3.2.1 If條件語句條件語句 1. IfThen語句語句(單分支構(gòu)造單分支構(gòu)造) If Then 語句塊可以是一句或多句語句語句塊可以是一句或多句語句 End If表表 達(dá)達(dá) 式：式： 算術(shù)、關(guān)系和邏輯表達(dá)式。算術(shù)、關(guān)系和邏輯表達(dá)式。表達(dá)式值：按非零為表達(dá)式值：按非零為True，零為，零為False進(jìn)展判別。進(jìn)展判別。作作 用：用： 當(dāng)表達(dá)式值為當(dāng)表達(dá)式值為True，執(zhí)行，執(zhí)行Then后面的后面的 語句

6、塊，否那么不做任何操作。語句塊，否那么不做任何操作。表達(dá)式 語句塊 T F VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程單分支構(gòu)造單分支構(gòu)造 例：知兩個(gè)數(shù)例：知兩個(gè)數(shù)x x和和y y，比較它們的大小，使得，比較它們的大小，使得x x大大于于y y。 If xy Then If xy Then t=x t=x x=y x=y y=t y=t End If End If 或或 If xy Then t=x: x=y: y=t If xy Then t=x: x=y: y=t t y x 留意：簡單留意：簡單If方式無方式無End If時(shí)，只能是一句語句時(shí)，只能是一句語句或語句間用冒號(hào)分隔，而且必需在一行上

7、書寫?；蛘Z句間用冒號(hào)分隔，而且必需在一行上書寫。 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程【例【例3-2】“兩個(gè)數(shù)比大小工程：單擊窗體，產(chǎn)生兩個(gè)數(shù)比大小工程：單擊窗體，產(chǎn)生兩個(gè)兩個(gè)0100之間的隨機(jī)整數(shù)之間的隨機(jī)整數(shù)a和和b，比較兩者大小，比較兩者大小，使得使得a大于大于b。運(yùn)轉(zhuǎn)結(jié)果如圖。運(yùn)轉(zhuǎn)結(jié)果如圖3-5所示。所示。Sub Form1_Click() Handles Me.Click Dim a, b, t As Integer a = Int(Rnd() * 101) b = Int(Rnd() * 101) Label1.Text = 原始值：原始值： a= & a & ,

8、b= & b & vbCrLf If a b Then 假設(shè)假設(shè)a比比b小，那么互換小，那么互換 t = a a = b b = t End If Label1.Text &= 降序后：降序后： a= & a & , b= & b End Sub VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程單分支行式If語句If Then l 該語句方式為單分支行該語句方式為單分支行If語句，無語句，無End If。l Then后語句只能寫在一行上，假設(shè)要寫多條語后語句只能寫在一行上，假設(shè)要寫多條語句，這些語句必需用冒號(hào)分隔。只能是一條語句，這些語句必需用冒號(hào)分隔。只能

9、是一條語句或語句間用冒號(hào)分隔，而且必需在一行上書句或語句間用冒號(hào)分隔，而且必需在一行上書寫。寫。l 作用：計(jì)算條件表達(dá)式的值，假設(shè)結(jié)果為作用：計(jì)算條件表達(dá)式的值，假設(shè)結(jié)果為True，那么執(zhí)行那么執(zhí)行Then后面的語句或語句塊，否那后面的語句或語句塊，否那么跳過本語句，執(zhí)行后續(xù)語句么跳過本語句，執(zhí)行后續(xù)語句 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程【例【例3-3】“三個(gè)數(shù)比大小工程：單擊窗體，產(chǎn)生三個(gè)三個(gè)數(shù)比大小工程：單擊窗體，產(chǎn)生三個(gè)0100之間之間的隨機(jī)整數(shù)的隨機(jī)整數(shù)a 、b和和c，比較三個(gè)數(shù)大小，使得，比較三個(gè)數(shù)大小，使得a=b=c。Sub Form1_Click() Handles Me.C

10、lick Dim a, b, c, t As Integer a = Int(Rnd() * 101) b = Int(Rnd() * 101) c = Int(Rnd() * 101) Label1.Text = 原始值：原始值：a= & a & , b= & b & , c= & c & vbCrLf If a b Then t = a : a = b : b = t If a c Then t = a : a = c : c = t If b c Then t = b : b = c : c = t Label1.Text &= 降

11、序后：降序后：a= & a & , b= & b & , c= & cEnd Sub VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程雙分支構(gòu)造雙分支構(gòu)造2. IfThenElse語句語句If 表達(dá)式表達(dá)式 Then語句塊語句塊1Else語句塊語句塊2End If或或 If 表達(dá)式表達(dá)式 Then 語句語句1 Else 語句語句2 表達(dá)式 F 語句塊 1 T 語句塊 2 作用：當(dāng)表達(dá)式的值為作用：當(dāng)表達(dá)式的值為True時(shí)，執(zhí)行時(shí)，執(zhí)行Then后面后面的語句塊的語句塊1，否那么執(zhí)行，否那么執(zhí)行Else后面的語句塊后面的語句塊2 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程雙分

12、支構(gòu)造例雙分支構(gòu)造例計(jì)算分段函數(shù)計(jì)算分段函數(shù)yxxxxxxxsincos231030 單分支單分支 y=cos(x)x3+3*x 構(gòu)造實(shí)現(xiàn)構(gòu)造實(shí)現(xiàn) If x0 Then y=sin(x)+sqrt (x*x+1) If x0 Then 雙分支雙分支 y=sin(x)+sqrt (x*x+1) Else構(gòu)造實(shí)現(xiàn)構(gòu)造實(shí)現(xiàn) y=cos(x)x3+3*x End If VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程【例【例3-4】“判別奇偶判別奇偶1工程：文本框工程：文本框1中輸入整數(shù)，中輸入整數(shù)，單擊單擊“判別奇偶按鈕，判別是偶數(shù)還是奇數(shù)，將結(jié)判別奇偶按鈕，判別是偶數(shù)還是奇數(shù)，將結(jié)果都顯示在文本框果都顯示在文

13、本框2中，單擊一次顯示一行結(jié)果。中，單擊一次顯示一行結(jié)果。分析：用判別整數(shù)能否被分析：用判別整數(shù)能否被2整除來判別奇偶數(shù)。整除來判別奇偶數(shù)。程序如下：程序如下：Sub Button1_Click() Handles Button1.Click Dim x As Integer x = Val(TextBox1.Text) If x Mod 2 = 0 Then TextBox2.Text &= x & 是偶數(shù)是偶數(shù) & vbCrLf Else TextBox2.Text &= x & 是奇數(shù)是奇數(shù) & vbCrLf End IfEnd Sub V

14、B.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程If語句的嵌套 闡明：闡明：1. 運(yùn)用運(yùn)用If語句的嵌套時(shí)，內(nèi)層的語句的嵌套時(shí)，內(nèi)層的If語句必需完全包含在外層語句必需完全包含在外層的的If語句中，內(nèi)外層構(gòu)造不能交叉。語句中，內(nèi)外層構(gòu)造不能交叉。2. 為防止混淆，為防止混淆，VB.NET規(guī)定規(guī)定Else總是和離它最近且尚未配總是和離它最近且尚未配對(duì)的對(duì)的If進(jìn)展配對(duì)。進(jìn)展配對(duì)。3. 除行除行If語句外，每個(gè)語句外，每個(gè)End If與它上面最接近的與它上面最接近的IF配對(duì)。配對(duì)。書寫格式普通為鋸齒形，以便于區(qū)分和配對(duì)。書寫格式普通為鋸齒形，以便于區(qū)分和配對(duì)。 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程【例【例3-5

15、】“判別奇偶判別奇偶2工程：文本框工程：文本框1中輸入整數(shù)后回車，判別中輸入整數(shù)后回車，判別是偶數(shù)還是奇數(shù)，將結(jié)果都顯示在文本框是偶數(shù)還是奇數(shù)，將結(jié)果都顯示在文本框2中。輸入假設(shè)不是整數(shù)，中。輸入假設(shè)不是整數(shù)，請(qǐng)出現(xiàn)提示信息。請(qǐng)出現(xiàn)提示信息。 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程多分支構(gòu)造多分支構(gòu)造 3. IfThenElseIf 語句語句 If 表達(dá)式表達(dá)式1 Then 語句塊語句塊1 ElseIf 表達(dá)式表達(dá)式2 Then 語句塊語句塊2 Else 語句塊語句塊 n+1 End If 表 達(dá) 式 2 表 達(dá) 式n T F T F 語 句 塊 n+ 1 語 句 塊 2 語 句 塊 1 F T

16、 表 達(dá) 式 1 語 句 塊 n 作用：根據(jù)不同的表達(dá)式值確定執(zhí)行哪個(gè)語句塊作用：根據(jù)不同的表達(dá)式值確定執(zhí)行哪個(gè)語句塊 闡明：闡明：u 不論有幾個(gè)分支，依次判別，當(dāng)某條件滿不論有幾個(gè)分支，依次判別，當(dāng)某條件滿足，執(zhí)行相應(yīng)的語句，其他分支不再執(zhí)行；足，執(zhí)行相應(yīng)的語句，其他分支不再執(zhí)行；假設(shè)條件都不滿足，且有假設(shè)條件都不滿足，且有Else子句，那么執(zhí)子句，那么執(zhí)行該語句塊，否那么什么也不執(zhí)行。行該語句塊，否那么什么也不執(zhí)行。u ElseIf不能寫成不能寫成 Else If VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程例例 知變量知變量chch中存放了一個(gè)字符，判別該字符是字母字中存放了一個(gè)字符，判別該字符

17、是字母字符、數(shù)字字符還是其他字符。符、數(shù)字字符還是其他字符。 If UCase(ch) = A And UCase(ch) = A And UCase(ch) = 0 And ch = 0 And ch x and is 0 And y 0 Then MsgBox(在第一象限在第一象限) ElseIf x 0 Then MsgBox(在第二象限在第二象限)ElseIf x 0 And y 0 And y 0 And y 0 MsgBox(“在第一象限在第一象限) Case x 0 MsgBox(“在第二象限在第二象限) Case x 0 And y 0 And y y，x，y) 該語句與如下語

18、句等價(jià)該語句與如下語句等價(jià) ： If x y Then Tmax = x Else Tmax = y VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程條件函數(shù)條件函數(shù) (2) Choose函數(shù)函數(shù) Choose(整數(shù)表達(dá)式，選項(xiàng)列表整數(shù)表達(dá)式，選項(xiàng)列表)根據(jù)表達(dá)式的值根據(jù)表達(dá)式的值i,前往選項(xiàng)列表中第前往選項(xiàng)列表中第i個(gè)選項(xiàng)。假個(gè)選項(xiàng)。假設(shè)整數(shù)表達(dá)式的值越出選項(xiàng)范圍時(shí)，前往設(shè)整數(shù)表達(dá)式的值越出選項(xiàng)范圍時(shí)，前往Null。例例 根據(jù)根據(jù)Nop的值，得到的值，得到+、-、中的某運(yùn)算中的某運(yùn)算符：符：Op= Choose(Nop，+，-，) 例例 根據(jù)當(dāng)前日期，顯示今日是星期幾。根據(jù)當(dāng)前日期，顯示今日是星期幾。t

19、 = Choose(Weekday(Now), “星期日星期日, “星期星期一一, “星期二星期二, “星期三星期三, “星期四星期四, “星期星期五五, “星期六星期六)MsgBox(今天是：今天是： & Now & t) Dim nop As Integer, op As CharRandomize()nop = Int(Rnd() * 4 + 1)op = Choose(nop, +, -, , )MsgBox(nop= & nop & op= & op) VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程【例【例3-8】“某日期星期幾工程：在文本框中輸入某日期

20、星期幾工程：在文本框中輸入日期，單擊日期，單擊“星期幾按鈕，顯示該日期是星期幾。星期幾按鈕，顯示該日期是星期幾。 Sub Button1_Click() Handles Button1.Click Dim t As String Dim d As Date d = CDate(TextBox1.Text) t = Choose(Weekday(d), 星期日星期日, 星期一星期一, 星期二星期二, 星期三星期三, 星期四星期四, 星期五星期五, 星期星期六六) Label2.Text = d & 是是 & t End Sub VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程選擇控件與分組控

21、件選擇控件與分組控件 1.1.單項(xiàng)選擇按鈕單項(xiàng)選擇按鈕(RadioButton) (RadioButton) 單項(xiàng)選擇按鈕以組的方式出現(xiàn)，允許選擇一項(xiàng)。單項(xiàng)選擇按鈕以組的方式出現(xiàn)，允許選擇一項(xiàng)。 例單項(xiàng)選擇題測(cè)試?yán)龁雾?xiàng)選擇題測(cè)試1 1主要屬性主要屬性 Text Text屬性屬性 按鈕上顯示的文本按鈕上顯示的文本 Checked Checked屬性屬性 表示單項(xiàng)選擇按鈕的形狀：表示單項(xiàng)選擇按鈕的形狀： True True 被選定被選定 False False 未被選定未被選定 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程單項(xiàng)選擇按鈕單項(xiàng)選擇按鈕 2 2主要事件主要事件 Click Click 單擊后使單

22、擊后使CheckedChecked屬性為屬性為TrueTrue CheckedChanged CheckedChanged 當(dāng)某個(gè)單項(xiàng)選擇按鈕的當(dāng)某個(gè)單項(xiàng)選擇按鈕的形狀被發(fā)生變化，該事件隨之被觸發(fā)。形狀被發(fā)生變化，該事件隨之被觸發(fā)。 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程2.2.復(fù)選框復(fù)選框(CheckBox) (CheckBox) VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程3.3.分組分組 (GroupBox) (GroupBox) 特性：挪動(dòng)、復(fù)制、刪除框架，或?qū)υ摽丶M(jìn)展特性：挪動(dòng)、復(fù)制、刪除框架，或?qū)υ摽丶M(jìn)展Enabled、Visible屬性設(shè)置時(shí)，也同樣作用于該組屬性設(shè)置時(shí)，也同樣作用于該

23、組內(nèi)的其他控件。內(nèi)的其他控件。 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程例 經(jīng)過單項(xiàng)選擇按鈕和分組控件設(shè)置文本框的Font屬性。在每個(gè)單項(xiàng)選擇按鈕和復(fù)選在每個(gè)單項(xiàng)選擇按鈕和復(fù)選框中編寫單獨(dú)的過程。本程框中編寫單獨(dú)的過程。本程序共編寫了序共編寫了8個(gè)過程個(gè)過程 帶來問題：繁瑣帶來問題：繁瑣 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程 在在VB.NET中設(shè)置字體，需求生成一個(gè)中設(shè)置字體，需求生成一個(gè)Font類型的對(duì)類型的對(duì)象，創(chuàng)建新字體需指定的參數(shù)包括字體、字號(hào)、字型。詳象，創(chuàng)建新字體需指定的參數(shù)包括字體、字號(hào)、字型。詳細(xì)語法格式：細(xì)語法格式： 對(duì)象對(duì)象.Font=new Font(Fontname,Fon

24、tsize,Fontstyle)闡明：其中闡明：其中Fontstyle字型是枚舉類型，其值有：字型是枚舉類型，其值有： FontStyle.Regular 、FontStyle.Bold 、FontStyle.Italic 、FontStyle.Underline、 FontStyle.Strikeout。Fontname和和Fontsize兩個(gè)參數(shù)可以合并成兩個(gè)參數(shù)可以合并成FontFontstyle參數(shù)可以省略。參數(shù)可以省略。 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程Sub RadioButton1_CheckedChanged() Handles Label1.Font = New Font

25、(宋體宋體, Label1.Font.Size, Label1.Font.Style) End SubSub CheckBox1_CheckedChanged() Handles .If CheckBox1.Checked Then 選中粗體選中粗體 Label1.Font = New Font(Label1.Font, Label1.Font.Style Or FontStyle.Bold) Else 取消粗體取消粗體 Label1.Font = New Font(Label1.Font, Label1.Font.Style And Not FontStyle.Bold) End If單項(xiàng)選擇按鈕事單項(xiàng)選擇按鈕事件件復(fù)選按鈕事件復(fù)選按鈕事件在每個(gè)單項(xiàng)選擇按鈕和復(fù)選在每個(gè)單項(xiàng)選擇按鈕和復(fù)選框中編寫單獨(dú)的過程。本程框中編寫單獨(dú)的過程。本程序共編寫了序共編寫了8個(gè)過程個(gè)過程 帶來問題：繁瑣帶來問題：繁瑣 VB.NET程序設(shè)計(jì)教程程序設(shè)計(jì)教程例例 對(duì)上例進(jìn)展改動(dòng)，用一個(gè)事件過程實(shí)現(xiàn)。對(duì)上例進(jìn)展改動(dòng)，用一個(gè)事件過程實(shí)現(xiàn)。實(shí)現(xiàn)思想：實(shí)現(xiàn)思想：對(duì)每個(gè)按鈕要進(jìn)展形狀判別對(duì)每個(gè)按鈕要進(jìn)展形狀判別何為共享事件處置過程？何為共享事件處置過程？即多個(gè)控件共享事件處置過程即多個(gè)控件共享事件處置過程 ，方式：，方式：對(duì)象對(duì)象_事件參數(shù)事件參數(shù)Handles 對(duì)象對(duì)象.事件，對(duì)象事件，對(duì)