2.3-程序的选择结构

4.逻辑表达式
在实际问题中，对于一些复杂的条件，还需要几个关系表 达式组合起来才能表示。例如，条件2<X<9就需要用2<X和 X<9这两个表达式来表示.将多个关系表达式用逻辑运算符连 接起来的式子称为逻辑表达式,逻辑表达式的运算值为逻辑型。 逻辑运算符有： Not（非）取操作数相反的值。即当操作数为假时，结果 为真；当操作数为真时，结果为假。 And（与）当两个操作数都为真时，结果才为真。 Or（或）当两个操作数都为假时，结果才为假。
（3）编写程序
Private sub command1_click() Dim x as single x=Inputbox(“请输入购买苹果的重量”) if x>=2 then y=1.5*x*0.8 else y=1.5*x end if Print “应付款”；y；“元” End sub
结束
结束
单分支结构只对判断条件为真的情况进行处理，双分支结构既对判断条件 为真的情况进行处理，同时也对判断条件为假的情况进行处理，所以双分 支结构也就多了else部分的内容。
If 语句的嵌套
IF语句的嵌套 如果在If语句中(语句组1）或（语句组2）本身又是一个If语句， 则称为If语句的嵌套。
If 条件 Then 语句组1 Else 语句组2 End If
双分支语法格式
双分支语法格式： （1）If 条件 Then 语句1 Else 语句2
（2）If 条件 Then
语句块1 Else 语句块2 End If 注意:在if语句中else部分不需要填写条件。 条件不满足 条件满足
对比分析
单分支结构
开始
双分支结构
开始
假
判断条件
真
判断条件
真
语句块
语句块1
语句块2
消费满1000元以上(含1000元)，享受8折优惠；消费在 500元以下不优惠。输入消费金额，计算出实收金额。
Private Sub command1_click() Dim m As Single,y as single '消费金额 m = Val(inputbox(“m=”,”输入消费金额”)) If m >= 1000 Then y = m * 0.8 Else If m >= 500 And m < 1000 Then y = m * 0.9 Else y = m End If End If print”应付”；y;”元” End Sub
单分支语法格式
单分支语法格式：
（1）If 条件 Then 语句组 （2）If 条件 Then 语句组 End If
单行语法
多行语法
这里的条件是关系表达式（<、>、=、<>、<=、>=）或逻辑表达式 （and、or、not），其值只有真或假两种，当表达式的值为真时， 视为条件成立。 语句可以是赋值语句（a=3）、输出语句(print、msgbox)、结束 语句(end)等。
变量 = 对象.属性
x <= 0 Or x > 100
对象名.属性名 = 属性值
x Mod 2
End If
练习：
1.输入三角形的三条边长，首先判断给出的三条边能 否构成三角形（三角形的两边之和大于第三边），如 可以，则计算并输出该三角形的面积；否则输出"不 能构成三角形"。
Private Sub Command1_Click() Dim a, b, c, p, s As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) p = (a + b + c) / 2 If (a + b) <= c Or (a + c) <= b Or (b + c) <= a Then Print "不能构成三角形" Else s = Sqr(p * (p - a) * (p - b) * (p - c)) Print "三角形的面积是" & s End If End Sub
Not((a>0) and (a mod 2 =0))
5.逻辑运算的顺序
(1)当条件中只有逻辑运算符时，运算的顺序为 Not、And、Or (2)当条件中既有算术运算符，又有关系运算符 和逻辑运算符时，运算顺序是：算术运算符，关 系运算符，逻辑运算符 例如： a+b>c+d and a>=5 or not c>0 or d<0 当a=5,b=7,c=2,d=1时，运算结果是真。
语法格式： MsgBox（信息内容+对话框类型，图标类型，对话框标题） 作用： MsgBox函数的作用是弹出一个对话框，在其中显示指定的数据和提示信息。
问题:
某商场为了对苹果进行促销，规定购买2千克以上可以在 原价每千克1.5的基础上打8折。请设计一个程序计算购 买x千克苹果的应付款。 （1）分析问题 设买苹果的重量为x千克，应付款为y元,如果x>=2,则y =1.5*x*0.8,否则y=1.5*x （2）设计算法 ① ② ③ ④ 输入x的值 如果x>=2,则y=1.5*x*0.8 否则y=1.5*x 输出y的值
逻辑表达式的运算次序
一个逻辑表达式一般包括逻辑运算符、关系 表达式或其他运算量： 算术运算 关系运算 逻辑运算 （NOT AND OR）
如以下表达式，其中a=5,b=3,c=-2,d=8
a-c > b+d OR c>d AND ABS(c) =a OR 7>11 OR c>d AND 2=a OR NOT c>13 假 OR 假 AND 假 OR NOT 假 NOT c> d+5
求一个数A的绝对值，如果A>=0，则这个数的绝对值为A，否则为－A。
（2）设计算法。
⑴输入数A ⑵如果A>=0，则这个数的绝对值为A
⑶否则为－A
⑷输出结果 ⑸结束
（3）编写程序
Private Sub command1_click()

Dim A As Single, b As Single
假 OR 假 OR 真
真
练习
点击会考：
1.表达式4+7>-6+1 and 4>=4运行的结果是：
2.有如下vb程序段： a=2 b=5 if a>b then m=a else m=b
该程序运行后，变量m的值为：
总结
单分支结构： If < 表达式> Then <语句组> End If 双分支结构： IF语句的嵌套：
A = InputBox("a=", "请输入a值")
If A >= 0 Then b=A
Else
b = -A End If Print "a的绝对值为"; b End Sub
（4）调试程序
程序的执行流程:
逐句演示程序的执行过程，体会条件语句的执行过程。与顺序结构 相比较，选择结构就是程序的执行不再完全按照语句的顺序执行， 而是根据某种条件是否成立来决定程序执行的走向，它进 一步体现了计算机的智能特点。
逻辑运算符的运算规则
逻辑运算符：
AND（与）：所联结的关系运算式必须同时成立才为真； OR（或）：所联结的关系运算式只要有一个为真，即为真； NOT（非）：将原来的逻辑值取反。
0<b<10 a<5或者a>10 a是正偶数 a不是正偶数
(b>0) and (b<10) a<5 or a>10
(a>0) and (a mod 2 =0)
其中，条件是一个逻辑表达式，语句组是一组VB的语句。
2.条件语句的执行过程
条件语句的执行过程是：当条件成立时，执行Then后面的语句组1，否 则执行语句组2。
在条件语句的基本格式中有时可以省略else和语句组2，这时条件语句的执行过程 是当条件成立时，执行then后面的语句组1，否则退出条件语句，执行下面的语句。
If <表达式1> then <语句组1> Else
If <表达式> Then <语句组1> Else <语句组2> End If
If <表达式2> then <语句组2> Else <语句组3> End if
End if
在分支语句中，程序执行一个分支后，其余分支不再执行；
点击会考：
在左边的文本框输入一个100以内的正整数（包括100不包括0），单击“判断”按钮， 在右边的文本框中显示是“奇数”还是“偶数”，输入大于100的整数则显示“输入 的整数不能超过100”。
（4）调试程序
总结
单分支结构： If < 表达式> Then <语句块> End If 双分支结构：
If <表达式> Then <语句块1> Else <语句块2> End If 在分支语句中，程序执行一个分支后，其余分支不再执行；
练习：
凡在商场消费满500元以上(含500元)，享受9折优惠；
If <表达式1> then <语句组1> Else
End if
If <表达式2> then <语句组2> Else <语句组3> End if
判断一个考试成绩，若大于等于60，则输出“顺 利通过！”否则输出“继续努力！”
Private Sub Command1_Click() Dim s As Integer s = Val(InputBox("请输入一个成绩：")) If s >= 60 Then MsgBox "顺利通过！" + Str(s), 0, "成绩“ Else MsgBox "继续努力！" End If End Sub