Visual Basic 程序设计 第5章 选择结构设计

Presentation on theme: "Visual Basic 程序设计 第5章 选择结构设计"— Presentation transcript:

1 Visual Basic 程序设计 第5章 选择结构设计

2 主要内容 选择结构的概念 条件表达式，比较运算和布尔运算 条件语句 If … 多分支选择语句 Select Case … 标准控件
单选按钮 OptionButton 复选框 CheckBox 定时器 Timer

3 选择结构的概念 用于分析、比较、判断。对不同情况要进行不同的处理。 条件表达式由比较运算、布尔运算完成，表达式的值为True或False
例： 1. x>=0 and x <=1 (0 ≤ x ≤ 1) 2. x>y and y>0 (x>y>o) 3. Not x>0 or x>5

4 比较运算 比较运算: < <= = >= > <>
比较运算: < <= = >= > <> 数值之间比较，例 x!>0 等 注意：对浮点（单精度、双精度）数不要进行=（等于）比较，如 x!= －不可靠 字符串（可以包含汉字及其他文字、符号）之间比较按内码大小，从第1个字符开始。

5 逻辑运算 A B Not A A And B A Or B A Xor B A Equ B A Imp B F T 注：1. A、B均为逻辑表达式。如果是数值，则其值非零时看作True，值为零时看作False。 例如：表达式 4>3 And 5>4 的值为True 2. F － False，T － True

6 单行 If 语句 格式： If 条件 Then 语句1 [ Else 语句2 ] 例： 1. If a<0 Then a=-a
2. If x>=0 Then y=sqr(x) Else y=-x

7 多行 If 语句 格式： If <条件1> Then [语句块1] [ElseIf <条件2> 语句块2]…
语句块3] End If 条件1 False 条件2 语句块1 True 语句块3 False 语句块2 True End If 后 下个语句

8 多行 If 语句 格式： 例： If <条件> Then [语句块] [ElseIf <条件> 语句块]…
End If 例： d=InputBox(“请输入你的出生日期”) If Isdate(d) Then Msgbox “你出世已有” _ & Date-cdate(d) & “天” Else Msgbox “输入错误！” End If

9 Select Case语句 格式: 用途:多分支选择 Select Case <测试表达式>
<语句块>]… [Case Else <语句块>] End Select 用途:多分支选择

10 Select Case <表达式>
①②③为表达式取值范围，可为： 常量或常量列表，如 10，20 值1 To 值2 如 30 To 50 Is <比较符> 常量，如 Is>50 Select Case <表达式> Case ① Case ② No Case ③ No 语句块4 No （Case Else） 语句块1 Yes 语句块2 Yes 语句块3 Yes End Select 的下个语句

11 例1:按得分定等级 Select Case cj Case 100 ‘如果成绩 cj=100 lev=“满分”
Case is >= ‘如果cj>=90 lev = “优秀” Case 75 to ‘如果 cj 在 75 与 89 之间 lev = “良好” Case 60 to 74 ‘如果 cj 在 60 与 74 之间 lev = “及格” Case Else ‘其他情况 lev=“不及格” End Select

12 例2：判断输入字符类型 程序功能：在文本框中输入一串字符，在输入同时判别输入字符的类型，并显示在一个标签中。同时统计不同类别字符的个数。
类别分：大写字母、小写字母、数字、韵母(a,e,i,o,u)、汉字、其他。 例

13 输入字符类别判断 Select Case c Case "A", "E", "I", "O", "U" t = "大写韵母"
Case "A" To "Z" t = "大写字母" Case "a", "e", "i", "o", "u" t = "小写韵母" Case "a" To "z" t = "小写字母" Case "0" To "9" t = "数字" Case Is > "~" t = "汉字" Case Else tp = "其他字符" End Select Text1.Text=t

14 例3:信号灯 Private Sub Timer1_Timer() a = (a + 1) Mod 6 Select Case a
P1.Picture = Image1.Picture 'red Case 3 P1.Picture = Image2.Picture 'yellow Case Is > 3 P1.Picture = Image3.Picture 'green End Select End Sub 运行

15 Frame（框架） Frame（框架）是一个容器。用于把其他的控件组织在一起。当框架移动、隐藏时，其包容的控件也都跟着移动、隐藏。
框架的常用属性有： Caption － 设置框架标题，使用户了解框架的用途。 Enabled － 设置框架是否有效。 Visible － 设置框架是否可见。

16 OptionButton（单选按钮） 多个选项应在同一个容器中： 用于从多个可选项中选择其中之一。 主要属性： Caption 标题
Value 值，布尔量。True－选中，False－不选 Style 外观： Standerd－标准方式，圆形 Graphical－图形方式，象按钮 多个选项应在同一个容器中： 窗体（Form） 框架（Frame） 图片框（PictureBox）

17 CheckBox（复选框） 主要属性： 复选框之间无制约。 Caption：标题，用于说明。 Value：值，可取：
0－UnChecked，不选 1－Checked，全选 2－Grayed，部分选中 单击复选框时，不会选2 纠错：P.100,第7行 复选框之间无制约。 实例

18 Timer（定时器） 关键属性： Enabled： True：定时器处于工作状态。 False：处于待命状态。
Interval: 时间间隔周期（毫秒数)。 如果 Interval＝0 ，也不会发生Timer事件。 Timer事件：定时时间到。重新计时。 应用于：计时、动画等 例

19 颜色及有关常量及函数 颜色值用长整型数表示，如： 内置颜色函数： 颜色常量：vbRed,vbBlue,vbBlack等
蓝色：&H00FF0000& 绿色：&H0000FF00& 红色：&H000000FF& 内置颜色函数： RGB(red,green,blue) red,green,blue: 0~255 QBColor(n) n=0,1,2,…,15 颜色常量：vbRed,vbBlue,vbBlack等 例