Private Sub Command1 Click Dim myday as weekdays 定义 Myday为 Weekdays枚举类型 myday=Ⅴal( InputBox("今天是星期几(0~6)")输入0~6 If myday <Sun Or myday Sat Then MsB0x"输入的星期数错误 Else If myday= Sun Or myday= Sat Then Msg Box"休息日 Else MsB0x工作日 End if End if End sub ★Private Sub Command1_Click() Dim myday As weekdays '定义Myday为Weekdays枚举类型 myday = Val(InputBox("今天是星期几(0～6)")) '输入0～6 If myday <Sun Or myday > Sat Then MsgBox "输入的星期数错误" Else If myday = Sun Or myday = Sat Then MsgBox "休息日" Else MsgBox "工作日" End If End If End Sub