新增文章

文章标题分类内容

Private Sub Main()
    Select Case InputBox("请输入你希望的天气，从晴天、多云、阴天、阵雨、小雨、小雪、冰雹中选一个填入。", "请输入你希望的天气", "晴天")
    Case "晴天"
        MsgBox "哇哦！你喜欢的是晴天啊，祝你天天好心“晴”~！"
    Case "多云"
        MsgBox "喜欢多云的天气，是因为比较怕紫外线吗？"
    Case "阴天"
        MsgBox "为什么喜欢阴天呢？真令人好奇啊~！"
    Case "阵雨"
        MsgBox "为什么喜欢阵雨天呢？真令人好奇啊~！"
    Case "小雨"
        MsgBox "为什么喜欢小雨天呢？真令人好奇啊~！"
    Case "小雪"
        MsgBox "为什么喜欢小雪天呢？真令人好奇啊~！"
    Case "冰雹"
        MsgBox "为什么喜欢冰雹天呢？真令人好奇啊~！"
    Case Else
        MsgBox "不可以酱紫！只能从我给出的几种中挑选一个填入！"
    End Select
End Sub

-----------------------------------------------------------------
Private Sub Main()
    Select Case Day(Date)
    Case Is <= 10
        MsgBox "目前是本月上旬！"
    Case Is > 20
        MsgBox "目前是本月下旬！"
    Case Else
        MsgBox "目前是本月中旬！"
    End Select
End Sub

-----------------------------------------------------------------
Private Sub Main()
    Select Case Weekday(Date)
    Case 1, 7 '星期日、星期六
        MsgBox "今天是周末！"
    Case 2 To 6 '星期一到星期五
        MsgBox "今天不是周末！"
    End Select
End Sub

-----------------------------------------------------------------
Private Sub Main()

On Error GoTo ErrHdling
    Dim Num As Single
    Num = InputBox("请输入！")
    
    Select Case Num
    
        Case Is <= 1
            MsgBox "这个数不大于1"
            
        Case Is < 3
            MsgBox "这个数在1和3之间的开区间内"
            
        Case Is < 5
            MsgBox "这个数在3和5之间的半闭半开区间内"
            
        Case Is <= 7
            MsgBox "这个数在5和7之间的闭区间内"
            
        Case 8 To 10
            MsgBox "这个数 在 8 至 10 之间"
            
        Case Is > 20
            MsgBox "这个数大于7"
            
        Case Else
            MsgBox "这个数 不在比较范围"
            
    End Select
    
    Exit Sub
    
ErrHdling:
    MsgBox "这个不是可比较的数字"
    
End Sub

-----------------------------------------------------------------
Private Sub Main()
    On Error GoTo ErrHdling
    Dim Num As Single
    Num = InputBox("请输入！")

Select Case True
    Case Num >= 5 And Num <= 7
        MsgBox "这个数在5和7之间的闭区间内"
    Case Num < 3 And Num > 1
        MsgBox "这个数在1和3之间的开区间内"
    Case Num > 7
        MsgBox "这个数大于7"
    Case Num < 5 And Num >= 3
        MsgBox "这个数在3和5之间的半闭半开区间内"
    End Select

Exit Sub

ErrHdling:
    MsgBox "这个不是可比较的数字"
End Sub