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，同行多语句顺序错误。