2.3.2选择结构

选择结构导学案
实践1：输入两个数a和b，比较他们的大小，如果a大于b，我们就进行交换并输出他们的值。

那我们该如何完善这段程序呢？
Private Sub Form_Click()
Dim a As Single, b As Single, c As Single
a = Val(InputBox("输入a的值:"))
b = Val(InputBox("输入b的值:"))
Print "交换前：a="; a, "b="; b
If_________Then
c = a
a = b
b = c
End If
Print "a的值为:"; a
Print "b的值为:"; b
End Sub
实践2：张浩然同学用VB编写一个程序，求输入三个数中的最大数，运行该程序，输入3个数值，单击“判断”按钮，即可得出最大数，该程序的正确运行界面如图所示，但他在编写程序时遇到了一些问题，请你帮他完善程序，让其程序运行正常。

工作界面如下：
程序代码如下：
Private Sub Command1_Click()
Dim a, b, c, max As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text3.Text)
If ______ Then
max = a
Else
max = b
End If
If ______ Then
max = c
End If
Label1.Caption = "以上三个数当中最大的数为：" & max
End Sub
实践3：某省高中信息技术学业水平考试，分值大于等于90分，成绩为“A”；分值大于等于80分但少于90分，成绩为“B”；分值少于80分，但大于等于60分，成绩为“C”；分值少于60分，成绩为“D”。

请设计程序，完善查询效果。

（工作界面如下：）
Private Sub Command1_Click()
Dim x As Single
x = Val(Text1.Text)
If _________ Then
MsgBox "成绩为A！", vbOKOnly, "结果"
ElseIf _________ Then
MsgBox "成绩为B！", vbOKOnly, "结果"
ElseIf _________ Then
MsgBox "成绩为C！", vbOKOnly, "结果"
Else
MsgBox "成绩为D！", vbOKOnly, "结果"
End If
End Sub
练习1：
我国首位航天员杨利伟乘坐的“神舟”五号载人飞船，于北京时间2003年10月15日19时，在酒泉卫星发射中心成功升空，这标志着我国载人航天技术走向一个新的里程，由物理学知识可知：只有当飞船的速度达到第一宇宙速度（7.91千米/秒）时，才可以在地球引力作用下，绕地球近似做匀速圆周运动。

编写程序，实现以下功能：输入飞船速度，判断飞船是否能升空。

流程图如图所示：
练习2：
在“神舟号”程序中，我们只判断了飞船成功飞行的条件。

当飞船速度继续加大时，飞船将达到第二宇宙速度、第三宇宙速度、速度与运行状态之间的关系如下图所示。

试编写程序，输入不同的飞船速度，判断它的各种飞行状况。

飞船的飞行状况如图：。