今日学习目标

  • 掌握If...Then...Else语句
  • 掌握Select Case语句
  • 学会使用嵌套条件

知识点

1. If...Then...Else

vba
If 条件 Then
' 条件成立时执行
Else
' 条件不成立时执行
End If

2. Select Case

vba
Select Case 变量
Case 值1
' 处理值1
Case 值2
' 处理值2
Case Else
' 其他情况
End Select

今日代码

vba
Sub If示例()
    Dim score As Integer
    score = 85

    If score >= 90 Then
        MsgBox "优秀"
    ElseIf score >= 80 Then
        MsgBox "良好"
    ElseIf score >= 60 Then
        MsgBox "及格"
    Else
        MsgBox "不及格"
    End If
End Sub

Sub SelectCase示例()
    Dim grade As String
    grade = "A"

    Select Case grade
        Case "A"
            MsgBox "优秀"
        Case "B"
            MsgBox "良好"
        Case "C"
            MsgBox "中等"
        Case Else
            MsgBox "未知等级"
    End Select
End Sub

练习题

  1. 根据分数判断等级
  2. 判断一个年份是否为闰年
  3. 根据成绩给出奖惩建议

参考解答

1. 使用If...ElseIf或Select Case判断分数区间（90以上优秀，80-89良好等）。 2. 闰年判断：(Year Mod 4 = 0 And Year Mod 100 <> 0) Or (Year Mod 400 = 0)。 3. 根据分数给出奖励（如请客）或惩罚（如加班复习）的建议。

由在线工具箱(www.vba.net)整理制作