分支结构练习课.ppt

分支结构 练习课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+b>c且且b+c>a且且a+c>b标签框标签框1←“No”a←56b←6c←5Y结束结束Private sub command1_click()dim a,b,c as Integer//定义变量a=10b=6c=5 //赋值变量IFIF a+b>c and b+c>a and a+c>b ThenThen Label1.caption=“Yes”ElseElseLabel1.caption=“No”End IFEnd IFEnd SubN开始开始文本框文本框1←“托运”W>10或或a*b>4000文本框文本框1←“携带”w←9a←90b←50Y结束结束Private sub command1_click()dim w,a,b as Integer//定义变量w=9a=90b=50 //赋值变量IFIF w>10 or a*b>4000 ThenThen Text1.text=“托运”ElseElseText1.text=“携带”End IFEnd IFEnd SubN开始开始文本框文本框1←Mid(b,a,6)a>0且且a0 and a流程图分支结构Private sub command1_click()……//定义变量m=160//赋值变量IFIF m<=100 ThenThen Label1.caption=“不打折”Else Else if if m>100 and m<=150 m>100 and m<=150 thenthen Label1.caption=“9.5折” Else Label1.caption=“9折” end ifend ifEnd IFEnd IFEnd Sub练一练N开始开始标签框标签框1←不打折m≤100?标签框标签框1←“9.5折”m←160Y结束结束m>100且且m≤150?标签框标签框1←“9折”YN分支结构4分析题目——>VB语言练一练 1Y开始开始能否被能否被100整除整除?不是闰年不是闰年输入年份yN结束结束是闰年是闰年能否被能否被4整除整除?NY能否被能否被400整除？整除？NY不是闰年不是闰年闰年闰年练一练 1Y开始开始y mod 100=0?标签框标签框1←“不是闰年”输入年份yN结束结束标签框标签框1←“闰年”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结束结束练一练 2Private 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。