vb日历程序设计.docVIP

设计题目：日历程序 要求： 1.制作1个在日常生活中常见的日历。 2.运行程序后，将在日历上看见windows中的“年、月、日”和“今天是星期几”等4个信息，按cancel键退出该程序 (窗体界面参考windows日历样式) 设计思路： 使用日期提取函数调出系统时间，利用Label控件将日期显示在Form1窗体上；使用日历控件Calendar，修改相关属性，做成一个日历查询界面。具体操作时注意美观。 具体内容： 运行程序后，将在日历上看见windows中的“年、月、日”和“今天是星期几”等4个信息，点击“日历查询按钮”，可查询1900-2100之间的日期及其对应星期几，按退出键完全退出该程序。 输入数据类型、格式和内容限制： 本程序没有数据输入。 界面描述： 运行后如下图 结束语： 通过对日历程序的设计，体验了程序设计的完整过程，从构想到设计再到功能的实现，最后又经改进与调试，最终完成了最初设计的全部要求。当然，还是有不够完善的地方，比如日历查询中，没有对应的农历选项,有机会当再做改进，使得日历查询时能够得到对应的农历,甚至节气等信息。尚有不足之处还请老师批评指正。 源程序清单： Form1中的代码: Private Sub Command1_Click() 显示日历查询窗体 Form2.Show End Sub Private Sub Command2_Click() 完全退出程序 End End Sub Private Sub Form_Load() 提取系统日期，并将星期几装换成大写数字 Dim x As String Label2.Caption = Weekday(Date, vbMonday) Label3.Caption = Day(Date) Label4.Caption = Year(Date) Label6.Caption = Month(Date) x = Val(Label2.Caption) Select Case x Case 1 Label2.Caption = 一 Case 2 Label2.Caption = 二 Case 3 Label2.Caption = 三 Case 4 Label2.Caption = 四 Case 5 Label2.Caption = 五 Case 6 Label2.Caption = 六 Case 7 Label2.Caption = 日 End Select Private Sub Form_KeyPress(KeyAscii As Integer) ’ 按Esc键退出该程序 If KeyAscii = 27 Then End End If End Sub Private Sub Timer1_Timer()’ 每隔一秒显示时间并更新 Label8.Caption = Hour(Now) ： Minute(Now) ： Second(Now) End Sub Form2中的代码: Private Sub Form_Load() 使查询日历首页显示为当天的日期 Calendar1.Year = Year(Date) Calendar1.Month = Month(Date) Calendar1.Day = Day(Date) End Sub Private Sub Form_KeyPress(KeyAscii As Integer)’ 按Esc键退出该程序 If KeyAscii = 27 Then End End If End Sub 参考书目： Visual Basic教程（第二版）郑阿奇 主编 曹戈 编著 Visual Basic 6.0 开发与实例 王兴晶 施波 等编著 指导教师___________（签字） 教研室主任__________（签字）