VB實例 —萬年曆 （1）

1、創建控件：lbl1、txt1、lbl2、cmd1

2、lbl1.caption=輸入日期（任一種正確格式）：

設置lbl1、txt1、lbl2、cmd1的字體大小及顏色；

3、雙擊按鈕“確認”，添加代碼，效果爲：

    Option Explicit
        Private Sub cmd1_Click()
            Dim a, b
            b = 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
本例原來的錯誤代碼爲：

 Option Explicit
    Private Sub cmd1_Click()
        Dim a
         a = Weekday(Date): Date = txt1.Text
        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
錯誤有以下幾點：

   1、格式混亂：用（shift+）Tab鍵來調節。

   2、WeekDay（Date）格式錯誤，對函數理解的不夠透徹，與變量有點混淆。

   3、a = Weekday(Date): Date = txt1.Text，同行多語句順序錯誤。