------从制作矩形框问题开始想一想:英文语句的意思?Ifyouenjoyrunningeverymoring,thenpleaseputyourrighthand,:制作矩形框问题问题:张军找来了一条长度为L的铁丝,希望用来制作一个面积为S的矩形框。他问李明:这个矩形的长和宽各为多少,才能使制作出来的矩形框面积为指定值呢?(一)分析问题设矩形长为x,根据题意,则宽x1为(L/2-X),面积S=x(L/2-X),化简方程得:X^2-1/2Lx+S=0,通过求根公式可以得出x和x1的值。(二)设计算法算法如下:1,输入铁丝长度L;2,输入矩形框面积S;3,计算判别式D=L*L/4-4S;4,如果D>=0,则计算X=(L/2+sqr(D)/2和x1=L/2-X;否则输出“找不到这样的矩形”。5,结束(三)编写程序请同学把程序空缺的部分补充完整:DimL,s,x,x1,dAsSingleL=InputBox("请输入铁丝的长度L")S=InputBox("请输入要围成的矩形面积S")D=L*L/4-4*SIfThenPrint"长方形的长=";(L/2+Sqr(D))/2Print"长方形的宽=";L/2-XElsePrint“找不到这样的矩形"EndIfD>=0什么是选择结构?当条件成立时,执行语句组1,,条件是一个逻辑表达式,语句组是一组VB语句。条件语句组1语句组2TrueFlase任务二:猜价格游戏任务二:猜价格游戏程序填空DimpriceasintegerPrice=val()Ifthenmsgbox”猜对了“Ifthenmsgbox”猜错了“price=4288Msgbox“猜对了!”TrueFlase猜错了,再试试Price=4288Price<>4288思考:如何用一个IF语句完成猜价格程序?任务三:猜价格程序改写
2.3.1从制作矩形框问题开始 来自淘豆网www.taodocs.com转载请标明出处.