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的使用方法。