程序的选择结构.ppt

2 3程序的选择结构 靖远一中信息组 冯璇 2 3 1从求一个数的绝对值开始 问题 求一个数a的绝对值 2 设计算法 输入数A 如果A 0 则这个数的绝对值为A 否则为 A 输出结果 结束 求一个数A的绝对值 如果A 0 则这个数的绝对值为A 否则为 A 1 分析问题 3 编写程序 PrivateSubcommand1 click DimAAsSingle bAsSingleA InputBox a 请输入a值 IfA 0Thenb AElseb AEndIfPrint a的绝对值为 bEndSub 4 调试程序 程序的执行流程 逐句演示程序的执行过程 体会条件语句的执行过程 与顺序结构相比较 选择结构就是程序的执行不再完全按照语句的顺序执行 而是根据某种条件是否成立来决定程序执行的走向 它进一步体现了计算机的智能特点 如何实现判断和选择呢 在上述代码中 有一个用if开头的语句 这就是条件语句 实例涉及到判断 这就是我们今天的新课内容 选择结构 IfA 0then 2 3 2条件语句 1 格式 1 If条件Then语句组1Else语句组2 2 其中 条件是一个逻辑表达式 语句组是一组VB的语句 If条件Then语句组1Else语句组2EndIf 2 条件语句的执行过程条件语句的执行过程是 当条件成立时 执行Then后面的语句组1 否则执行语句组2 在条件语句的基本格式中有时可以省略else和语句组2 这时条件语句的执行过程是当条件成立时 执行then后面的语句组1 否则退出条件语句 执行下面的语句 单分支语法格式 单分支语法格式 单行语法 多行语法 1 If条件Then语句组 2 If条件Then语句组EndIf 这里的条件是关系表达式 或逻辑表达式 and or not 其值只有真或假两种 当表达式的值为真时 视为条件成立 语句可以是赋值语句 a 3 输出语句 print msgbox 结束语句 end 等 1 If条件Then语句1Else语句2 2 If条件Then语句块1Else语句块2EndIf 双分支语法格式 注意 在if语句中else部分不需要填写条件 条件满足 条件不满足 双分支语法格式 开始 结束 判断条件 语句块 真 开始 结束 判断条件 语句块1 真 假 语句块2 单分支结构 双分支结构 单分支结构只对判断条件为真的情况进行处理 双分支结构既对判断条件为真的情况进行处理 同时也对判断条件为假的情况进行处理 所以双分支结构也就多了else部分的内容 对比分析 IfthenElseEndif If语句的嵌套 IF语句的嵌套如果在If语句中 语句组1 或 语句组2 本身又是一个If语句 则称为If语句的嵌套 If条件Then语句组1Else语句组2EndIf IfthenElseEndif 判断一个考试成绩 若大于等于60 则输出 顺利通过 否则输出 继续努力 PrivateSubCommand1 Click DimsAsIntegers Val InputBox 请输入一个成绩 Ifs 60ThenMsgBox 顺利通过 Str s 0 成绩 ElseMsgBox 继续努力 EndIfEndSub 语法格式 MsgBox 信息内容 对话框类型 图标类型 对话框标题 作用 MsgBox函数的作用是弹出一个对话框 在其中显示指定的数据和提示信息 问题 某商场为了对苹果进行促销 规定购买2千克以上可以在原价每千克1 5的基础上打8折 请设计一个程序计算购买x千克苹果的应付款 1 分析问题 设买苹果的重量为x千克 应付款为y元 如果x 2 则y 1 5 x 0 8 否则y 1 5 x 2 设计算法 输入x的值 如果x 2 则y 1 5 x 0 8 否则y 1 5 x 输出y的值 3 编写程序 Privatesubcommand1 click Dimxassinglex Inputbox 请输入购买苹果的重量 ifx 2theny 1 5 x 0 8elsey 1 5 xendifPrint 应付款 y 元 Endsub 4 调试程序 在分支语句中 程序执行一个分支后 其余分支不再执行 总结 IfThenEndIf IfThenElseEndIf 单分支结构 双分支结构 练习 凡在商场消费满500元以上 含500元 享受9折优惠 消费满1000元以上 含1000元 享受8折优惠 消费在500元以下不优惠 输入消费金额 计算出实收金额 PrivateSubcommand1 click DimmAsSingle yassingle 消费金额m Val inputbox m 输入消费金额 Ifm 1000Theny m 0 8ElseIfm 500Andm 1000Theny m 0 9Elsey mEndIfEndIfprint 应付 y 元 EndSub 简答题 程序如下 PrivateSubcommand1 click DimaAsSinglea InputBox a 输入 Ifa 100Theny 0 8 aElsey 0 9 aEndIfPrintyEndSub 阅读程序框图 若输入m 4 n 3 则输出a i 在线测试练习 1 语句Ifx 1Theny 1 下列说法正确的是 A x 1和y 1均为赋值语句B x 1和y 1均为关系表达式C x 1为关系表达式 y 1为赋值语句D x 1为赋值语句 y 1为关系表达2 2 电梯的最大容量为13人 在此范围内电梯能正常运行 超出了这个范围电梯将发出警报 Dimaasintegera val inputbox 请输入进入电梯的人数 ifa 13thenprint 正常运行 elseprint 发出警报 endifA if then endif elseB then if else endifC if then else endifD if else then endif C C 3 以下程序段运行后 分别输入5和6 则输出字符的排列顺序是 I val inputbox 请输入I的值 IfI 6thenPrint ElsePrint EndifA B C D 在线测试练习 B 在vb程序中把代码补充完整并调试运行 得出结果后再选择答案 4 走路可以减肥 平地甩手走20分钟内 含20分钟 消耗的能量为6卡每分钟 超过20分钟消耗的能量为7 9卡每分钟 走路的分钟数43分钟 输出共消耗的能量 Dimt nassinglet val inputbox 请输入t的值 ift 20thenn 6 telsen 6 20 t 20 7 9endifprint n nA 258卡B 339 7卡C 439 7卡D 301 7卡 在线测试练习 D 3 关系表达式 在程序中 程序的第三行是一个条件语句 其中的条件A 0表达式 一般称为关系表达式 关系表达式是用关系运算符连接起来的式子 关系运算符号有 当关系表式成立时其值为真 Ture 当表达式不成立时其值则为假 False 关系表达式的值既不是数值型量 也不是字符型量 而是一种新的数量类型 逻辑型 逻辑型只有两个可能的值 假 False 和真 Ture 关系表达式的值定义如下 1 对数值型的数据比较 是按照数值的大小来进行比较 如13 6的值为真 2 对其它类型数据的比较 则按照其序号进行比较 如 D B 其值为假 4 逻辑表达式 在实际问题中 对于一些复杂的条件 还需要几个关系表达式组合起来才能表示 例如 条件2 X 9就需要用2 X和X 9这两个表达式来表示 将多个关系表达式用逻辑运算符连接起来的式子称为逻辑表达式 逻辑表达式的运算值为逻辑型 逻辑运算符有 Not 非 取操作数相反的值 即当操作数为假时 结果为真 当操作数为真时 结果为假 And 与 当两个操作数都为真时 结果才为真 Or 或 当两个操作数都为假时 结果才为假 逻辑运算符的运算规则 逻辑运算符 AND 与 所联结的关系运算式必须同时成立才为真 OR 或 所联结的关系运算式只要有一个为真 即为真 NOT 非 将原来的逻辑值取反 b 0 and b 10 a10 a 0 and amod2 0 Not a 0 and amod2 0 5 逻辑运算的顺序 1 当条件中只有逻辑运算符时 运算的顺序为Not And Or 2 当条件中既有算术运算符 又有关系运算符和逻辑运算符时 运算顺序是 算术运算符 关系运算符 逻辑运算符例如 a b c danda 5ornotc 0ord 0当a 5 b 7 c 2 d 1时 运算结果是真 逻辑表达式的运算次序 一个逻辑表达式一般包括逻辑运算符 关系表达式或其他运算量 算术运算关系运算逻辑运算 NOTANDOR 如以下表达式 其中a 5 b 3 c 2 d 8a c b dORc dANDABS c aORNOTc d 57 11ORc dAND2 aORNOTc 13假OR假AND假ORNOT假假OR假OR真 真 第一课时完 1 表达式4 7 6 1and4 4运行的结果是 2 有如下vb程序段 a 2b 5ifa bthenm aelsem b该程序运行后 变量m的值为 点击会考 在分支语句中 程序执行一个分支后 其余分支不再执行 总结 IfThenEndIf IfThenElseEndIf 单分支结构 双分支结构 IfthenElseEndif IfthenElseEndif IF语句的嵌套 点击会考 在左边的文本框输入一个100以内的正整数 包括100不包括0 单击 判断 按钮 在右边的文本框中显示是 奇数 还是 偶数 输入大于100的整数则显示 输入的整数不能超过100 x100 xMod2 EndIf 变量 对象 属性 对象名 属性名 属性值 练习 1 输入三角形的三条边长 首先判断给出的三条边能否构成三角形 三角形的两边之和大于第三边 如可以 则计算并输出该三角形的面积 否则输出 不能构成三角形 PrivateSubCommand1 Click Dima b c p sAsSinglea Val Text1 Text b Val Text2 Text c Val Text3 Text p a b c 2If a b cOr a c bOr b c aThenPrint 不能构成三角形 Elses Sqr p p a p b p c Print 三角形的面积是 sEndIfEndSub 练习 2 判断某年是否为闰年的方法是如果该年份的数值能被4整除但不能被100整除 或者能被400整除则该年份是闰年 PrivateSubCommand1 Click DimiAsLongi Val Text1 Text IfiMod4 0AndiMod1000OriMod400 0ThenLabel2 Caption 该年是闰年 ElseLabel2 Caption 该年不是闰年 EndIfEndSub 练习 3 凡在商场消费满500元以上 含500元 享受9折优惠 消费满1000元以上 含1000元 享受8折优惠 消费在500元以下不优惠 输入消费金额 计算出实收金额 PrivateSubcommand1 click DimmAsSingle 消费金额m Val Text1 Text Ifm 1000ThenText2 Text m 0 8ElseIfm 500Andm 1000ThenText2 Text m 0 9ElseText2 Text mEndIfEndIfEndSub 练习 4 编写一元二次方程的求解程序 要求能够判断方程是否有根 如果没有根则给相应的提示信息 编程序求解一元二次方程 PrivateSubCommand1 Click DimaAsSingle bAsSingle cAsSingle dAsSingle x1AsSingle x2AsSinglea InputBox a 输入一元二次方程的系数 b InputBox b 输入一元二次方程的系数 c InputBox c 输入一元二次方程的系数 d b 2 4 a cIfd 0Thenx1 b Sqr d 2 a x2 b Sqr d 2 a Print x1 x1Print x2 x2ElsePrint 方程无实根 EndIfEndSub 第二课时完