使用VB编写星期查看器(截图说明+代码).doc

用VB6.0编写星期查看器各项属性值一览表：项目属性值Form1Caption星期查询器-公元1年9999年MaxButtonFalseLabel1CaptionLabel1Label2Caption年Label3Caption月Label4Caption日Label5Caption请在下面三个下拉组合框中选择所要查询公历日期：Label6Caption（空）VisibleFalseLabel7Caption是否继续查询？VisibleFalseCombo1TextCombo1ToolTipText选择年份Combo2TextCombo2ToolTipText选择月份Combo3TextCombo3ToolTipText选择天数Command1Caption查询&SCommand2Caption退出&QCommand3Caption是&YVisibleFalseCommand4Caption否&NVisibleFalse各项控件大致分布截图：以下为程序代码：Option ExplicitDim Week$, aa$, bb$, i%Private Sub Command1_Click()Form1.Caption = 很期待吧，结果已经出来了哦Label6.Visible = TrueLabel1.Visible = TrueDim x As IntegerDim y As IntegerDim z As Integerx = Val(Combo1.Text) Mod 4y = Val(Combo1.Text) Mod 100z = Val(Combo1.Text) Mod 400If x = 0 ThenIf y 0 ThenLabel6.Caption = 公元 + Combo1.Text + 年是闰年， + Combo2.Text + 月 + Combo3.Text + 日是End IfEnd IfIf z = 0 ThenLabel6.Caption = 公元 + Combo1.Text + 年是闰年， + Combo2.Text + 月 + Combo3.Text + 日是End IfIf x 0 ThenLabel6.Caption = 公元 + Combo1.Text + 年是平年， + Combo2.Text + 月 + Combo3.Text + 日是End IfIf y = 0 ThenIf z 0 ThenLabel6.Caption = 公元 + Combo1.Text + 年是平年， + Combo2.Text + 月 + Combo3.Text + 日是End IfEnd IfCombo1.Enabled = FalseCombo2.Enabled = FalseCombo3.Enabled = FalseCommand1.Visible = FalseCommand2.Visible = FalseCommand3.Visible = TrueCommand4.Visible = TrueLabel7.Visible = TrueEnd SubPrivate Sub Command2_Click()If MsgBox(还没开始就要退出吗？, vbQuestion + vbYesNo + vbDefaultButton2, 星期查询器友情提示) = vbYes ThenMsgBox 好吧，您非要这样的话，再见吧！, vbInformation + vbOKOnly, 星期查询器EndElseEnd IfEnd SubPrivate Sub Command3_Click()Command1.Visible = TrueCommand2.Visible = TrueCommand3.Visible = FalseCommand4.Visible = FalseCombo1.Enabled = TrueCombo2.Enabled = TrueCombo3.Enabled = TrueLabel1.Visible = FalseLabel6.Visible = FalseLabel7.Visible = FalseForm1.Caption = 星期查询器-公元1年9999年End SubPrivate Sub Command4_Click()MsgBox 谢谢您的使用！再见, vbInformation + vbOKOnly, 星期查看器EndEnd SubPrivate Sub Form_Load()MsgBox 欢迎使用星期查询器！, vbInformation + vbOKOnly, 星期查询器 For i = 1 To 9999 Combo1.AddItem CStr(i) Next i For i = 1 To 12 Combo2.AddItem CStr(i) Next i Combo1.Text = Year(Now): Combo2.Text = Month(Now) Call ChkMonthDay Combo3.Text = Day(Now) Call ShowWeekEnd SubPrivate Sub Combo1_Click() Call ChkMonthDay Call ShowWeekEnd SubPrivate Sub Combo2_Click() Call ChkMonthDay Call ShowWeekEnd SubPrivate Sub Combo3_Click() Call ShowWeekEnd SubSub ChkMonthDay() 检查某年的某月共有几天 Dim YearMonth As Date, Tdays% YearMonth = DateSerial(Val(Combo1.Text), Val(Combo2.Text) + 1, 1) - 1 Tdays = Val(Right(Str(YearMonth), 2) bb = Combo3.Text Combo3.Clear For i = 1 To Tdays Combo3.AddItem CStr(i) Next i Combo3.Text = bbEnd SubSub ShowWeek() 将文字转为日期,再将日期计算星期几 aa = Combo1.Te