《条件语句嵌套》PPT课件.ppt

《《条件语句嵌套》PPT课件.ppt》由会员分享，可在线阅读，更多相关《《条件语句嵌套》PPT课件.ppt（7页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、条件语句嵌套如果条件语句内部还需要再次应用条件语句时，则可以使用条件语句嵌套。实际上，即相当于将内部的条件语句当作外层条件语句的一条语句即可，没什么特别之处。只是需要注意IF-Else-End If的一一对应。例题：输入三个数，若能构成三角形，则判断是否是直角三角形，若不能构成三角形，则给出“不能构成三角形”。分析：（1）构成三角形的条件是：任意两边和大于第三边；（2）构成直角三角形的条件：任意两边的平方和等于第三边的平方；（3）首先我们要判断是否能构成三角形，若能，则可继续判断是否能构成直角三角形。算法：If 能构成三角形 then If 能构成直角三角形 then MsgBox(“这是一个

2、直角三角形”)Else MsgBox(“这是一个三角形，但不是直角三角形”)End IfElse MsgBox(“不能构成三角形”)End If说明：（1）条件语句的If-End If是一个整体，看作一个语句；（2）蓝色字部分则相当于一个语句，是第一句的一个子句；（3）每部分的If-Else-End If一定要对应，否则程序就会出错。（4）为了是程序的层次分明，因此一定要使用缩进格式书写！程序代码：Private Sub Command1_Click()Dim a,b,c As Single a=Val(InputBox(请输入一个数)b=Val(InputBox(请输入一个数)c=Val(I

3、nputBox(请输入一个数)If(a+b c)And(b+c a)And(c+a b)Then If(a*a+b*b=c*c)Or(b*b+c*c=a*a)Or(c*c+a*a=b*b)Then MsgBox(这是一个直角三角形)Else MsgBox(这是一个三角形，但不是直角三角形)End If Else MsgBox(不能构成三角形)End IfEnd Sub参见程序演示，详见form1本课作业作业1：输入三个数，若能构成三角形，则判断此三角形是等边三角形、等腰三角形、还是普通三角形，若不能构成三角形，则给出“不能构成三角形”。参见程序演示。详见作业.frm。作业要求：（1）作业的界面

4、如下：作业的两道题在一个.frm文件中执行；（2）数据的输入用输入框函数InputBox()，输出答案用消息框函数MsgBox()。作业试题分析分析：构成等边三角形的条件是三条边均相等；构成等腰三角形的条件是任意两边相等。算法：If 能构成三角形 then If 三条边均相等 then MsgBox(“这是一个等边三角形”)ElseIf 任意两条边相等 then MsgBox(“这是一个等腰三角形”)Else MsgBox(“这是一个一般三角形”)End IfElse MsgBox(“不能构成三角形”)End If作业1：输入三个数，若能构成三角形，则判断此三角形是等边三角形、等腰三角形、还是

5、普通三角形，若不能构成三角形，则给出“不能构成三角形”。作业1的测试数据：（1）三边长分别为：3、3、3答案：等边三角形（2）三边长分别为：3、5、3答案：等腰三角形（3）三边长分别为：7、3、5答案：一般三角形（4）三边长分别为：1、1、2答案：不能构成三角形本课选做作业作业2：输入三个数，若能构成三角形，则判断此三角形是锐角三角形、直角三角形、还是钝角三角形，若不能构成三角形，则给出“不能构成三角形”。分析：如果能构成三角形，那么先从输入的三个数中找到最大的边，如果两个较小边的平方和大于最大边的平方，则此三角形是锐角三角形；如果两个较小边的平方和等于最大边的平方，则此三角形是直角三角形；如

6、果两个较小边的平方和小于最大边的平方，则此三角形是钝角三角形；提示：找最大的数的方法为：If ab then 交换a与b的值；If ac then 交换a与c的值；这样最大的值就是a。交换两个数的算法前面已经讲过了。作业2的算法：If ab then 交换a与b的值If ac then 交换a与c的值 If 能构成三角形 then If 两个较小边的平方和大于最大边的平方 then MsgBox(“锐角三角形”)ElseIf 两个较小边的平方和等于最大边的平方 then MsgBox(“直角三角形”)Else MsgBox(“钝角三角形”)End IfElse MsgBox(“不能构成三角形”)End If作业2的测试数据：（1）三角形三边长为：3、3、3答案：锐角三角形（2）三角形三边长为：3、4、5答案：直角三角形（3）三角形三边长为：3、4、6答案：钝角三角形（4）三角形三边长为：3、4、7答案：不能构成三角形