VB中的IF语句

分支嵌套——双分支嵌套双分支
条件1 then 语句1 elseif 条件2 then 语句2 else 语句3 end if end if if
分 支 结 构 1
分 支 结 构 2
注意：每一层的end if结束本层判断。
练习2：
购买地铁车票，若乘1—4站，3元/位；若乘5—9 站，4元/位；若乘10站以上，5元/位；输入人数 person、站数n，输出应付款pay。
if
a<b ____
then
t=a: a=b: b=t __________
end if
VB程序代码中一行可 以写多个语句，语句 间用冒号隔开。
嵌套分支结构
• 在分支结构的一个分支上再加入一个分支结构。
• 类型有多种，比如：单分支嵌套单分支、双分支嵌套双分 支等
嵌套分支结构
开始
开始 F
表达式 1？ T F 表达式 2？ T 语句块1 语句块2 语句块2
表达式1？ T 表达式2? T 语句块 F
结束
结束
单分支嵌套单分支
双分支嵌套双分支
例3：已知分段函数y=
分支结构1
1 , x>0 0 , x=0，输出y的值。 -1 , x<0
if
____ x<0 then 分支结构2 ____ y=-1
elseif ____ x=0 then ____ y=0 else ____ y=1 end if end if print y
条件语句
1. If…Then 结构 2. If…Then…Else 结构 3. If…Then…ElseIf 结构
2019/2/22
小结
if
单分支结构
用来解决有关选择 结构的问题。
VB中的选择语句 ——IF语句
选择结构与选择语句
if 条件 then 语句A end if
If和end if 要成对出现
if
条件 then 语句A else 语句B end if
例1：输入一个数到变量a，输出它的绝对值（不用绝对值
函数）
a = inputbox("")
• If the weather is good tomorrow, then I will go to the park, else I have to stay at home.
If· · · · · ·then· · · · · ·else· · · · · ·(如果· · · · · · 那么· · · · · · 否则· · · · · · )
2019/2/22
Mark=Text1.Text If Mark >= 90 Then Print "优" ElseIf Mark >= 60 Then Print “通过" Else Print “未通过" End If
若条件1与条件2换位，结果会怎样？
总 结
赋值语句
变量名=表达式 变量赋值：
对象.属性=表达式 属性赋值： 变量=对象.属性
2019/2/22
⑵ 设置对象的属性
4.2 顺序结构
1.赋值语句 ⑴ 给变量赋值
Dim As 程序设计 Integer " 如: v A="VB 格式：变量名=表达式 Dim book As String*8 Text1.Text=A sum As Single ＝Text2.Text ⑵ 设置或获取对象的属性 Dim B v=26 v=v+1 设置属性值：对象名.属性= 表达式 book="VB 变量名＝对象名 .属性 程序设计" sum=v*123.4+56.7
流程图
程序代码
• • • • • • • • • • if n<=4 then pay=3*person elseif n<=9 then pay=4*person else pay=5*person end if end if print pay
例4：(思考)输入二级考试成绩，要求显示对应三级 制的评定。评定条件为： 开始 优：Mark ≥ 90 输入成绩
2019/2/22
注意： (1) 赋值号左侧只能出现 变量
(2) 一条赋值语句不能同 时给 多个变量赋值
例如：A=B=C=21
IF语句英译汉:
• If the weather is good tomorrow, then I will go to the park.
If · · · · · · then · · · · · · (如果· · · · · · 那么· · · · · · )
猜：
VB 编 程
By——
1.赋值语句
⑴ 给变量赋值
格式：变量名=表达式
Dim v As Integer Dim book As String*8 设置属性值：对象名.属性 =表达式 Dim sum As Single v=26 如: Label1.Caption= " hi " v=v+1 Text1.Text=A book="VB程序设计" sum=v*123.4+56.7
if
a<0
a<0 ____ Hale Waihona Puke Baidu=-a ____
then
endif
print a
Print 意为打印，是输出 语句。
例2：从键盘分别输入两个不相等的数到变量a、b，输出
其中较大的数。
if
a>b ____ print a ____
then
a>b
else print b ____ end if
练习1：输入两个不相等的数a，b，比较大小，将 大数放在a中，小数放在b中，然后输出a，b
F 等级：通过：60 ≤ Mark ＜ 90 T 输出“优” 成绩>=60? T F 未通过：<60 输出“未通过” 输出“通过”
成绩>=90?
2019/2/22
.
3. If…Then…ElseIf 结构
格式：If 条件1 Then （A组语句） ElseIf 条件2 Then （B组语句） ElseIf 条件3 Then （C组语句） …… Else （n组语句） End If
2019/2/22
1.赋值语句
例: Dim v As Integer Dim book As String*8 Dim sum As Double Dim Bool As Boolean v=26 v=v+12.3 sum=v*123.4+56.7 v="126" sum="123ab" v=True sum=False Bool=123 Bool=0 Bool=-123