一、认识双分支结构程序.ppt

《一、认识双分支结构程序.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、PrivateSubForm_click()DimrAsSingle'定义半径r为单精度(变量)DimsAsSingle'定义面积S为单精度（变量)DimcAsSingle'定义面积c为单精度（变量）ConstPIAsSingle=3.14'定义PI为单精度(常量)r=InputBox("输入r")'半径r通过inputbox函数输入值s=PI*r^2'用求圆面积公式，并把值赋给Sc=2*pi*r'用求周长公式，并把值赋给cPrints,c'在窗体上打印出S,c的值EndSub流程图r=InputBoxs=pi*r^2c=2*pi*r如果今天下雨，那么同学们

2、在室内进行体育活动如果今天不下雨，那么同学们在室外进行体育活动选择结构—if条件语句If条件表达式then语句1else语句2If条件表达式then语句1流程图truefalse条件表达式语句1语句2条件表达式语句1truefalse双分支单分支判断框判断框例题：1、x=5Ifx>0theny=1elsey=0Endif2、x=5Ifx<0theny=1elsey=0EndifY=1Y=0x=a+bIfa>bthenx=a-bEndifPrintx输入：a=3运行结果：b=47问题1：行李托运50公斤及以内的货物，按每公斤2元收取，超出50公斤的货物，按每公斤3

3、元收取，求托运运费。Ift>50thens=3*telses=2*tendif问题2：设d和t都是整数类型变量，如果d的值在闭区间【10,100】中，则使变量t的值增加1，否则什么也不做。If(d>=10)and(d<=100)thent=t+1endif编写程序求一元二次方程的实数根个数YN条件表达式语句1条件表达式语句2条件表达式语句3有else？语句4结束YYYNNNIfThenElseIfThenElseIfThenElseEndIf语句块1条件1语句块4语句块3条件3语句块2条件2……d=b^2-4*a*cIfd>0thenx1=(-b+sqr(d))

4、/(2*a):x2=(-b-sqr(d))/(2*a):k=2Elseifd=0thenx1=(-b)/(2*a):x2=x1:k=1Elsek=0EndifIfp>85ThenText1.Text=“优“ElseIfp>=70Andp<=85ThenText1.Text=“良“ElseIfp>=60Andp<70ThenText1.Text=“及格“ElseText1.Text=“不及格“EndIfIfp>=60ThenText1.Text=“及格“ElseIfp>=70ThenText1.Text=“良“ElseIfAndp>=80ThenText1.Te

5、xt=“优“ElseText1.Text=“不及格”EndIfIf性别=malethenifage>=36then结果=“再不结婚就来不及了！”elseifage>=30then结果=“可以考虑娶老婆了”else结果=“你还年轻！”endifEndif总结：1、If语句的格式和流程图的表达2、块if语句中，if与endif对应3、elseif不要写成elseif4、多个条件表达式次序问题5、计算机解决问题的一般过程：分析问题；寻找算法；编写程序；调试运行课后思考：输入三条边，利用程序求三角形面积