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

1、选择结构程序设计,第四章,本章内容,4.1 条件表达式 4.2 条件语句 4.3 多分支语句 4.4 选择性控件 4.5 计时器控件 4.6 程序举例,1.关系运算符及关系表达式（简单条件）,条件表达式,关系运算符的优先级别相同。,关系表达式说明,(1) 在关系表达式中两个操作数进行大小比较，结果为逻辑值。 (2) 如果两个操作数是数值型，则按其大小比较。 (3) 如果两个操作数是字符串，则按字符的ASCII码值从左到右逐一比较，最先出现的不一样字符之间的关系决定了两个字符串比较的结果。 “AB” Text2 若是数字字符，不能比较 Val(Text1) Val(Text2) 转换数值，再比较

2、大小,结果：True,关系表达式说明,(4) 如果两个操作数是日期型，将日期看成“yyyymmdd”的8位整数，按数值大小比较。 #09/18/2006# #09/23/2006# 结果为：False,2.逻辑运算符及逻辑表达式（复杂条件）,2.逻辑运算符及逻辑表达式,例：检查变量x是否大于等于3且小于等于7 正确： 3= 3 And x =7 ) 错误： 3=x=7 或 3=x Or x=7,例：x=9 3= 3 And x =7,例： 321 32 And 21,结果：True,结果：False,结果：True,结果：False,a 小数,b 大数,比a大，比b小 用 And,x =b,表

3、达式的组成及种类,表达式的种类 ： 算术运算符与算术表达式 字符串连接运算符与字符串连接表达式 关系运算符与关系表达式 逻辑运算符与逻辑表达式。,运算符的优先级,当一个表达式中存在多种运算符时，按如下优先级的先后顺序进行运算： 算术运算符字符运算符关系运算符逻辑运算符 函数幂()取负(-)乘、浮点除(*、/)整除( )取模(mod)加减(+、-)连接( (2) “表达式列表I”为下列四种形式： 一个值 如： Case 2 一组值(用逗号分隔) 如： Case 2,4,6,8 表达式1 To 表达式2 如： Case 60 To 100 (必须把较小值写在前面，即表达式1表达式2 ) Is 关系

4、表达式 如： Is 60 (只能是简单条件,不能为组合条件),Case Is 100,Select Case h Case Is 12 Print 早上好！ Case Is 18 Print 下午好！ Case Else Print 晚上好！ End Select,Select Case格式,Select Case h Case Is 18 Print 下午好！ Case Is 12 Print 早上好！ Case Else Print 晚上好！ End Select,Private Sub Command1_Click() Dim score As Integer, temp As Stri

5、ng score = Val(Text1.Text) temp = 成绩等级为： Select Case score Case 0 To 59 Label2.Caption = temp + 不及格 Case 60 To 79 Label2.Caption = temp + 及格 Case 80 To 100 Label2.Caption = temp + “优良 Case Else Label2.Caption = 成绩出错 End Select End Sub,例4.4 判断成绩的等级（优良、及格、不及格）,Case Is 100,例：判断大小写字母问题，用Select Case情况语句实

6、现。,提供选项让用户选择，如选择“是”或“否”，从列表中选择某一项或某几项等 选择的控件有： 单选按钮、复选框、列表框和组合框,选择性控件,单选按钮(OptionButton),单选按钮(OptionButton)控件由一个圆圈“”及紧挨它的文字组成，总是以成组的形式出现。 单选按钮用于从一组选项中选取其一。如果有一项被选中，则其他单选按钮将自动变成未选中。 有“选中”和“未选中”两种状态,单选按钮(OptionButton),如果在一个窗体中要建立一个以上的选项组时，需添加框架(Frame)分组，置于同一框架中的单选按钮组成一组。,2. 常用属性 Caption属性：设置单选按钮旁边的文字说

7、明 Value属性：表示单选按钮是否被选中，选中时 Value值为True,否则为False。在一组单选按钮组中，选中其中一个，其余就会自动未选中。 Alignment属性：设置单选按钮标题的对齐方式 Style属性；Picture属性 3. 事件 Click事件 当运行时单击单选按钮，单选按钮的Value属性的值由False改为True，执行相应的操作代码。,(1) 创建应用程序的用户界面和设置对象属性 单选按钮组； 初始状态：设置Option1的Value属性值设置为True，或通过代码“Option1.Value=True” 来实现 (2) 编写程序代码 功能要求,例4.5 用单选按钮组

8、控制显示不同的字体,程序代码如下： 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 说明：程序代码中所用的字体名称(如“宋体”、“幼圆”等)必须与系统提供的字体相一致,复选框(CheckBox) 控件由一个四方形小框和紧挨它的文字组成。提供“选中”和“未选中”两种可选项 复选框也称作复选按钮，被选

9、中后左侧方块中会出现，用户可通过复选框是否被选中控制操作。 在一组复选框选项中，用户可以选择一个或多个复选框选项，也可以一个选项也不选。,复选框(CheckBox),2. 常用属性 Caption属性 Value属性：表示复选框的状态 有三种取值：0未选中(缺省值) 1选中 2不可用(灰色显示) Alignment属性；Style属性；Picture属性 3. 事件 Click事件 在应用程序中可以创建一个事件过程，检测控件对象Value属性值，再根据检测结果执行相应的处理,复选框(CheckBox),(1)创建应用程序的用户界面和设置对象属性 多行文本框(带垂直滚动条)和四个复选框 (2)编

10、写程序代码 功能要求：程序开始运行后，用户在文本框中输入一段文字(如“复选框应用示例”)，然后按需要单击各复选框，则文字的字体、字型、字号及颜色随之改变,例4.6 用复选框来控制文字的字体、字型、字号及颜色,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

11、.FontItalic = True Else Text1.FontItalic = False End If End Sub,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

12、 = RGB(0, 0, 0) End If End Sub,计时器控件（Timer）,时钟控件以Interval为时间间隔产生 Timer事件（每隔多长时间调用一次Timer事件过程）。,计时器控件只响应一个Timer事件。也就是说，计时器控件对象在间隔了一个Interval设定时间后，便触发一次Timer事件。运行时计时器控件不可见，也不能更改大小。,例4.7 建立一个电子时钟,(1) 创建应用程序的用户界面和设置对象属性 一个计时器控件和一个文本框。计时器控件Timer1的Interval属性值设定为1000(1秒) (2) 编写程序代码 Private Sub Timer1_Timer

13、() timer事件过程 Text1.Text = Time() Time是时间函数 End Sub,运行界面,设计界面,例4.8 实现字体的放大,利用计时器可以按指定间隔时间对字体进行放大 (1)创建应用程序的用户界面和设置对象属性 一个计时器控件和一个标签 。 标签内显示文字“放大” 计时器控件Timer1的计时器采用默认的属性值 Enabled属性值为True(真)，Interval属性值为0,(2)编写程序代码 Private Sub Form_Load() Label1.Caption = 放大 Label1.Width = Form1.Width 把标签的高度和宽度 设置为窗体相同

14、尺寸 Label1.Height = Form1.Height Timer1.Interval = 800 End Sub Private Sub Timer1_Timer() If Label1.FontSize 140 Then Label1.FontSize = Label1.FontSize * 1.2 Else Label1.FontSize = 8 End If End Sub,例4.9 电子倒计时器。先由用户给定倒计时的初始分秒数，然后开始倒计时，当计到0分0秒时，通过消息对话框显示“倒计时结束” (1)在窗体上建立一个计时器(Timer1)、两个标签、两个文本框(Text1和T

15、ext2)和一个命令按钮(Command1) 计时器的Enabled属性值为True, Interval属性值为0,(2)编写程序代码 Dim m As Integer, s As Integer 声明模块级变量 窗体中所有过程都可以访问它们 Private Sub Form_Load() Timer1.Interval = 1000 设置每隔1秒触发1次Timer事件 Timer1.Enabled = False 关闭计时器 End Sub Private Sub Command1_Click() “倒计时” m = Val(Text1.Text) 分钟数 s = Val(Text2.Tex

16、t) 秒数 Timer1.Enabled = True 打开计时器 End Sub,Private Sub Timer1_Timer() 每隔1秒自动执行一次 If s 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

17、 End If End Sub,先在窗体上显示以下考题： 鸡兔同笼，已知鸡和兔总头数为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 求鸡数和兔数,当用户单击“答题”按钮时，程序提供输入对话框，由用户输入答案，再通过输出框显示评判意见。采用的程序代码如下： Private Sub Form_Load() Show Print FontSiz

18、e = 18 Print Spc(9); 考一考你 FontSize = 13 Print Print Spc(5); 鸡兔同笼，已知鸡和兔总头数为23， Print Spc(3); 总脚数为56，求鸡兔各有多少？ End Sub,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

19、 Case True 选择真值 Case j1 = j2 And t1 = t2 MsgBox 回答完全正确! Case j1 = j2 MsgBox 鸡数回答正确，但兔数不对! Case t1 = t2 MsgBox 兔数回答正确，但鸡数不对! Case Else MsgBox 回答错误! End Select End Sub,(1) 创建应用程序的用户界面和设置对象属性 单选按钮组Option1、Option2、Option3及Option4分别代表+、-、*(乘)和/(除)运算 (2) 编写程序代码,例4.11 输入两个运算数和运算符(+、-、*或/)，组成算式并计算结果，然后显示出来,

20、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()