VB语言程序设计选择结构程序设计.ppt

选择结构程序设计 第四章 第第4 4章章 分支结构分支结构 本章内容 4.1 条件表达式 4.2 条件语句 4.3 多分支语句 4.4 选择性控件 4.5 计时器控件 4.6 程序举例 第第4 4章章 分支结构分支结构 1.关系运算符及关系表达式（简单条件） 运算符功 能例 子 表达式 值值 大于31True =大于或等于6+8=15False =等于3*6=20False 不等于4-5True 条件表达式 关系运算符的优先级别相同。 第第4 4章章 分支结构分支结构 关系表达式说明 (1) 在关系表达式中两个操作数进行大小比较，结 果为逻辑值。 (2) 如果两个操作数是数值型，则按其大小比较。 (3) 如果两个操作数是字符串，则按字符的ASCII码 值从左到右逐一比较，最先出现的不一样字符之间 的关系决定了两个字符串比较的结果。 “AB” Text2 若是数字字符，不能比 较 Val(Text1) Val(Text2) 转换数值，再比较大 小 结果：结果：TrueTrue 第第4 4章章 分支结构分支结构 关系表达式说明 (4) 如果两个操作数是日期型，将日期看成 “yyyymmdd”的8位整数，按数值大小比较。 #09/18/2006# #09/23/2006# 结果为： False 第第4 4章章 分支结构分支结构 2.逻辑运算符及逻辑表达式（复杂条件） 运算符功 能例 子表达式值 NOT非NOT 3+56 NOT 3+56 AND 4*5=20 3+56 True False 第第4 4章章 分支结构分支结构 2.逻辑运算符及逻辑表达式 运算符功 能例 子表达式值 Xor异或32 Xor 32 Xor 34 False True Eqv等价76 Eqv 76 Eqv 78 True False Imp蕴蕴含76 Imp 78 7= 3 And x = 3 And x 21 32 And 21 结果：True 结果：False 结果：True 结果：False 第第4 4章章 分支结构分支结构 a 小数 b 大数 比a大，比b小 用 And 比a小，比b大 用 Or a 小数 b 大数 x =bx =b 第第4 4章章 分支结构分支结构 表达式的组成及种类 表达式的种类 ： 算术运算符与算术表达式 字符串连接运算符与字符串连接表达 式 关系运算符与关系表达式 逻辑运算符与逻辑表达式。 第第4 4章章 分支结构分支结构 运算符的优先级 当一个表达式中存在多种运算符时，按如下 优先级的先后顺序进行运算： 算术运算符字符运算符关系运算符逻辑运算 符 函数幂()取负(-)乘、浮点除(*、/)整除( )取模(mod)加减(+、-)连接( (2) “表达式列表I”为下列四种形式： 一个值 如： Case 2 一组值(用逗号分隔) 如： Case 2,4,6,8 表达式1 To 表达式2 如： Case 60 To 100 (必须把较小值写在前面，即表达式1 100 第第4 4章章 分支结构分支结构 Select Case h Case Is 100 第第4 4章章 选择结构选择结构 例：判断大小写字母问题，用Select Case情况语句 实现。 第第4 4章章 选择结构选择结构 提供选项让用户选择，如选择“是”或“否”， 从列表中选择某一项或某几项等 选择的控件有： 单选按钮、复选框、列表框和组合框 选择性控件 第第4 4章章 选择结构选择结构 单选按钮(OptionButton) 单选按钮(OptionButton)控 件由一个圆圈“”及紧挨它 的文字组成，总是以成组的 形式出现。 单选按钮用于从一组选项中 选取其一。如果有一项被选 中，则其他单选按钮将自动 变成未选中。 有“选中”和“未选中”两种状 态 单选按钮组 Caption属性 第第4 4章章 选择结构选择结构 单选按钮(OptionButton) 如果在一个窗 体中要建立一个 以上的选项组时 ，需添加框架 (Frame)分组，置 于同一框架中的 单选按钮组成一 组。 第第4 4章章 选择结构选择结构 2. 常用属性 Caption属性：设置单选按钮旁边的文字说明 Value属性：表示单选按钮是否被选中，选中时 Value值为True,否则为False。在一组单选按钮组中， 选中其中一个，其余就会自动未选中。 Alignment属性：设置单选按钮标题的对齐方式 Style属性；Picture属性 3. 事件 Click事件 当运行时单击单选按钮，单选按钮的Value属性 的值由False改为True，执行相应的操作代码。 第第4 4章章 选择结构选择结构 (1) 创建应用程序的用户界面和设置对象属性 单选按钮组； 初始状态：设置Option1的Value属性值设置为True，或通过代码 “Option1.Value=True” 来实现 (2) 编写程序代码 功能要求 例4.5 用单选按钮组控制显示不同的字体 第第4 4章章 选择结构选择结构 程序代码如下： Private Sub Option1_Click() Text1.FontName = “宋体“ End Sub Private Sub Option2_Click() Text1.FontName = “幼圆“ End Sub Private Sub Option3_Click() Text1.FontName = “楷体_GB2312“ End Sub 说明：程序代码中所用的字体名称(如“宋体”、“幼圆”等 )必须与系统提供的字体相一致 第第4 4章章 选择结构选择结构 复选框(CheckBox) 控件由一个四方形小框和紧 挨它的文字组成。提供“选中”和“未选中”两种可选 项 复选框也称作复选按钮，被选中后左侧方块中 会出现，用户可通过复选框是否被选中控制操作。 在一组复选框选项中，用户可以选择一个或多 个复选框选项，也可以一个选项也不选。 复选框(CheckBox) 第第4 4章章 选择结构选择结构 2. 常用属性 Caption属性 Value属性：表示复选框的状态 有三种取值：0未选中(缺省值) 1选中 2不可用(灰色显示) Alignment属性；Style属性；Picture属性 3. 事件 Click事件 在应用程序中可以创建一个事件过程，检测控件 对象Value属性值，再根据检测结果执行相应的处理 复选框(CheckBox) 第第4 4章章 选择结构选择结构 (1)创建应用程序的用户界面和设置对象属性 多行文本框(带垂直滚动条)和四个复选框 (2)编写程序代码 功能要求：程序开始运行后，用户在文本框中输入一段文字(如“ 复选框应用示例”)，然后按需要单击各复选框，则文字的字体、字型、 字号及颜色随之改变 例4.6 用复选框来控制文字的字体、字型、字号及颜色 第第4 4章章 选择结构选择结构 Private Sub Check1_Click() If Check1.Value = 1 Then 判复选框1是否选 中 Text1.FontName = “楷体_GB2312“ Else Text1.FontName = “宋体“ End If End Sub Private Sub Check2_Click() If Check2.Value = 1 Then 判复选框2是否选 中 Text1.FontItalic = True Else Text1.FontItalic = False End If End Sub 第第4 4章章 选择结构选择结构 Private Sub Check3_Click() If Check3.Value = 1 Then 判复选框3是否选中 Text1.FontSize = 25 Else Text1.FontSize = 9 End If End Sub Private Sub Check4_Click() If Check4.Value = 1 Then 判复选框4是否选中 Text1.ForeColor = RGB(255, 0, 0) Else Text1.ForeColor = RGB(0, 0, 0) End If End Sub 第第4 4章章 选择结构选择结构 计时器控件（Timer） 时钟控件以Interval为时间间隔产生 Timer事件（ 每隔多长时间调用一次Timer事件过程）。 属性名属性 值值 说说 明 Interva l 数值 设置时钟控件的计时事件的时间间 隔数。单位为ms(0.001s)，取值 范围(064767)，即最大时间间 隔不超过65秒。 如: 间隔时间为 0.5秒是则 Interval=500。 间隔时间为 1秒则Interval=1000 。 Interval=0时，时钟控件失效。 Enable d 逻辑 值 True：有效计时 False：停止时钟工作 第第4 4章章 选择结构选择结构 计时器控件只响应一个Timer事件。也就是说， 计时器控件对象在间隔了一个Interval设定时间后，便 触发一次Timer事件。运行时计时器控件不可见，也不 能更改大小。 自动产生Timer事件 (执行相应的事件过程) 自动产生Timer事件 (执行相应的事件过程) 时间间隔 (Interval属性值) 两个Timer事件之间的时间间隔 第第4 4章章 选择结构选择结构 例4.7 建立一个电子时钟 (1) 创建应用程序的用户界面和设置对象属性 一个计时器控件和一个文本框。计时器控件Timer1的 Interval属性值设定为1000(1秒) (2) 编写程序代码 Private Sub Timer1_Timer() timer事件过程 Text1.Text = Time() Time是时间函数 End Sub 运行界面 设计界面 第第4 4章章 选择结构选择结构 例4.8 实现字体的放大 利用计时器可以按指定间隔时间对字体进行放大 (1)创建应用程序的用户界面和设置对象属性 一个计时器控件和一个标签 。 标签内显示文字“放大” 计时器控件Timer1的计时器采用默认的属性值 Enabled属性值为True(真)，Interval属性值为0 第第4 4章章 选择结构选择结构 (2)编写程序代码 Private Sub Form_Load() Label1.Caption = “放大“ Label1.Width = Form1.Width 把标签的高度和宽 度 设置为窗体相同尺 寸 Label1.Height = Form1.Height Timer1.Interval = 800 End Sub Private Sub Timer1_Timer() If Label1.FontSize 0 Then s = s - 1 s大于0时减1 Else If m 0 Then s等于0时先判m是否大于0 m = m - 1 m大于0时减1 s = 59 End If End If Text1.Text = Format(m, “00“) 数字字串，2位格式 Text2.Text = Format(s, “00“) If s = 0 And m = 0 Then Beep 响铃，即让喇叭发一声响 MsgBox “计时结束“ End End If End Sub 第第4 4章章 选择结构选择结构 先在窗体上显示以下考题： 鸡兔同笼，已知鸡和兔总头数为h=23，总脚数为f=56，求鸡兔各有多少只? 再提供输入框由学生回答问题，然后采用输出框显示对答案的评判意见 。 分析：设鸡数为j1，兔鸡数为t1，则有 j1 + t1 = h j1 = (4 * h - f) / 2 2*j1 + 4*t1 = f t1 = (f - 2 * h) / 2 例4.10 求鸡数和兔数 第第4 4章章 选择结构选择结构 当用户单击“答题”按钮时，程序提供输入对话框，由用户输 入答案，再通过输出框显示评判意见。采用的程序代码如下： Private Sub Form_Load() Show Print FontSize = 18 Print Spc(9); “考一考你“ FontSize = 13 Print Print Spc(5); “鸡兔同笼，已知鸡和兔总头数为23，“ Print Spc(3); “总脚数为56，求鸡兔各有多少？“ End Sub 第第4 4章章 选择结构选择结构 Private Sub Command1_Click() “答题” h = 23 : f = 56 总头数及总脚 数 j1 = (4 * h - f) / 2 求出的鸡数 t1 = (f - 2 * h) / 2 求出的兔数 j2 = Val(InputBox(“鸡的只数是多少？“, “请回答“) t2 = Val(InputBox(“兔的只数是多少？“, “请回答“) Select Case True 选择真值 Case j1 = j2 And t1 = t2 MsgBox “回答完全正确!“ Case j1 = j2 MsgBox “鸡数回答正确，但兔数不对!“ Case t1 = t2 MsgBox “兔数回答正确，但鸡数不对!“ Case Else MsgBox “回答错误!“ End Select End Sub 第第4 4章章 选择结构选择结构 (1) 创建应用程序的用户界面和设置对象属性 单选按钮组Option1、Option2、Option3及Option4分别代表+、-、*( 乘)和/(除)运算 (2) 编写程序代码 例4.11 输入两个运算数和运算符(+、-、*或/)，组成算式并计算 结果，然后显示出来 第第4 4章章 选择结构选择结构 Private Sub Command1_Click() “计算”按钮 Dim a As Single, b As Single, t As Single, s As String a = Val(Text1.Text) b = Val(Text2.Text) Select Case True Case Option1.Value + 运算 s = “+“ ： t = a + b Case Option2.Value - 运算 s = “-“ ： t = a - b Case Option3.Value * 运算 s = “*“ : t = a * b Case Option4.Value / 运算 s = “/“ : t = a / b End Select Text3.Text = a & s & b & “=“ & t End Sub Private Sub Command2_Click() Text1.Text = “ Text2.Text = “ Text3.Text = “ End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() Option1.Value = True + 运算 End Sub 第第4 4章章 选择结构选择结构 56、请根据以下要求设计Visual Basic应用程序（包 括界面和代码）。 在名称为Form1的窗体上画一个名称为Frame1、 标题为“框架“的框架，在框架内添加两个名称分别 为Option1、Option2的单选按钮，其标题分别为“第 一项“、“第二项“ 。要求通过设置控件的属性将“第 二项“设置为被选中，框架为不可用。运行程序后 的窗体如图所示。 注意：存盘时必须存放在考生文件夹下， 工程文件名为sj87.vbp，窗体文件名为sj87.frm。 修改属性值： Frame1.Caption=” 框架” Frame1.Enab