IF语句的嵌套

格 式：
Select Case 表达式 Case 表达式范围1 语句块1 Case 表达式范围2 语句块2 „„ Case 表达式范围n 语句块n [Case Else 语句块 n+1] End Select
实 例
将百分制的分数转化为等级制。 分数范围 90分及以上 对应等级 A
80分及以上
70分及以上 60分及以上 60分以下
Then
>= 60 Then = "D" = "F"
Private Sub Command2_Click() score = Val(Text1.Text) If IsNumeric(score) And score <= 100 And score >= 0 Then Select Case score Case 90 To 100 grade = "A" Case 80 To 89 grade = "B" Case 70 To 79 grade = "C" Case 60 To 69 grade = "D" Case 0 To 59 grade = "F" Case Else End Select Text2.Text = grade Else Text2.Text = "Error" End If End Sub
B
C D F
简易流程图：
Ture 语 句 嵌 套 实 例 IF False
score>=90
Ture
score>=80
False TБайду номын сангаасre False
score>=70
Ture
score>=60
False
grade=“A” grade=“B” grade=“C” grade=“D”
grade=“F”
IF语句的嵌套
格 式：
（多分支）
If
条 件 If
Then 条 件 Then 语句块1 Else 语句块2 End if If 条 件 Then 语句块3 Else 语句块4 End if
内嵌IF语句
Else
内嵌IF语句
End if
功能：根据表达式的值，判断执行哪个语句块。一次只允许执行一个语句块。
Select Case语句（多重选择语句）
用 代 码 实 现
score = Val(Text1.Text) If score >= 90 Then grade = "A" Else If score >= 80 Then grade = "B" Else If score >= 70 grade = "C" Else If score grade Else grade End If End If End If End if Text2.Text = grade