VB中的IF语句精

猜：
VB 编 程
IF语句英译汉:
? If the weather is good tomorrow, then I will go to the park.
If ······then ······ (如果······那么······)
? If the weather is good tomorrow, then I will go to the park, else I have to stay at home.
开始 输入身高 cm 和 体 重 kg
体重± 10%标准体重
输出“恭喜， 标准身材！”
结束
输出“不太 标准诶”
开始
顺序结构
输入身高
cm 和 体 重
正
kg
确
no
的
体重± 10%标准体重
应
选
该 是 这
yes
输出“恭喜， 标准身材！”
输出“不太
择
标准诶”
结
构
样
的
结束
循环结构
测试体重标准与否的完整依据： 标准体重（公斤）= 身高（厘米）- 110 ?标准体重 ±10%为 理想体重 ?超过标准体重10%为 超 重 ?超过标准体重20%为 轻度肥胖 ?超过标准体重30%为 中度肥胖 ?超过标准体重50%为 重度肥胖
else 语句B
end if
if 条件1 then
语句1
else
if 条件2 then
语句2
else
语句3 end if
双分支嵌套双分支
end if
任务：标准体重计算
1、一起来找茬
被你发 现了， 我败 了……
?判断一个人的体重是 否标准，是则输出“恭 喜，标准身材！”，否 则的话输出“不太标准 诶！”。
（该知识来自百度知道，是体重标准与否的估算方法）
自己动手试试
双击按钮后输入如下程序（其实只要在原来的基础上加上红色划线的句子即可）
Dim high As Single
Dim weight As Single
high = Text1.Text-------------用val(Text1.Text)更好
? 在分支结构的一个分支上再加入一个分支结构。 ? 类型有多种，比如：单分支嵌套单分支、双分支嵌套双分
支等
嵌套分支结构
百度文库
开始
表达式1？ T
表达式2? T
语句块
F F
结束
单分支嵌套单分支
开始
表达式 1？ T
语句块1
F
表达式 2？ T
语句块2 语句块2
结束
双分支嵌套双分支
1 , x>0
例3：已知分段函数y= 0 , x=0 ，输出y的值。
End If If (weight <= (high - 110) + (high - 110) * 0.2) And (weight > (high - 110) + (high - 110) * 0.1) Then
Print “注意了哦,有点超重了!” End If If (weight <= (high - 110) + (high - 110) * 0.3) And (weight > (high - 110) + (high - 110) * 0.2) Then
If······then······else······(如果······那么······否则······)
用来解决有关选择 结构的问题。
VB中的选择语句 ——IF语句
选择结构与选择语句
if 条件 then 语句A
end if
If和end if 要成对出现
if 条件 then 语句A
else 语句B
Print “呀,轻度肥胖了!” End If If (weight <= (high - 110) + (high - 110) * 0.5) And (weight > (high - 110) + (high - 110) * 0.3) Then
a>b
else
_p_ri_n_t b
end if
练习1：输入两个不相等的数 a，b，比较大小，将 大数放在 a中，小数放在 b中，然后输出 a，b
if _a_<_b_ then
_t=_a_:_a_=_b_:_b_=_t
end if
VB程序代码中一行可 以写多个语句，语句 间用冒号隔开。
嵌套分支结构
-1 , x<0
分支结构1
if _x_<_0_ then 分支结构2 _y_=_-1_
else if _x_=_0_ then _y_=_0_ else _y_=_1_ end if
end if print y
分支嵌套——双分支嵌套双分支
if 条件1 then
语句1
else
分
if 条件2 then
做好的同学思考：
?换成行if语句该如何写 ?程序有可优化之处吗？
动手完成完整的体重标准与否判断程序
If (weight <= (high - 110) + (high - 110) * 0.1) And (weight >= (high - 110) - (high - 110) * 0.1) Then Print “恭喜你,很标准的身材啊!”
weight = Text2.Text
If (weight <= (high - 110) + (high - 110) * 0.1) And (weight >= (high - 110) (high - 110) * 0.1) Then
Print “恭喜, 标准身材” Else
Print “不太标准诶” End If
支 结 构 1
分
语句2
支
结
else
构
语句3
2
end if
end if
注意：每一层的end if结束本层判断。
练习2：
购买地铁车票，若乘1—4站，3元/位；若乘5—9 站，4元/位；若乘10站以上，5元/位；输入人数 person、站数n，输出应付款pay。
流程图
程序代码
? if n<=4 then
? pay=3*person
? else
? if n<=9 then
?
pay=4*person
? else
?
pay=5*person
? end if
? end if
? print pay
小结
单分支结构
选
双分支结构
择
结
构
嵌套分支结构
if 条件 then 语句A
end if
if 条件 then 语句A
end if
例1：输入一个数到变量a，输出它的绝对值（不用绝对值
函数）
a = inputbox()
if _a_<_0_ then
a<0
_a_=_-_a
end if
print a
Print 意为打印，是输出 语句。
例2：从键盘分别输入两个不相等的数到变量a、b，输出
其中较大的数。
if _a_>_b_ then _p_ri_n_t a