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