选择语句

单行语法 多行语法
这里的表达式是关系表达式（<、>、=、<>、<=、>=）或逻辑表达式 （and、or、not），其值只有真或假两种，当表达式的值为真时，视 为条件成立。例如:price<120属于什么表达式? 语句可以是赋值语句（a=3）、输出语句(print、msgbox)、结束语句 (end)等。
Else和If间无空格
格式：
表达式1＝ True 执行语句体1 False 表达式2＝ True 执行语句体2 False 表达式3＝……
If…Then…ElseIf…结构
表达式1 T
F 表达式2 T F …… ……
……
表达式n T 语句体n F
语句体1
语句体2
语句体n+1
•判断的顺序为表达式1、表达式2…… •只有当表达式1为False时才判断表达式2，当表达式 1和表达式2都为False时，才判断表达式3， •程序执行语句体n+1的条件为前n个表达式均为False。
If…Then…ElseIf…结构
例：已知变量ch中存放了一个字符，判断该字符是字母字符、数 字字符、空格还是其它字符。
– 分析： 字母字符： ch>= ” And ch<= “z”Or Or ch>= ch>= A ” And “Z If ch>= “a” “a And ch<= “z” ““ A ” And ch<= ch<=“ Z”” Then 数字字符：ch>=“0” And ch<=“9” Print 空格字符： ch=“ ” “字母字符” ElseIf ch>=“0” And ch<=“9” Then – 实现：
Print “数字字符” ElseIf ch=“ ” Then Print “空格” Else Print “其他字符” End If
If…Then…ElseIf…结构
例7-3 旅客乘车旅行，可免费携带30公斤行李，超 过30公斤的部分每公斤需支付托运费10元，超过50 公斤部分则每公斤需支付20元托运费。请编程根据 每位旅客行李的重量计算其应付的行李托运费。
' x<30
' 30<=x<=50
' x>50 x >= 30 And x<=50
能否写成？
可以，但Else 已经包含了 x>=30的信息
在线测试练习
1．语句If x=1 Then y=1,下列说法正确的是（C ）。 A、x=1和 y=1 均为赋值语句 B、x=1和 y=1均为关系表达式 C、x=1为关系表达式，y=1为赋值语句D、x=1为赋值语句，y=1为关系表达 2. 2.电梯的最大容量为13人，在此范围内电梯能正常运行，超出了这个范围 电梯将发出警报。（C） Dim a as integer a=val(inputbox(“请输入进入电梯的人数”)) if a<=13 then print “正常运行” else print “发出警报” end if A.if…….then……end if……else B.then……if……else……end if C.if……then……else……end if D.if……else……then……end if
一个双分支
If price =120 then MsgBox "猜对了，你真厉害“ Else MsgBox “猜错了,再试试“
双分支语法格式
双分支语法格式：
（1）If <表达式> Then <语句1> Else <语句2> （2）If <表达式> Then <语句块1> Else <语句块2> End If
If…Then…Else…结构
两种格式：
格式1： If <条件表达式> Then 语句体1 Else 语句体2 End If
T
条件表达式
F
语句体1
语句体2
格式2： If <条件表达式> Then 语句体1 Else 语句体2 注：当条件为True时执行语句体1，否则执行语句体2
例7-2
已知x，求
在线测试练习
3.以下程序段运行后，分别输入5和6，则输出字符的排列顺序是（ I=val(inputbox(“请输入I的值”)) If I <6 then Print “#” ; Else Print “*” End if A.*# B.#* C.## D.** B ）
在线测试练习
在vb程序中把代码补充完整并调试运行，得出结果后再选择答案 。 4.走路可以减肥，平地甩手走20分钟内（含20分钟）消耗的能量为6卡每分 钟，超过20分钟消耗的能量为7.9卡每分钟。走路的分钟数43分钟，输出共 消耗的能量。（D） Dim t,n as single t=val(inputbox(“请输入t的值”)) if t〈=20 then n=6*t else n=6*20+（t-20）*7.9 end if print “n=”;n A．258卡 B.339.7卡 C.439.7卡 D.301.7卡
选择结构
选择结构是算法的基本结构之一，凡是需要进行分情况执行的时候都应该 使用相关的选择结构语句。
猜价格游戏
猜价格游戏代码
If price < 120 Then MsgBox "猜低了，再试试“ If price > 120 Then MsgBox "猜高了，再试试“ If price = 120 Then MsgBox "猜对了，你真厉害“
条件满足 条件不满足
注意:在if语句中else部分不需要填写表达式
对比分析
单分支结构
开始
假
双分支结构
开始
假
判断条件
真
判断条件
真
语句块
语句块1
语句块2
结束
结束
单分支结构只对判断条件为真的情况进行处理，双分支结构既对判断条件 为真的情况进行处理，同时也对判断条件为假的情况进行处理，所以双分 支结构也就多了else部分的内容。
'第1个文本框的名称是txtX
'第2个文本框的名称是tx
等价于：
If x < 0 Then MsgBox "x不能小于0" Else y = Sqr(x) : txtY.Text = Str(y)
If…Then…ElseIf…结构
If <表达式1> Then 语句体1 ElseIf <表达式2> Then 语句体2 …… [Else 语句体n+1] End If
False
条件表达式 True
语句体
语句体
注 注 注 32 ：语句体中可以是 1 ：当条件为 ：条件表达式的值为 True时执行语句体，否则执行 多条语句 True，当采用 或 False ，一 格式2 时，所有的语句必须写在一行，用冒号隔开语句 If 般是逻辑或关系表达式，也可以是算术表达 语句的下一条语句 体中的语句 式（转换为逻辑值）
If price < 120 Then MsgBox "猜低了，再试试“
开始
假
判断条件
Price<120?
真
猜低了，再试试
结束
这种只对条件满足时的情况进行处理，我们称为选择结构中的单分支结构。
单分支语法格式
单分支语法格式：
（1）If <表达式> Then <语句块> （2）If <表达式> Then <语句块> End If
引言
分支结构
True
F1.1 If…Then…结构 7.1.2 If…Then…Else…结构 7.1.3 If…Then…ElseIf…结构
If…Then…结构
两种格式：
格式1： 块形式 If <条件表达式> Then 语句体 End If 格式2：单行形式 If <条件表达式> Then
语法之间的转换
If price = 120 Then MsgBox " 猜对了，你真厉害“ 三个单分支 If price < 120 Then MsgBox " 猜低了，再试试“ If price > 120 Then MsgBox " 猜高了，再试试“
If price = 120 Then MsgBox " 猜对了，你真厉害“ 两个单分支 If price <> 120 Then MsgBox “猜错了，再试试“
y x
程序代码如下： Private Sub CmdCul_Click() Dim x As Single, y As Single x = Val(txtX.Text) If x < 0 Then MsgBox "x不能小于0" Else y = Sqr(x) txtY.Text = Str(y) tY End If End Sub
总结
单分支结构：
If < 表达式> Then <语句块> End If 双分支结构： If <表达式> Then <语句块1> Else <语句块2> End If 在分支语句中，程序执行一个分支后，其余分支不再执行；
If…Then…结构
例：已知有两数x、y，编程使x中存放较大的数
– 分析：如果x>=y，则不需要做处理 如果x<y，则做交换处理 – 实现： If x < y Then temp = x x=y y = temp 特别注意： End If 块结构时If和End If成对出现 – 用格式2描述： If x < y Then temp = x:x = y:y = temp