2.3.1从制作矩形框问题开始 (3)

1、2.3.1程序的选择结构-从制作矩形框问题开始想一想：英文语句的意思？If you enjoy running every moring, then please put your right hand, else please put your left hand.任务一：制作矩形框问题 问题：张军找来了一条长度为L的铁丝，希望用来制作一个面积为S的矩形框。他问李明：这个矩形的长和宽各为多少，才能使制作出来的矩形框面积为指定值呢？（一）分析问题设矩形长为x，根据题意，则宽x1为(L/2-X),面积S=x (L/2-X), 化简方程 得：X2-1/2Lx+S=0，通过求根公式可以得出x和x1的

2、值。 (二）设计算法算法如下：1，输入铁丝长度L；2，输入矩形框面积S；3，计算判别式D=L*L/4-4S;4，如果D=0，则计算 X=(L/2+sqr(D)/2 和x1=L/2-X; 否则输出“找不到这样的矩形”。5，结束（三）编写程序请同学把程序空缺的部分补充完整：Dim L, s, x,x1, d As SingleL = InputBox(请输入铁丝的长度L)S = InputBox(请输入要围成的矩形面积S)D = L * L / 4 - 4 * SIf ThenPrint 长方形的长=; (L / 2 + Sqr(D) / 2Print 长方形的宽=; L / 2 -XElsePr

3、int “ 找不到这样的矩形End IfD=0什么是选择结构？当条件成立时，执行语句组1，否则执行语句组2.其中，条件是一个逻辑表达式，语句组是一组VB语句。条件语句组1语句组2TrueFlase任务二：猜价格游戏任务二：猜价格游戏程序填空Dim price as integerPrice=val(text1.text)If then msgbox”猜对了“If then msgbox”猜错了“price =4288Msgbox“猜对了！”TrueFlase猜错了，再试试Price=4288Price4288思考：如何用一个IF语句完成猜价格程序？任务三：猜价格程序改写条件语句的格式与流程图格

4、式1: If then Else Price=4288Msgbox“猜对了！”Msgbox“猜错了！”TrueFlase格式2: If then Else Endif程序填空Dim price as integerPrice=val(text1.text) price =4288 msgbox”猜对了“ msgbox”猜错了“IFThenElseEndif 呈现问题： 某火车站规定行李托运收费标准：行李重量小于等于50kg，收行李托运费用为50元；行李重量大于50kg，多出的部分每公斤收费0.8元。请解决这个问题。 50 (x50)（一）分析问题1）.输入一个数；2）.若该数小于等于50，则输出费用50元；3）.若该数大于50，则费用按50+(x- 50)*0.8 计算再输出.(二）设计算法结束开始输入公斤数xx50m= (x50)0.8+50YN输出mm=50程序代码：Dim x as SingleDim m as Singlex=val(text1.text)If x50 thenm=50+(x-50)*0.8elsem=50End if Print m思考：1