753-第5章 选择结构程序设计.pptVIP

* * 第5章 选择结构程序设计 本章要点:　要求使用条件选择语句IF…ENDIF； IF…ELSE…ENDIF；DO CASE…ENDCASE 进行选择程序设计， 并熟练掌握命令按钮组控件的使用方法。　　　　　 5．2．1单路选择 条件表达式是否成立？ 执行命令序列 执行ENDIF后的语句 不成立立 成立立 图5-1 IF-ENDIF结构 ? 5.2条件选择语句 命令格式： IF 条件表达式 命令序列 ENDIF 例5-1设计一个表单，任意输入三角形的三边a,b,c，求此三角形的面积s 海伦公式：P=(a+b+c)/2 ,s==√ (p(p-a)(p-b)(p-c) ) 命令按钮Command1的单击(click)事件代码 a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value if a+bc and a+cb and b+ca 　p=(a+b+c)/2 　s=sqrt(p*(p-a)*(p-b)*(p-c)) 　thisform.text4.value=s endif 例5-2 设计一个表单，任意输入三个数，将其按从大到小的顺序输出。 命令按钮Command1的单击(click)事件代码为： x=thisform.text1.value y=thisform.text2.value z=thisform.text3.value if xy k=x x=y y=k endif if xz k=x x=z z=k Endif if yz k=y y=z z=k endif thisform.label2.caption=三个数从大到小依次是：; +alltrim(str(x))+,+alltrim(str(y))+,+alltrim(str(z)) 5.2.2 双路选择 1、语法结构 双路选择是一种IF-ELSE-ENDIF分支结构。 命令格式： IF 条件表达式 命令序列1 ELSE 命令序列2 ENDIF 例5-3现将例5-1的程序完善。若输入的三条边长度可以构成三角形，则计算三角形的面积，否则出现提示：“输入有误，无法构成三角形！” 例5-4 假设某车站收取托运费的原则是：当行李重量W ≤20kg时，每公斤按0.5元收取；当重量W 20kg时，其超过的部分则加收0.3元。 2、使用IIF()函数 IIF()函数的格式为：IIF(条件表达式，表达式1，表达式2) 例5-5 上面例5-3中命令按钮Command1的单击 (click) 事件代码可以用IIF () 函数改写为： w=thisform.text1.value y=iif(w=20, 0.5*W, 20*0.5+(W-20)*0.8) thisform.text2.value=y thisform.text1.selstart=0 thisform.text1.sellength=len(thisform.text1.text) thisform.text1.setfocus 3、IF语句的嵌套 如果在IF语句中命令序列1或命令序列2本身又是一个IF语句，则称为IF语句的嵌套。 例5-6 求解一元二次方程AX2+BX+C=0的实根。 a=thisform.text1.value b=thisform.text2.value c=thisform.text3.value d=b^2-4*a*c if d=0 x=-b/(2*a) thisform.label5.caption=此方程有两个相等的实根：+alltrim(str(x)) else if d0 x1=(sqrt(d)-b)/(2*a) x2=(-sqrt(d)-b)/(2*a) thisform.label5.caption=此方程有两个不等的实根：; +alltrim(str(x1))+,+alltrim(str(x2)) else thisform.label5.caption=此方程无实根！ endif endif 5.2.3 多路选择 DO CASE语句的语法结构为： DO CASE CASE 条件表达式1 命令序列1 CASE 条件表达式2 命令序列2 …… CASE 条件表达式N 命令序列N [OTHERWISE 命令序列N+1] ENDCASE 例5-7 某百货公司为了促销，采用购物打折扣的优惠办法：每位顾客一次购物 (1)在1000元以上者，按九五折优惠。