3.5VB选择结构.pptVIP

3.4 选择结构 余杭高级中学 张明华 * 个人信息：张明华 教 龄：12年 毕业院校：浙江师范大学 计算机专业 北京师范大学教育管理硕士在读 工作单位：杭州市余杭高级中学 联系方式：9394026@? 专业职称：中学一级教师 生活中的if If you enjoy running every morning，then please put your right hand，else please put your left hand． * 念一遍，翻译一遍 If then else 生活中的if * 生活中的if * 从2个选择到3个选择，课本P74 行if语句到块if语句 * If a=b then s=1 Else s=-1 endif 【练一练】将行if语句转换成块if语句 If a=b then s=1 Else s=-1 * 【比较】 If n mod 3=0 then a=a+1 Elseif n mod 3=1 then b=b+1 Else c=c+1 endif If n mod 3=0 then a=a+1 if n mod 3=1 then b=b+1 If n mod 3=2 then c=c+1 实例：求数的绝对值 Dim A As Integer 　A = Val（text1.text） 　if Then print str(A) * A= 0 A=-A * 语法1 If?条件 Then语句1 Else语句2 1.关键字：if then else end if 2．条件是关系表达式或者是逻辑表达式，关系表达式是用关系运算符连接起来的式子。 例：A0；A0；A=0 语法2 If?条件 Then 语句组1 Else 语句组2? End If 练习任务 设计一个程序，输入三角形的三条边，并求出对应的三角形面积。 　1．算法分析 　①输入三条边（定义变量）； 　②判断这三条边是否能构成三角形（依据） 　③计算三角形面积的方法（P=A+B+C）/2； S=SQR（P*（P-A）*（P-B）*（P-C））； 　④输出：三角形面积S或不能构成三角形。 * 海伦公式 Dim a As Single，b As Single，c As Single Dim p As Single，s As Single 　　a = Val（text1.Text） 　　b = Val（text2.Text） 　　c = Val（text3.Text） 　　p = （a + b + c） / 2 　If Then 　　s = Sqr（p * （p - a） * （p - b） * （p - c） 　　 Label2.Caption = 该三角形的面积为： s 　 　　Label2.Caption = 这三条边不能构成三角形 　End If * a + b c And b + c a And c + a b Else 知识回顾 * 语法1 If 条件 Then语句1 Else语句2 语法2 If 条件 Then 语句组1 Else 语句组2 End If IF语句 * 1.行IF语句 2.块IF语句 1）一个行if语句必须在一行上写完，没有endif；而一个块if语句的Then、else后面必须换行，最后由endif结束（elseif是一个整体）； 2）一个行if语句仅能判断两种情况，而一个块if语句可判断多种情况； 3）行if语句的else部分，块if语句的elseif和else部分可以没有，即条件不符合，什么也不执行就结束if语句； 4）行if语句中只能是“语句”，即单个赋值语句，而块if语句中是“语句块”，可以是多个赋值语句和其它语句； 提高任务 某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1．5元的基础上打8折。请设计一个程序计算购买X千克苹果的应付款。 提示：变量X表示苹果的重量，变量M表示应付款。 画出流程图，并尝试写出完整的if分支语句。 * 人生充满选择 人生充满选择，选择无处不在。 林肯说，所谓聪明的人，就在于他知道什么是选择。每一个踏上人生旅途的人，脚下都有无数的路，每一条路都延伸到不同景色的地方，每一种景色都昭示着涉足者的命运。　　人生无处不选择，让我们默默地祈祷：选择