第4章(选择结构)2.ppt

顺序结构程序的执行是按照程序的书写顺序执行的 如果遇到需要根据给定的条件进行分析 比较和判断 并采取不同操作的问题 就不能由顺序结构实现 这时需要使用VB语言提供的选择结构 生活中比较的例子 1 登录界面2 成绩等级评定 2 数学中比较的例子 分段函数 f 0 05 w 0 05 100 0 02 w 100 w 100 w 100 选择结构 SelectionStructure 单分支条件语句 4 双分支条件语句 多分支条件语句 If语句 5 单分支if条件语句 1 单分支结构格式1 If条件Then语句组格式2 If条件Then语句组EndIf功能 如果 条件 成立 值为True 或为非0值 则执行 语句组 否则 直接执行IF语句的下一条语句 通常是关系表达式或逻辑表达式 其值为True或False 若是数值表达式 0为False 非0为True 可以是一条或多条语句 若为多条语句 写在一行 用冒号隔开 严格按此格式 6 例 输入两个数x和y 比较它们的大小 使得x大于y 分析 界面 两个文本框 两个标签 一个命令按钮编码 变量 x y x yx y t 满足要求 不考虑 交换x y的值 Ifx ythen交换x y的值或 ifx ythen交换x y的值endif dimx y t x val text1 text y val text2 text Ifx yThent xx yy tEndIfText1 text x text2 text y 7 或 Ifx yThent x x y y t 8 2 双分支结构格式1 If条件Then语句组1Else语句组2格式2 If条件Then语句组1Else语句组2Endif功能 如果 条件 成立 其值为True 或为非0值 则执行 语句1 否则 执行 语句2 双分支if条件语句 严格按此格式 例 输入x 计算y的值 当x 5 y 2x 当x 5时 y 3x 5 分析 两个标签 两个文本框 一个命令按钮 变量 x y DimxAsSingle yAsSinglex Val Text1 Text Ifx 5Theny 2 xElsey 3 x 5EndIfText2 Text y 10 11 例 输入三个数 求它们中的最大数 分析 界面 四个标签 三个文本框 一个命令按钮 编码 变量 a b c max 程序段 Dima b c max a Val Text1 Text b Val Text2 Text c Val Text3 Text max aIfb maxThenmax bIfc maxThenmax cText4 Text max 演示 例 输入一年号 判断它是否闰年 1 如果此年号能被400整除 2 如果此年号能被4整除 但不能被100整除 满足以上两条件之一 则是闰年 分析 两个标签 一个文本框 一个命令按钮 变量 year yearMod400 0oryearMod4 0AndyearMod1000 DimyearAsIntegeryear Val Text1 Text IfyearMod400 0oryearMod4 0AndyearMod1000ThenLabel2 caption year 是闰年 ElseLabel2 caption year 不是闰年 EndIf 例 输入一个三位数 判断是否水仙花数 153 1 3 5 3 3 3 判断水仙花数 PrivateSubCommand1 Click DimS A B C S VAL InputBox 请输入一个三位数 输入三位数 A S 100B SMod100 10C SMod10IfS A 3 B 3 C 3ThenClsPrintS 是水仙花数 ElseClsPrintS 不是水仙花数 EndIfEndSub 17 多分支if条件语句 3 多分支结构格式 If条件1Then语句块1 ElseIf条件2Then语句块2 Else语句块n EndIf功能 若 条件1 为True 执行 语句1 否则若 条件2 为True 执行 语句2 否则若 即依次判断各条件的值 若上述条件均不成立 执行 语句n 例 输入x 计算y的值 当x 0 y x 当0 x 5 y 2x 当x 5时 y 3x 5 分析 两个标签 两个文本框 一个命令按钮 x singley single DimxAsSingle yAsSinglex Val Text1 Text Ifx 0Theny xElseIfx 5Theny 2 xElsey 3 x 5EndIfText2 Text y 20 例 输入一学生成绩 评定其等级 分析 两个标签 一个文本框 一个命令按钮 x single DimxAsSinglex Val Text1 Text Ifx 100orx 0ThenLabel2 Caption 输入不在有效范围 ElseIfx 60ThenLabel2 Caption 等级 不及格 ElseIfx 70ThenLabel2 Caption 等级 合格 ElseIfx 80ThenLabel2 Caption 等级 中等 ElseIfx 90ThenLabel2 Caption 等级 良好 ElseLabel2 Caption 等级 优秀 EndIf 21 If条件Then语句组1 If条件Then语句组1EndIf Else语句组2 Else语句组2 单分支 双分支 23 If条件1Then语句组1 ElseIf条件2Then语句组2 Else语句组n EndIf 多分支 24 条件函数 1 IIf函数格式 IIf 条件 表达式1 表达式2 功能 当 条件 为真时 表达式1的值为函数值 而当 条件 为假时 表达式2的值为函数值 if条件then表达式1else表达式2 举例 ifx ythenz xelsez y可等价与 z IIf x y x y 用iff函数实现分段函数的计算 当x 5时 y x 2 1y iff x 5 x 2 1 2 x 25 IIf函数实现成绩转换 PrivateSubCommand1 Click CJ Val Text1 Text Text2 Text IIf CJ 90 优 IIf CJ 80 良 IIf CJ 70 中 IIf CJ 60 及格 不及格 EndSub 27 2 Choose函数格式 Choose 整形表达式 选项列表 功能 根据整形表达式的值 决定返回选项列表中的某个值 当变量的值为1时 函数值为第1项的值 当变量的值为2时 函数值为第2项的值 当变量的值为n时 函数值为第n项的值 举例 n 2st Choose n red green blue 可等价与 st green Choose函数实现成绩转换 PrivateSubCommand1 Click CJ Val Text1 Text S CJ 10 1Text2 Text Choose S 不及格 不及格 不及格 不及格 不及格 不及格 及格 中 良 优 优 EndSub 例 输入一个1 7之间的整数 在文本框输出其对应的星期 Dima a Val InputBox 请输入一个1 7之间的整数 Text1 Text 星期 Choose a 一 二 三 四 五 六 日 29 多重窗体是指在一个工程中有多个普通窗体 而每个窗体都拥有自己的用户界面和事件代码 通过工程管理形成一个复杂的 功能强大的应用程序 多重窗体程序设计 补充 1 Load语句格式 Load窗体名称功能 将一个窗体装入内存 说明 此时仅能引用窗体中的控件及各种属性 但运行时窗体并不显示到屏幕上 2 UnLoad语句格式 UnLoad窗体名称功能 清除内存中的窗体 3 Show方法格式 窗体名称 Show 模式 功能 将一个窗体装入内存 并在屏幕上显示 4 Hide方法格式 窗体名称 Hide功能 隐藏指定的窗体 但仍保存在内存中 多重窗体的添加 工程 添加窗体 设置启动窗体 打开的第一个窗体 的方法 工程 工程属性 保存文件 根据提示 依次为每个文件 多个窗体文件 frm 工程文件 vbp等 命名 保存 打开文件 对于多窗体工程文件必须双击工程文件才能打开该工程 系统登陆的简单程序 一 IfText1 Text 123456 ThenForm1 Hide Form2 Show 演示 系统登陆的简单程序 二 IfText1 Text 123456 ThenForm1 HideForm2 ShowElseMsgBox 密码错误 请重新输入 Text1 SetFocusText1 SelStart 0Text1 SelLength Len Text1 Text EndIf 演示 嵌套是一个控制结构内又包含另一个控制结构 选择结构的嵌套就是在一个选择结构中又包含另一个选择结构 可以有两层或多层嵌套 选择结构的嵌套 系统登陆的简单程序 三 IfText2 Text lisi ThenIfText1 Text 123456 ThenForm1 Hide Form2 ShowElseMsgBox 密码错误 请重新输入 Text1 SetFocus Text1 SelStart 0Text1 SelLength Len Text1 Text EndIfElseMsgBox 该用户不存在 请重新输入 Text2 SetFocus Text2 SelStart 0Text2 SelLength Len Text2 Text EndIf 演示 SelectCase语句 格式 SelectCase测试表达式Case表达式1语句组1 Case表达式2语句组2 CaseElse语句组n EndSelect功能 根据 测试表达式 的值 从多个语句组中选择符合条件的一个语句组执行 数值表达式或字符串表达式 通常为变量 表达式 与 测试表达式 类型必须相同 说明 表达式 为下列四种形式 普通表达式如 A 一组枚举表达式 用逗号分隔 如 2 4 6 8 表达式1To表达式2如 60To100 Is关系运算符表达式如 Is5 1To9 测试表达式值大于5或在1 9之间 PrivateSubCommand1 Click Dims s Text1 TextSelectCasesCase a To z Text2 Text 它是小写字母 Case A To Z Text2 Text 它是大写字母 Case 0 To 9 Text2 Text 它是数字字符 CaseElseText2 Text 它是其它字符 EndSelectEndSub 判断大小写字母问题 用SelectCase情况语句实现 例 编写程序 实现数字和英文单词的对应 提示 在文本框1中输入0到6之间的整数 在文本框2中显示对应的星期英文单词 DimaAsIntegera Val Text1 Text Ifa 0ThenText2 Text sunday ElseIfa 1ThenText2 Text monday ElseIfa 2ThenText2 Text Tuesday ElseIfa 3ThenText2 Text Wednesday ElseIfa 4ThenText2 Text Thursday ElseIfa 5ThenText2 Text Friday ElseIfa 6ThenText2 Text Saturday EndIf DimaAsIntegera Val Text1 Text SelectCaseaCase0Text2 Text sunday Case1Text2 Text monday Case2Text2 Text Tuesday Case3Text2 Text Wednesday Case4Text2 Text Thursday Case5Text2 Text Friday Case6Text2 Text Saturday EndSelect 45 例 用if语句嵌套selectcase语句判断学生成绩等级score Val InputBox 请输入一个成绩 Ifscore 100Orscore 0Then 对数据有效性进行验证Print 数据不在有效范围 Elsea score 10SelectCaseaCase9 10Print 等级 优秀 Case8Print 等级 良好 Case7Print 等级 中等 Case6Print 等级 及格 CaseElsePrint 等级 不及格 EndSelectEndIf 复选框 CheckBox 和单选按钮 OptionButton 复选框 CheckBox 允许从一组选项中任意选择若干个选项 它有两种状态可以选择 1 选中 复选框中出现一个 标志 2 不选 标志消失 单选按钮 OptionButton 规定一次必须而且只能选择其中一个 当选中某一单选按钮时 该框出现一个黑点 同时其它单选按钮中的黑点消失 表示不选 补充 常用属性 例 设计界面 实现功能 Dima b PrintaIfCheck1 Value 1Thena a Check1 CaptionEndIfIfCheck2 Value 1Thena a Check2 CaptionEndIfIfCheck3 Value 1Thena a Check3 CaptionEndIf IfOption1 Value TrueThenb Option1 CaptionElseIfOption2 Value TrueThenb Option2 CaptionElseIfOption3 Value TrueThenb Option3 CaptionEndIfLabel1 Caption a 是 b Option1 Value 演示 随机函数 格式 Rnd x 功能 产生大于等于0且小于1的随机数 说明 1 当x0或者缺省时 以上一个随机数作种子 产生序列中的下一个随机数 3 当x 0时 产生与最近生成的随机数相同的数 4 要生成 a b 闭区间的随机整数 可以使用以下公式 Int b a 1 Rnd a 例 模仿幸运数字机的游戏 按 旋转 按钮 可在三个方框中产生三个随机数 当其中一个出现6时 便会产生一幅图案 如图所示 Label1 Caption Int Rnd 10 Label2 Caption Int Rn