程序的选择结构课件.ppt

《程序的选择结构课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、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）调试程序程序的执行流程:逐句演示程序的执行过程，体会条件语句的执行过程。

2、与顺序结构相比较，选择结构就是程序的执行不再完全按照语句的顺序执行，而是根据某种条件是否成立来决定程序执行的走向，它进一步体现了计算机的智能特点。如何实现判断和选择呢？在上述代码中，有一个用if开头的语句，这就是条件语句。实例涉及到判断，这就是我们今天的新课内容—选择结构IfA>=0then2.3.2条件语句1.格式：(1)If条件Then语句组1Else语句组2(2)其中，条件是一个逻辑表达式，语句组是一组VB的语句。If条件Then语句组1Else语句组2EndIf2.条件语句的执行过程条件语句的执行过程是：当条件成立时，执行Then后面的语句组1，否则执行语句组2。在条件语句的基本格式中

3、有时可以省略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双分支语法格式：注意:

4、在if语句中else部分不需要填写条件。条件满足条件不满足双分支语法格式开始结束判断条件语句块真开始结束判断条件语句块1真假语句块2单分支结构双分支结构单分支结构只对判断条件为真的情况进行处理，双分支结构既对判断条件为真的情况进行处理，同时也对判断条件为假的情况进行处理，所以双分支结构也就多了else部分的内容。对比分析If<表达式1>then<语句组1>ElseEndifIf语句的嵌套IF语句的嵌套如果在If语句中(语句组1）或（语句组2）本身又是一个If语句，则称为If语句的嵌套。If条件Then语句组1Else语句组2EndIfIf<表达式2>then<语句组2>Else<语句组3>En

5、dif判断一个考试成绩，若大于等于60，则输出“顺利通过！”否则输出“继续努力！”PrivateSubCommand1_Click()DimsAsIntegers=Val(InputBox("请输入一个成绩："))Ifs>=60ThenMsgBox"顺利通过！"+Str(s),0,"成绩“ElseMsgBox"继续努力！"EndIfEndSub语法格式：MsgBox（信息内容+对话框类型，图标类型，对话框标题）作用：MsgBox函数的作用是弹出一个对话框，在其中显示指定的数据和提示信息。问题:某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5的基础上打8折。请设计一个程序计算购

6、买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）调试程序在分支语句中，程序执行一个分支后，其余分支不再执行；总结If<表达式>Then<语句块>EndI

7、fIf<表达式>Then<语句块1>Else<语句块2>EndIf单分支结构：双分支结构：练习：凡在商场消费满500元以上(含500元)，享受9折优惠；消费满1000元以上(含1000元)，享受8折优惠；消费在500元以下不优惠。输入消费金额，计算出实收金额。PrivateSubcommand1_click()DimmAsSingle,yassingle'消费金额m=Val(inputbox(“m