2.3.1从制作矩形框问题开始.ppt

1、上节课内容回顾：,程序的顺序结构：这是一种最简单、最基本的结构，在这个结构内按由上到下的书写顺序执行，它只有一个入口和一个出口。 赋值语句: 基本格式: 变量=表达式 输入数据的函数: InputBox()是提供从键盘输入数据的函数。 输出数据的方法: 基本格式是：Print 输出内容,2.3程序的选择结构,例2-4 制作矩形框,铁丝的长度为L，问：这个矩形的长和宽应当各是多少，才能使制作出来的矩形框面积为指定的值S呢？,算法： 输入铁丝的长度L； 输入矩形的面积s; 计算判别式D=L*L/4-4*S 如果D=0,则 计算X1=(L / 2 + Sqr(D) / 2 和X2=(L / 2 -

2、Sqr(D) / 2, 并输出X1和X2 否则输出“找不到这样的矩形！ 5.结束。,则：x(L/2-X)=S,化简得 X2-1/2LX+S=0,程序： Private Sub Command1_Click() L = InputBox(请输入铁丝的长度：) S = InputBox(请输入矩形的面积：) D = L * L / 4 - 4 * S If D = 0 Then X1 = (L / 2 + Sqr(D) / 2 X2 = (L / 2 - Sqr(D) / 2 Print 这个矩形的长和宽分别为：; X1; 和; X2 Else Print 找不到这样的矩形！ End If End

3、 Sub,设所求矩形的宽为X,2.3.2 条件语句,1.条件语句的格式,If 条件 Then 语句组1 Else 语句组2,或,If 条件 Then 语句组1 Else 语句组2 End If,2.3.2 条件语句,2.条件语句的执行过程,注：有时候可以省略Else和语句组2。,2.3.2 条件语句,3.关系表达式 例:D=0 关系运算符有：,当关系表达式成立时，其值为真（True）,不成立时，其值为假(False),是逻辑型（boolean）,只有两个可能的值。,关系表达式的值定义如下：,1、对于数值型的数据比较，是按照数值的大小来比较它们的关系。如136其值为true ; 98=89其值为

4、false。 2、对于其他类型数据的比较，则按照其序号来进行比较。如“A”“D”其值为false。,2.3.2 条件语句,4.逻辑表达式,对于一些复杂的条件，还需要用几个关系表达式组合起来才能表示。,例如，条件2x9,就需要 用2x和x9这两个关系式来表示。,将多个关系式用逻辑运算符连接起来的式子称为逻辑表达式。,逻辑运算符有： Not（非） And（与） Or（或）,逻辑表达式的例子,Not(37)的结果是 ,not(137)的结果是 (310)的结果为 (05)or(31)的结果为 ,(50)or(31)的结果为,运算符的运算规则是：not取操作数相反的数值，and当两个操作数都为真时，结

5、果才为真，or当两个操作数都为假时，结果才为假,true,false,true,false,false,true,2.3.2 条件语句,5.逻辑运算的顺序,1、只有逻辑运算符时，运算顺序为Not And Or 2、多种运算符时，运算顺序是：算术运算关系运算逻辑运算,当a=5,b=7,c=-2,d=1时，运算结果是：,1,1,1,0,1,1,true,例如：,作业p44,（2）某商场为了对苹果进行促销，规定购买2千克以上可以在原价每千克1.5元的基础上打8折，请设计一个程序计算购买X千克苹果的应付款。,（1）分析问题： 设买苹果的重量为x千克，应付款为y元,如果x=2,则y=1.5*x*0.8,

6、否则y=1.5*x。,（2）设计算法： 输入x的值 InputBox() 如果x=2,则y=1.5*x*0.8 否则y=1.5*x 输出y的值 print,作业要求：班级-座号命名，上交窗体文件*frm 和工程文件*vbp.,小结,条件语句的格式,If 条件 Then 语句组1 Else 语句组2,或,If 条件 Then 语句组1 Else 语句组2 End If,参考答案,Private Sub Command1_Click() x = InputBox(请输入购买苹果的数量：) If x = 2 Then y = 1.5 * x * 0.8 Else y = 1.5 * x End If Print 应付的款项为：; y; 元 End Sub,常见错误:格式错误,Private Sub Command1_Click() x = InputBox(请输入购买苹果的数量：) If x = 2 Then y = 1.5 * x * 0.8 If x 2 Then y = 1.5 * x End If Print 应付的款项为：; y; 元 End Sub,常见错误:语法错误，变量前后不一致,Private Sub Command1