选择结构双分支.ppt

选择结构双分支.ppt

ID:48238219

大小:2.42 MB

页数:9页

时间:2020-01-18

选择结构双分支.ppt_第1页
选择结构双分支.ppt_第2页
选择结构双分支.ppt_第3页
选择结构双分支.ppt_第4页
选择结构双分支.ppt_第5页
资源描述:

《选择结构双分支.ppt》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库

1、程序的选择结构(2)程序的选择结构(2)If条件语句双分支结构1.If条件语句单分支结构的一般格式:_____条件______语句组_________IfThenEndif2.条件语句是一个逻辑表达式,它的值有两个,要么为______,要么为_______。TrueFalse新授1If条件Then语句体1Else语句体2EndIf成对条件满足?语句体1语句体2YNEndif后面的语句If条件双分支语句基本格式及执行过程1、基本格式:2、执行过程:新授2例1.某商场为了对苹果进行促销,规定购买2千克以上可以在原价每千克1.5元的基础上打8折。请设计一个程序计算购买x千克苹果的应付款。开始输入X

2、的值X>=2结束是否Y=x*1.5*0.8Y=x*1.5设计算法:PrivateSubCommand1_Click()DimxAsSingle,yassingleX=InputBox("请输入X的值:")Ifx>=2Theny=x*1.5*0.8Elsey=x*1.5EndIfPrint“应付款";yEndSub编写程序:新授2练习我相信同学们一定能行编写一元二次方程的求解程序,要求能够判断方程是否有根开始输入a,b,c的值D>=0结束求D值有根无根是否一、设计算法练习a=InputBox("a=")b=InputBox("b=")c=InputBox("c=")D=b^2-4*a*cIfd

3、>=0ThenPrint"有根"ElsePrint"无根“EndIfDimaassingle,bassingle,cassingle二、编写程序拓展画出流程图,并用VB语言编写一个程序,任意给定3个正实数,判断以这3个正实数为三条边边长的三角形是否存在。小结If条件Then语句体EndIf成对If条件Then语句体1Else语句体2EndIf成对如果(IF)条件成立那么执行语句体否则执行ENDIF之后的语句如果(IF)条件成立那么执行语句体1否则执行语句体2然后再执行ENDIF之后的语句

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。