VB实例 —万年历 (3)

原来的错误是：Timer1的Enabled属性设为True。
代码错误是：
Private Sub Timer1_Timer()
Dim c As Date
    c = Time
    lbl3.Caption = CStr(c)
End Sub
————————————————————
Private Sub cmd1_Click()
    Dim a, b
        b = Val(txt1.Text)
        a = Weekday(b)
    Select Case a
        Case 1
            lbl2.Caption = "星期日"
        Case 2
            lbl2.Caption = "星期一"
        Case 3
            lbl2.Caption = "星期二"
        Case 4
            lbl2.Caption = "星期三"
        Case 5
            lbl2.Caption = "星期四"
        Case 6
            lbl2.Caption = "星期五"
        Case 7
            lbl2.Caption = "星期六"
    End Select
End Sub
错误效果是：打开窗体，即显示：
 
 
 
 
 
 
 无输入或输入错误格式，点击cmd1，有错误显示：
 
 
 
 
 
 
 
 输入正确格式的年月日，显示正确的星期：
 
 
 
 
 
 
 
 需深入理解的知识点是：
1、Exit 的使用。
2、MsgBox的使用方法。