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

用VB6.0编写星期查看器 以下为程序代码： Option Explicit Dim Week$, aa$, bb$, i% Private Sub Command1_Click() Form1.Caption = 很期待吧，结果已经出来了哦~ Label6.Visible = True Label1.Visible = True Dim x As Integer Dim y As Integer Dim z As Integer x = Val(Combo1.Text) Mod 4 y = Val(Combo1.Text) Mod 100 z = Val(Combo1.Text) Mod 400 If x = 0 Then If y 0 Then Label6.Caption = 公元 + Combo1.Text + 年是闰年， + Combo2.Text + 月 + Combo3.Text + 日是 End If End If If z = 0 Then Label6.Caption = 公元 + Combo1.Text + 年是闰年， + Combo2.Text + 月 + Combo3.Text + 日是 End If If x 0 Then Label6.Caption = 公元 + Combo1.Text + 年是平年， + Combo2.Text + 月 + Combo3.Text + 日是 End If If y = 0 Then If z 0 Then Label6.Caption = 公元 + Combo1.Text + 年是平年， + Combo2.Text + 月 + Combo3.Text + 日是 End If End If Combo1.Enabled = False Combo2.Enabled = False Combo3.Enabled = False Command1.Visible = False Command2.Visible = False Command3.Visible = True Command4.Visible = True Label7.Visible = True End Sub Private Sub Command2_Click() If MsgBox(还没开始就要退出吗？, vbQuestion + vbYesNo + vbDefaultButton2, 星期查询器友情提示) = vbYes Then MsgBox 好吧，您非要这样的话，再见吧！, vbInformation + vbOKOnly, 星期查询器 End Else End If End Sub Private Sub Command3_Click() Command1.Visible = True Command2.Visible = True Command3.Visible = False Command4.Visible = False Combo1.Enabled = True Combo2.Enabled = True Combo3.Enabled = True Label1.Visible = False Label6.Visible = False Label7.Visible = False Form1.Caption = 星期查询器-公元1年~9999年 End Sub Private Sub Command4_Click() MsgBox 谢谢您的使用！再见, vbInformation + vbOKOnly, 星期查看器 End End Sub Private 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 ShowWeek End Sub Private Sub Combo1_Click() Call ChkMonthDay Call ShowWeek End Sub Private Sub Combo2_Click() Call ChkMonthDay Call ShowWeek End Sub Private Sub Combo3_Click() Call ShowWeek End Sub S