VB中的IF语句

选 择 结 构
双分支结构
嵌套分支结构
1．有如下VB程序段： a ＝ 5: b ＝ 3 If Not b < a Then a ＝ a ＋ b 该程序运行后，a的值是 ( ) A ．5 B ．3 C ．8 D ．0
A
2．若x＝1，执行语句If x >＝ 1 Then y ＝ x ＋ 1 Else y ＝ x – 1后，变 量y的值是 ( D ) A．－1 B．0 C．1 D．2
9．下列VB程序用来判断某整数的奇偶情况： Private Sub Command1_Click() x ＝ Val(Text1.Text) If ____________________ Then Text2.Text ＝ "奇数" Else Text2.Text ＝ "偶数" End If End Sub X Mod 2=1 则程序划线处应填入________________________ 。
• If the weather is good tomorrow, then I will go to the park, else I have to stay at home.
If· · · · · ·then· · · · · ·else· · · · · ·(如果· · · · · · 那么· · · · · · 否则· · · · · · )
分支嵌套——双分支嵌套双分支
条件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。
条件语句
1. If…Then 结构 2. If…Then…Else 结构 3. If…Then…ElseIf 结构
2016/5/30
小结
if
单分支结构
条件 then 语句A end if if 条件 then 语句A else 语句B end if 条件1 then 语句1 elseif 条件2 then 语句2 else 语句3 end if 双分支嵌套双分支 end if if
2016/5/30
Mark=Text1.Text If Mark >= 90 Then Print "优" ElseIf Mark >= 60 Then Print “通过" Else Print “未通过" End If
若条件1与条件2换位，结果会怎样？
总 结
赋值语句
变量名=表达式 变量赋值：
对象.属性=表达式 属性赋值： 变量=对象.属性
(
)
C
8．某景区针对门票的销售编写了如下VB程序代码： Private Sub Command1_Click() m ＝ InputBox("请输入身高") If m <＝ 120 Then Label1.Caption ＝ "免票" ElseIf m <＝ 150 Then Label1.Caption ＝ "半价票" Else Label1.Caption ＝ "全价票" End If End Sub 运行程序，单击命令按钮Command1，若在出现的对话框中输 半价票 入“125”，在标签Label1上显示的内容是___________________ 。
猜：
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
D．5
( D )
5．有如下VB程序段： Private Sub Command1_Click() a ＝ Val(Text1.Text) If a >＝ 5 Then b＝a^3 Else b＝a*3 End If Text1.Text ＝ Str(b) End Sub 若要测试所有分支程序代码是否正确，下列测试数据中最恰当 的一组是 ( ) A．1,4 B．8,12 C．3,7 D．5,15 C
2016/5/30
注意： (1) 赋值号左侧只能出现 变量
(2) 一条赋值语句不能同 时给 多个变量赋值
例如：A=B=C=21
IF语句英译汉:
• If the weather is good tomorrow, then I will go to the park.
If · · · · · · then · · · · · · (如果· · · · · · 那么· · · · · · )
if
a<b ____
then
t=a: a=b: b=t __________
end if
VB程序代码中一行可 以写多个语句，语句 间用冒号隔开。
ห้องสมุดไป่ตู้套分支结构
• 在分支结构的一个分支上再加入一个分支结构。
• 类型有多种，比如：单分支嵌套单分支、双分支嵌套双分 支等
嵌套分支结构
开始
开始 表达式1？ T 表达式2? T 语句块
6．“如果a能被b整除，那么x＝a＋b”。能实现该功能的VB语 句是 ( D ) A．If a\b＝0 Then x＝a＋b B．If a＝b Then x＝a＋b C．If Int(a/b)＝0 Then x＝a＋b D．If a Mod b＝0 Then x＝a＋b
7．有如下VB程序段： Private Sub Command1_Click() a ＝ 123 b ＝ 456 If a Mod 2 ＝ 1 Then MsgBox Str(a ＋ b) Else MsgBox Str(a － b) End If End Sub 程序运行后，在输出对话框中显示的提示信息是 A．a ＋ b B．123＋456 C．579 D．显示出错信息
2016/5/30
⑵ 设置对象的属性
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 输入成绩
F 等级：通过：60 ≤ Mark ＜ 90 T 输出“优” 成绩>=60? T F 未通过：<60 输出“未通过” 输出“通过”
成绩>=90?
2016/5/30
.
3. If…Then…ElseIf 结构
格式：If 条件1 Then （A组语句） ElseIf 条件2 Then （B组语句） ElseIf 条件3 Then （C组语句） …… Else （n组语句） End If
4．有如下VB程序段： Private Sub Command1_Click() a ＝ 3: b ＝ 4: c ＝ 5 If a >＝ b And a >＝ c Then Max ＝ a ElseIf b >＝ c Then Max ＝ b Else Max ＝ c End If End Sub 该程序运行后，整数型变量max的值为 A．0 B．3 C．4
语句块1 语句块2 语句块2
F
表达式 1？ T
F 表达式 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
3．已知a、b、c为某三条线段的长度，判断这三条线段能否构成一个三角 形的VB程序代码如下： Private Sub Command1_Click() a ＝ 20 b ＝ 13 c＝5 If a ＋ b > c And b ＋ c > a And c ＋ a > b Then MsgBox “能构成” Else MsgBox “构不成” End Sub 运行程序，单击命令按钮Command1后，结果是 ( ) C A．弹出对话框中显示“能构成” B．弹出对话框中显示“构不成” C．出现“块If没有End If”的错误信息 D．出现“False”的错误信息
用来解决有关选择 结构的问题。
VB中的选择语句 ——IF语句
选择结构与选择语句
if 条件 then 语句A end if
If和end if 要成对出现
if
条件 then 语句A else 语句B end if
例1：输入一个数到变量a，输出它的绝对值（不用绝对值
函数）
a = inputbox("")
if
a<0
a<0 ____ a=-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
2016/5/30
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