请输入您的出生日期，下面的程序告诉你出生的是周几

Private Sub Command1_Click()

 

  Dim year As Integer

 

  Dim month As Integer

 

  Dim day As Integer

 

 

 

  Dim n As Integer

 

  Dim birthday As Date

 

 

 

   year = Int(Val(Text1.Text))

 

  month = Int(Val(Text2.Text))

 

  day = Int(Val(Text3.Text))

 

 

 

  birthday = DateSerial(year, month, day)

 

  n = Weekday(birthday)

 

  Label4.Caption = WeekdayName(n)

 

 

 

 

 

End Sub