Vb程序计初步分支结构.pptVIP

一、Vb程序设计初步——分支结构 选择语句 ab Y N Max=b Max=a 输入a,b 输出max 参考界面： 选择语句p75 1. If…Then语句(单分支结构) If 表达式 Then 语句块 End If 或 If 表达式 Then 语句 2. If…Then…Else语句(双分支结构) If 表达式 Then 语句块1 Else 语句块2 End If If 表达式 Then 语句1 Else 语句2 技巧：学会从流程图转化为VB语句（例题1） ab Y N Max=b Max=a 输入a,b 输出max If ab then max=a else max=b End if If ab then max=a else max=b End if a=val(text1.text) b=val(text2.text) ‘输入变量a和b的值 If ab then Max=a Else Max=b End if ‘注意if的语法运用 Text3.text=max ‘输出变量max的值 行if语句： if ab then max=a else max=b 实践2输入三个数，作为三条线段值，判断三条线段是否能构成一个三角形。 若能构成三角形，则计算出三角形的面积；否则，在“计算结果”后面显示“不能构成三角形” 操作：1、分析算法 先设定三条边边长分别为a、b、c，什么时候能够构成三角形呢？当任何两条线段长度之和都大于第三条线段的长度，这三条线段可以构成一个三角形。 当多个条件同时成立时，加入and连接多个表达式。例如：ab and ac 2、设计界面 3、编写程序 A=val(text1.text) B=val(text2.text) C=val(text3.text) If a+bc and b+ca and c+ab then p=(a+b+c)/2 s=sqr(p*(p-a)*(p-b)*(p-c)) text4.text=s else text4.text=“不构成三角形” End if 实践2：例题1的另一种实现方法 Bmax N Max=b 输入a,b 输出max Max=a Y Max=a If bmax then max=b End if 提示：这种方法是先假设a是最大数max，然后逐个判断剩余的数中是否有比max更大的，如果有，则“更新”max。这种算法在以后有着很广泛的应用，我称他为“打擂台”。 知识点总结：1、输入语句： a=val(text1.text) b=val(text2.text) 2、输出语句： Text3.text=str(max) 3、选择模式语法： if 条件 then 语句块1 Else 语句块2 Endif （块if语句） 或者 if 条件 then 语句1 else 语句2 （行if语句） 4、单分支：if 条件 then 语句块 end if 或者 if 条件 then 语句