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

1、“计算两个数的商”,Private Sub Command1_Click() Dim x As Single 被除数 Dim y As Single 除数 Dim q As Single 商 x = Val(InputBox(请输入被除数:) y = Val(InputBox(请输入除数:) q = x / y Print q End Sub,想一想,当除数为0时，程序提示出错，说明这样的程序是不完善的。实际上，在除数不为零的情况下，才能计算它们的商，否则应提示“除数为零”。用VB程序来描述就是：,If y 0 Then q = x / y Print q Else Print 除数为零 En

2、d If,根据条件判断的结果，选择执行不同语句的结构，称为选择结构。,选择结构,活动一：模仿上例完善程序，尝试解决下面两个问题。,(1) 输入两个数x和y，比较他们的大小，使得x大于y。 Private Sub Command2_Click() Dim x As Single,y As Single,t As Single x = Val(InputBox(“输入x的值：) y = Val(InputBox(“输入y的值：) If _ Then t = x x = y y = t End If Print “x的值为：; x Print “y的值为：; y End Sub,x y,(2) 出租

3、车计费程序，2公里（含）以内起步价8元，超出2公里的部分每公里2元。 Private Sub cmdtaxi_Click() Dim s As Single,y As Single s = Val(InputBox(输入里程数：) If 0 s and s = 2 Then y = 8 Else _ End If Print y End Sub,y=2*(s-2)+8,单分支选择结构：,If 条件 Then 语句块 End If, 单分支If语句只包含一个分支，如果条件成立，则执行Then下面的语句块；如果条件不成立，就执行End If后面的语句； 在只需要做肯定判断，不需要给出否定判断结果的

4、情况下可用此类型If语句。 End If表示IF语句的结束。,If 条件 Then 语句块1 Else 语句块2 End If,语句功能： 包含两个分支，当条件成立时，执行Then分支后面的语句块1，当条件不成立时，执行Else分支后面的语句块2。（其中语句块1和语句块2均表示一个语句组，可以包含0条或多条语句。）； 两个分支只能二选其一执行，不能同时执行； 条件可以是关系表达式（，=,），或者逻辑表达式（AND，OR, NOT）； 表示Else部分可以省略。,双分支选择结构：,活动二：利用单分支和双分支选择结构，完善程序，解决问题。,（1）中秋节前夕，商店月饼促销，购满3盒（含）即可享受八折

5、优惠。根据输入的购买盒数，计算出应付金额。 Private Sub Command3_Click() Dim hs As Integer 购买盒数 Dim dj As Single 每盒的单价 Dim zj As Single dj = 80 hs = Val(InputBox(购买盒数：) _ 如果购买盒数低于3盒，不打折 _ 购满3盒（含）享受八折优惠 _ Print 应付金额：; zj; 元 End Sub,（2）已知三角形的三条边a,b,c,求三角形的面积。 Private Sub cmdsquare_Click() Dim a As Single,b As Single,c As S

6、ingle Dim p As Single,s As Single a = Val(InputBox(input a：) b = Val(InputBox(input b：) c = Val(InputBox(input c：) p = (a+b+c) / 2 _ 提示用户不能构成三角形 Print”这样的三角形不存在” 如果输入的三边值（a,b,c）能够构成三角形则计算其面积 _ End Sub,活动三：身体质量指数（BMI）是目前国际上常用的衡量人体胖瘦程度的标准，中国人的参考标准为：BMI=23.9表示偏重。（BMI=体重（kg）/身高的平方）,借助数轴分析问题（如下图），形成算法： B

7、MI指数的等级范围 （1）先判断x18.5，成立则输出“偏瘦” （2）否则判断x23.9，成立则输出“正常”，否则输出“偏重”,（1）先判断x18.5，成立则输出“偏瘦” （2）否则判断x23.9，成立则输出“正常”，否则输出“偏重” Private Sub cmdbmi_Click() Dim w As Single,h As Single,bmi As Single w = Val(InputBox(输入体重（公斤）：) h = Val(InputBox(输入身高（米）：) bmi = w / h / h If bmi 18.5 Then Print 偏瘦 Else _ _ _ End If End Sub,在第一次判断的基础上，再次进行判断。这种在一个IF语句的内部又出现了另一个IF语句，即称为IF语句的嵌套。,多分支选择结构： If 条件1 then 语句块1 ElseIf 条件2 then 语句块2 Else 语句块3 End If End If,多分支的If语句实现BMI值判断： Private Sub cmdbmi_Click() Dim w As Single,h As Single,bmi As Single w = Val(InputBox(输入体重（公斤）) h = Val(Inp