第三节 选择结构的嵌套 课件

课件10张PPT。第三节选择结构的嵌套 复习：块 If 语句格式：
If 条件 Then
语句块1
[else
语句块2]
End If69IF语句的嵌套所谓嵌套的选择结构就是一个选择结构又包含另一个或多个选择结构。在一个If语句中可以包含另一个If语句。嵌套语句的优缺点Select Case语句（情况语句）
形式：
Select Case 变量或表达式
Case 表达式列表1
语句块1
Case 表达式列表2
语句块2
…
[Case Else
语句块n+1]
End Select
<表达式列表>：与<变量或表达式>同类型的下面四种形式之一：
表达式 A +5
一组枚举表达式(用逗号分隔) 2, 4, 6, 8
表达式1 To 表达式2 60 to 100
Is 关系运算符表达式 Is < 60数值型或字符串表达式 问题：书城的促销活动方案如下：
购书未满200元，赠送5元购书券；
购书满200元但未满500元，赠送购书券金额为消费金额的5%；
购书满500元但没满1000元，赠送购书券金额的10%；
购书满1000元，赠送购书券金额为消费金额的15%。购书券最小面值1元。1.分析问题Private Sub Command1_Click()
Dim m As Integer, p As Integer
m = Val(Text1.Text)
select case m
case is<200
p = 5
case is < 500
p = m * 0.05
case is < 1000 Then
p = m * 0.1
case else
p = m * 0.15
End select
Text2.Text = p
End Sub练一练