文档介绍：分支结构
单分支结构的语句格式:
If 条件 then
语句组
End If
求绝对值。
Dim x As Integer
x = InputBox("请输入一个数:")
If x < 0 Then
x = x * (-1)
End If
Print x
(1)购买地铁车票:乘1-4 站 3元/位;5-9站 4元/位;9站以上5元/位;输入人数person、站数n,输出应付款pay。
Dim n As Integer, person As Integer, pay As Integer
n = InputBox("请输入乘车的站数")
person = InputBox("请输入乘车的人数:")
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
(2)分段函数问题
Dim x As Integer, y As Integer
x = InputBox("请输入x的值")
If x < 0 Then
y = -1
Else
If x = 0 Then
y = 0
Else
y = 1
End If
End If
Print y
(3)对输入的成绩判断“优秀”、“合格”和“不合格”。
Dim score As Single
score = InputBox("请输入成绩")
If score >= 60 Then
If score >= 90 Then
Print "优秀"
Else
Print "合格"
End If
Else
Print "不合格"
End If
(4)计算BMI
Dim weight As Single, height As Single, bmi As Single
weight = InputBox("请输入你的体重(kg):")
height = InputBox("请输入你的身高(m):")
bmi = weight / (height * height)
If bmi < Then
Print "体重偏轻"
Else
If bmi < 25 Then
Print "体重正常"
Else
Print "体重超重"
End If
End If
循环结构
“当循环”语句:
Do While <条件>
<循环体>
Loop
先判断循环条件,当条件成立时,执行循环体;
条件不成立时,退出循环。
当循环结构
分支结构与循环结构的比较:
有判断框,可能判断一次或多次
有一条流程线返回到判断框的入口处
只有一个入口,一个出口
有判断框,但只判断一次
流程线朝下走
只有一个入口,一个出口
做过的练习:
Dim i As Integer
i = 1
Do While i <= 10
Print i
i = i + 1
Loop
、2、3……10这10个数字,每行只输出一个数