文档介绍：程序的基本结构
程序的基本结构
1、依次结构：依据由上到下的依次一行一行的执行。程序中没有分支，没有重复。
2、选择结构：也叫分支结构，依据不同的条件推断来确定程序走向结构。
3、循环结构：依据条件推断，须要重复执行 = "飞船不能升空!"
End If
End sub
表2-11 飞船的飞行状况
选择结构
多分支形式：If <条件> then
语句或与语句组1
Else
语句或与语句组2
.......
End If
用If 多分支 语句推断飞船飞行状况
Private Sub command_Click（）
Dim v As Single
v = Val(InputBox("输入速度（km/s）："))
If v > Then
Print "飞船摆脱太阳吸引力飞出太阳系"
Else
If v >= Then
Print "飞船离开地球的限制,围绕太阳转"
Else
If v >= Then
Print "飞船绕地球近似做匀速圆周运动; "
Else
Print "输入数据错误"
End If
End If
End If
End sub
当程序出现多分支选择时，用if语句会比较繁琐，而运用多分支选择select case 语句就便利多了。
语法格式：
select case 表达式
case 表达式列表1
语句组1
[case 表达式列表2
语句组2]
......
[case else
语句组n]
end select
用select case 语句推断飞船飞行状况
Private sub cmdOk_click
Dim v as single
v = val(InputBox("输入速度v(km/s)"))
select case v
case Is >
= "太阳飞出太阳系"
case Is >=
= "绕太阳运行"
case Is >=
= "绕地球运行"
case else
= "数据输入错误"
End select
End sub
课后练****用select case语句编写以下代码
例子：
输入一学生的成果，评定其等次。方法是：90~100分为优秀，80~89分为良好，70~79分为中等，60~69分为及格，60分以下为不及格。
课后练****用select case 语句编写成果等次：
private sub command_click
dim x as single
x = val(inputbox("输入一个分数："))
select case x
case is >=90
= "优秀"
case is >=80
= "良好"
case is >=70
= "中等"
case is >=60