第3章选择结构ppt课件

1、 VB.NET程序设计教程程序设计教程 VB.NET程序设计教程程序设计教程3.1 引例：字号变大系统登录3.2 If语句3.3 Select Case多分支构造3.4 条件函数3.5 选择控件与分组控件3.6 综合运用 本章目录本章目录 VB.NET程序设计教程程序设计教程顺序构造、选择构造、循环构造顺序构造、选择构造、循环构造构造化程序设计三种控制构造构造化程序设计三种控制构造1顺序构造顺序构造 各语句按出现的先后次序执行各语句按出现的先后次序执行bABa用传统流程图用传统流程图表示为表示为 VB.NET程序设计教程程序设计教程2 2选择构造选择构造传统流程图传统流程图:b ba a条件？

2、条件？AB不成立不成立成立成立根据条件决议执行的语句根据条件决议执行的语句 VB.NET程序设计教程程序设计教程3 3循环构造循环构造I 、 当型循环构造当型循环构造 条件条件？成立成立循环体循环体b b不成立不成立a aa a循环体循环体b b不成立不成立成立成立条件？条件？II 、直到型循环构造、直到型循环构造 根据条件反复执行语句根据条件反复执行语句(称为循环体称为循环体) VB.NET程序设计教程程序设计教程3.1 3.1 引例：字体变大登陆系统引例：字体变大登陆系统【例【例3-1】：创建标题为】：创建标题为“系统登录窗体，输入用户系统登录窗体，输入用户名和密码，单击名和密码，单击“确

3、定按钮，出现相应的信息提示。确定按钮，出现相应的信息提示。1. 如输入用户名错误，出现如输入用户名错误，出现“用户名错误，请重新输入！用户名错误，请重新输入！提示提示2. 如输入用户名正确，密码错误，出现如输入用户名正确，密码错误，出现“密码错误，请密码错误，请重新输入！提示，用户名和密码输错了重新输入！提示，用户名和密码输错了3次，退出系次，退出系统。统。3. 如用户名和密码都正确，出现如用户名和密码都正确，出现“输入正确，欢迎运用输入正确，欢迎运用系统！提示。同时原窗体中除系统！提示。同时原窗体中除“退出按钮外，其他退出按钮外，其他控件全部隐藏，显示标签控件全部隐藏，显示标签Label3，

4、标签显示，标签显示“字号字号+字号大小。字号大小。Label3控件字号大小会自动递增，不断到控件字号大小会自动递增，不断到100。窗体大小设置为自动变化，窗体标题设置为。窗体大小设置为自动变化，窗体标题设置为“字字号逐渐变大。号逐渐变大。 VB.NET程序设计教程程序设计教程3.1 3.1 选择构造选择构造 u计算机要处置的问题往往是复杂多变的，计算机要处置的问题往往是复杂多变的，仅采用顺序构造是不够的。仅采用顺序构造是不够的。u必需利用选择构造等来处理实践运用中的必需利用选择构造等来处理实践运用中的各种问题。各种问题。uVB中主要经过中主要经过If条件语句和条件语句和Select情况语情况语

5、句来实现。它们都是对条件进展判别，根据句来实现。它们都是对条件进展判别，根据判别结果，选择执行不同的分支。判别结果，选择执行不同的分支。 VB.NET程序设计教程程序设计教程3.2.1 If3.2.1 If条件语句条件语句 1. IfThen语句语句(单分支构造单分支构造) If Then 语句块可以是一句或多句语句语句块可以是一句或多句语句 End If表表 达达 式：式： 算术、关系和逻辑表达式。算术、关系和逻辑表达式。表达式值：按非零为表达式值：按非零为True，零为，零为False进展判别。进展判别。作作 用：用： 当表达式值为当表达式值为True，执行，执行Then后面的后面的 语句

6、块，否那么不做任何操作。语句块，否那么不做任何操作。表达式 语句块 T F VB.NET程序设计教程程序设计教程单分支构造单分支构造 例：知两个数例：知两个数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时，只能是一句语句时，只能是一句语句或语句间用冒号分隔，而且必需在一行上

7、书写。或语句间用冒号分隔，而且必需在一行上书写。 VB.NET程序设计教程程序设计教程【例【例3-2】“两个数比大小工程：单击窗体，产生两个数比大小工程：单击窗体，产生两个两个0100之间的随机整数之间的随机整数a和和b，比较两者大小，比较两者大小，使得使得a大于大于b。运转结果如图。运转结果如图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 假设假设a比比b小，那么互换小，那么互换 t = a a = b b = t End If Label1.Text &= 降序后：降序后： a= & a & , b= & b End Sub VB.NET程序设计教程程序设计教程单分支行式If语句If Then l 该语句方式为单分支行该语句方式为单分支行If语句，无语句，无End If。l Then后语句只能写在一行上，假设要写多条语后语句只能写在一行上，假设要写多条语句，这些语句必需用冒号分隔。只能是一条语句，这些语句必需用冒号分隔。只能

9、是一条语句或语句间用冒号分隔，而且必需在一行上书句或语句间用冒号分隔，而且必需在一行上书写。写。l 作用：计算条件表达式的值，假设结果为作用：计算条件表达式的值，假设结果为True，那么执行那么执行Then后面的语句或语句块，否那后面的语句或语句块，否那么跳过本语句，执行后续语句么跳过本语句，执行后续语句 VB.NET程序设计教程程序设计教程【例【例3-3】“三个数比大小工程：单击窗体，产生三个三个数比大小工程：单击窗体，产生三个0100之间之间的随机整数的随机整数a 、b和和c，比较三个数大小，使得，比较三个数大小，使得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程序设计教程程序设计教程双分支构造双分支构造2. IfThenElse语句语句If 表达式表达式 Then语句块语句块1Else语句块语句块2End If或或 If 表达式表达式 Then 语句语句1 Else 语句语句2 表达式 F 语句块 1 T 语句块 2 作用：当表达式的值为作用：当表达式的值为True时，执行时，执行Then后面后面的语句块的语句块1，否那么执行，否那么执行Else后面的语句块后面的语句块2 VB.NET程序设计教程程序设计教程双分

12、支构造例双分支构造例计算分段函数计算分段函数yxxxxxxxsincos231030 单分支单分支 y=cos(x)x3+3*x 构造实现构造实现 If x0 Then y=sin(x)+sqrt (x*x+1) If x0 Then 双分支双分支 y=sin(x)+sqrt (x*x+1) Else构造实现构造实现 y=cos(x)x3+3*x End If VB.NET程序设计教程程序设计教程【例【例3-4】“判别奇偶判别奇偶1工程：文本框工程：文本框1中输入整数，中输入整数，单击单击“判别奇偶按钮，判别是偶数还是奇数，将结判别奇偶按钮，判别是偶数还是奇数，将结果都显示在文本框果都显示在文

13、本框2中，单击一次显示一行结果。中，单击一次显示一行结果。分析：用判别整数能否被分析：用判别整数能否被2整除来判别奇偶数。整除来判别奇偶数。程序如下：程序如下：Sub Button1_Click() Handles Button1.Click Dim x As Integer x = Val(TextBox1.Text) If x Mod 2 = 0 Then TextBox2.Text &= x & 是偶数是偶数 & vbCrLf Else TextBox2.Text &= x & 是奇数是奇数 & vbCrLf End IfEnd Sub V

14、B.NET程序设计教程程序设计教程If语句的嵌套 阐明：阐明：1. 运用运用If语句的嵌套时，内层的语句的嵌套时，内层的If语句必需完全包含在外层语句必需完全包含在外层的的If语句中，内外层构造不能交叉。语句中，内外层构造不能交叉。2. 为防止混淆，为防止混淆，VB.NET规定规定Else总是和离它最近且尚未配总是和离它最近且尚未配对的对的If进展配对。进展配对。3. 除行除行If语句外，每个语句外，每个End If与它上面最接近的与它上面最接近的IF配对。配对。书写格式普通为锯齿形，以便于区分和配对。书写格式普通为锯齿形，以便于区分和配对。 VB.NET程序设计教程程序设计教程【例【例3-5

15、】“判别奇偶判别奇偶2工程：文本框工程：文本框1中输入整数后回车，判别中输入整数后回车，判别是偶数还是奇数，将结果都显示在文本框是偶数还是奇数，将结果都显示在文本框2中。输入假设不是整数，中。输入假设不是整数，请出现提示信息。请出现提示信息。 VB.NET程序设计教程程序设计教程多分支构造多分支构造 3. IfThenElseIf 语句语句 If 表达式表达式1 Then 语句块语句块1 ElseIf 表达式表达式2 Then 语句块语句块2 Else 语句块语句块 n+1 End If 表 达 式 2 表 达 式n T F T F 语 句 块 n+ 1 语 句 块 2 语 句 块 1 F T

16、 表 达 式 1 语 句 块 n 作用：根据不同的表达式值确定执行哪个语句块作用：根据不同的表达式值确定执行哪个语句块 阐明：阐明：u 不论有几个分支，依次判别，当某条件满不论有几个分支，依次判别，当某条件满足，执行相应的语句，其他分支不再执行；足，执行相应的语句，其他分支不再执行；假设条件都不满足，且有假设条件都不满足，且有Else子句，那么执子句，那么执行该语句块，否那么什么也不执行。行该语句块，否那么什么也不执行。u ElseIf不能写成不能写成 Else If VB.NET程序设计教程程序设计教程例例 知变量知变量chch中存放了一个字符，判别该字符是字母字中存放了一个字符，判别该字符

17、是字母字符、数字字符还是其他字符。符、数字字符还是其他字符。 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、句等价该语句与如下语句等价 ： If x y Then Tmax = x Else Tmax = y VB.NET程序设计教程程序设计教程条件函数条件函数 (2) Choose函数函数 Choose(整数表达式，选项列表整数表达式，选项列表)根据表达式的值根据表达式的值i,前往选项列表中第前往选项列表中第i个选项。假个选项。假设整数表达式的值越出选项范围时，前往设整数表达式的值越出选项范围时，前往Null。例例 根据根据Nop的值，得到的值，得到+、-、中的某运算中的某运算符：符：Op= Choose(Nop，+，-，) 例例 根据当前日期，显示今日是星期几。根据当前日期，显示今日是星期几。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程序设计教程程序设计教程【例【例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程序设计教程程序设计教程选择控件与分组控

21、件选择控件与分组控件 1.1.单项选择按钮单项选择按钮(RadioButton) (RadioButton) 单项选择按钮以组的方式出现，允许选择一项。单项选择按钮以组的方式出现，允许选择一项。 例单项选择题测试例单项选择题测试1 1主要属性主要属性 Text Text属性属性 按钮上显示的文本按钮上显示的文本 Checked Checked属性属性 表示单项选择按钮的形状：表示单项选择按钮的形状： True True 被选定被选定 False False 未被选定未被选定 VB.NET程序设计教程程序设计教程单项选择按钮单项选择按钮 2 2主要事件主要事件 Click Click 单击后使单

22、击后使CheckedChecked属性为属性为TrueTrue CheckedChanged CheckedChanged 当某个单项选择按钮的当某个单项选择按钮的形状被发生变化，该事件随之被触发。形状被发生变化，该事件随之被触发。 VB.NET程序设计教程程序设计教程2.2.复选框复选框(CheckBox) (CheckBox) VB.NET程序设计教程程序设计教程3.3.分组分组 (GroupBox) (GroupBox) 特性：挪动、复制、删除框架，或对该控件进展特性：挪动、复制、删除框架，或对该控件进展Enabled、Visible属性设置时，也同样作用于该组属性设置时，也同样作用于该

23、组内的其他控件。内的其他控件。 VB.NET程序设计教程程序设计教程例 经过单项选择按钮和分组控件设置文本框的Font属性。在每个单项选择按钮和复选在每个单项选择按钮和复选框中编写单独的过程。本程框中编写单独的过程。本程序共编写了序共编写了8个过程个过程 带来问题：繁琐带来问题：繁琐 VB.NET程序设计教程程序设计教程 在在VB.NET中设置字体，需求生成一个中设置字体，需求生成一个Font类型的对类型的对象，创建新字体需指定的参数包括字体、字号、字型。详象，创建新字体需指定的参数包括字体、字号、字型。详细语法格式：细语法格式： 对象对象.Font=new Font(Fontname,Fon

24、tsize,Fontstyle)阐明：其中阐明：其中Fontstyle字型是枚举类型，其值有：字型是枚举类型，其值有： FontStyle.Regular 、FontStyle.Bold 、FontStyle.Italic 、FontStyle.Underline、 FontStyle.Strikeout。Fontname和和Fontsize两个参数可以合并成两个参数可以合并成FontFontstyle参数可以省略。参数可以省略。 VB.NET程序设计教程程序设计教程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单项选择按钮事单项选择按钮事件件复选按钮事件复选按钮事件在每个单项选择按钮和复选在每个单项选择按钮和复选框中编写单独的过程。本程框中编写单独的过程。本程序共编写了序共编写了8个过程个过程 带来问题：繁琐带来问题：繁琐 VB.NET程序设计教程程序设计教程例例 对上例进展改动，用一个事件过程实现。对上例进展改动，用一个事件过程实现。实现思想：实现思想：对每个按钮要进展形状判别对每个按钮要进展形状判别何为共享事件处置过程？何为共享事件处置过程？即多个控件共享事件处置过程即多个控件共享事件处置过程 ，方式：，方式：对象对象_事件参数事件参数Handles 对象对象.事件，对象事件，对