VB中的IF语句

换成行if语句该如何写 程序有可优化之处吗？
动手完成完整的体重标准与否判断程序
If (weight <= (high - 110) + (high - 110) * 0.1) And (weight >= (high - 110) - (high - 110) * 0.1) Then Print “恭喜你,很标准的身材啊!”
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
• 在分支结构的一个分支上再加入一个分支结构。
• 类型有多种，比如：单分支嵌套单分支、双分支嵌套双分 支等
嵌套分支结构
开始
开始 F
表达式 1？ T F 表达式 2？ T 语句块1 语句块2 语句块2
表达式1？ T 表达式2? T 语句块 F
结束
结束
单分支嵌套单分支
双分支嵌套双分支
1 , x>0
例3：已知分段函数y=
几个if语句合在一起写
if 条件表达式1 then 语句块1 Elseif 条件表达式2 then 语句块2
ElseIf
……
Elseif 条件表达式n then 语句块n
End If
Else
语句块0 End If
优化组里的程序
If (weight <= (high - 110) + (high - 110) * 0.1) And (weight >= (high - 110) - (high - 110) * 0.1) Then Print "恭喜你,很标准的身材啊!" ElseIf (weight <= (high - 110) + (high - 110) * 0.2) And (weight > (high - 110) + (high - 110) * 0.1) Then Print "注意了哦,有点超重了!" ElseIf (weight <= (high - 110) + (high - 110) * 0.3) And (weight > (high - 110) + (high - 110) * 0.2) Then Print "呀,轻度肥胖了!" ElseIf (weight <= (high - 110) + (high - 110) * 0.5) And (weight > (high - 110) + (high - 110) * 0.3) Then Print "哇,中度肥胖了!" ElseIf weight > (high - 110) + (high - 110) * 0.5 Then Print "你已经超出正常体重太多了,一定得健康减肥了!" Else: Print "你有点苗条啊,要注意健康哦" End If
输入身高 cm 和 体 重 kg
no
体重± 10%标准体重 yes
输出“恭喜， 标准身材！” 输出“不太 标准诶”
选 择 结 构
Байду номын сангаас
结 束
循环结构
测试体重标准与否的完整依据： 标准体重（公斤）= 身高（厘米）- 110 标准体重 ±10%为 理想体重 超过标准体重10%为 超 重
超过标准体重20%为 轻度肥胖
分 支 结 构 1
分 支 结 构 2
注意：每一层的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
1、一起来找茬 被你发 现了， 我败 了…… 判断一个人的体重是 否标准，是则输出“恭 喜，标准身材！”，否 则的话输出“不太标准 诶！”。
开 始 输入身高 cm 和 体 重 kg 体重± 10%标准体重 输出“不太 标准诶”
输出“恭喜， 标准身材！”
结 束
开 始
顺序结构 正 确 的 应 该 是 这 样 的
分支结构1
0 , x=0 -1 , x<0
，输出y的值。
if
____ then 分支结构2 x<0 ____ y=-1
else if ____ then x=0 ____ y=0 else ____ y=1 end if end if print y
分支嵌套——双分支嵌套双分支
条件1 then 语句1 else if 条件2 then 语句2 else 语句3 end if end if if
If··· then··· else··· (如果···那么···否则···) ··· ··· ··· ··· ··· ···
用来解决有关选择 结构的问题。
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
end if
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
if
a<b ____
then
t=a: a=b: b=t __________
end if
VB程序代码中一行可 以写多个语句，语句 间用冒号隔开。
嵌套分支结构
Print “呀,轻度肥胖了!” End If If (weight <= (high - 110) + (high - 110) * 0.5) And (weight > (high - 110) + (high - 110) * 0.3) Then Print “哇,中度肥胖了!” End If If weight > (high - 110) + (high - 110) * 0.5 Then Print “你已经超出正常体重太多了,一定得健康减肥了!” End If If weight< (high - 110) - (high - 110) * 0.1 Print "你有点苗条啊,要注意健康哦"
判断的顺序改 变一下能够有 更大的优化， 再试一下
小结
if
单分支结构
条件 then 语句A end if if 条件 then 语句A else 语句B end if 条件1 then 语句1 else if 条件2 then 语句2 else 语句3 双分支嵌套双分支 end if end if if
选 择 结 构
双分支结构
嵌套分支结构
任务：标准体重计算
超过标准体重30%为 中度肥胖 超过标准体重50%为 重度肥胖
（该知识来自百度知道，是体重标准与否的估算方法）
自己动手试试
双击按钮后输入如下程序（其实只要在原来的基础上加上红色划线的句子即可）
Dim high As Single
Dim weight As Single high = Text1.Text-------------用val(Text1.Text)更好 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 做好的同学思考：
猜：
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.