分支结构练习课.ppt

《分支结构练习课.ppt》由会员分享，可在线阅读，更多相关《分支结构练习课.ppt（20页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、分支结构 练习课123温故知新流程图VB语言VB语言流程图分支结构4分析题目VB语言温故知新 If 条件表达式 Then 语句 1 Else 语句2 End If 双分支结构 If 条件表达式1 Then 语句 1 Else if 条件表达式2 then 语句2 else 语句3 end if End If 双分支结构多条件2流程图VB语言分支结构N开始开始标签框标签框1“Yes”a+bc且且b+ca且且a+cb标签框标签框1“No”a56b6c5Y结束结束Private sub command1_click()dim a,b,c as Integer/定义变量a=10b=6c=5 /赋值变量

2、IFIF a+bc and b+ca and a+cb ThenThen Label1.caption=“Yes”ElseElseLabel1.caption=“No”End IFEnd IFEnd SubN开始开始文本框文本框1“托运”W10或或a*b4000文本框文本框1“携带”w9a90b50Y结束结束Private sub command1_click()dim w,a,b as Integer/定义变量w=9a=90b=50 /赋值变量IFIF w10 or a*b4000 ThenThen Text1.text=“托运”ElseElseText1.text=“携带”End IFEn

3、d IFEnd SubN开始开始文本框文本框1Mid(b,a,6)a0且且a0 and a流程图分支结构Private sub command1_click()/定义变量m=160/赋值变量IFIF m100 and m100 and m100且且m150?标签框标签框1“9折”YN分支结构4分析题目VB语言练一练 1Y开始开始能否被能否被100整除整除?不是闰年不是闰年输入年份yN结束结束是闰年是闰年能否被能否被4整除整除?NY能否被能否被400整除？整除？NY不是闰年不是闰年闰年闰年练一练 1Y开始开始y mod 100=0?标签框标签框1“不是闰年”输入年份yN结束结束标签框标签框1“闰

4、年”y mod 4 = 0?NYy mod 400 = 0 ？NY标签框标签框1“不是闰年”标签框标签框1“闰年”N开始开始S=800+(s-500)*5+200y=0?S=800+(s-500)*5-5*y输入x,yY结束结束练一练 2Private sub command1_click()Dim x,y,s as Integer/定义变量x=Val(Text1,text)y=Val(Text2.text)/输入IFIF y=100 ThenThen s=800+(x-500)*5+200Else Else s=800+(x-500)*5-5*yEnd IFEnd IFText3.text=str(s)Text3.text=str(s)End Sub