请帮我做个简易日历的VB课程设计吧,小弟不才,请大虾救小弟一把!!!!!!拜谢!!!!!下面是要求,麻烦再帮忙写份报告书,格式在题目下面.
一、设计题目：简易日历（出题人：刘靖宇）
说明：一个简单的日历。
二、目的与要求
1.目的
培养学生综合利用VB语言进行程序设计的能力，主要是培养学生利用VB的标准控件进行应用程序设计的技能。
2.基本要求
能够窗体加载自动提取并显示当前日期。
能够选择1960-2060之间的任一年份。
选择某一日期后,应有特殊显示，比如添加方框。
在窗体下方显示所选择的日期及其星期。
单击确定后显示所选日期。
单击退出关闭窗体。
根据所选年份和月份，确定显示天数的个数，比如：2000年2月只有29天。
3.创新要求
在基本要求达到后，可以参考普通日历，进行创新设计，创新方向提示如下：
★ 日期和星期对齐。
★ 在日历提示一些固定节假日。
三、设计方法和基本原理
1.问题描述
程序界面见题图。
2.问题的解决方案
①设计程序界面
因为用的全是基本控件，界面设计没有什么难度，照样子拼就可以了，注意同类的按钮要使用控件数组。
②编写代码
代码包括事件处理过程和功能函数，还有必要的声明。变量声明部分声明本程序所需要的变量和数组，主要是日期变量。
事件处理包括下面的主要事件：
Form_Load()
作一些初始化的工作。主要是设定当前日期，在下拉列表框添加年份和月份。
Private Sub lblnumber_click(Index As Integer)
选择不同的日期。
cmdXXX_Click( )
显示选择结果。
其它功能的处理不再一一描述了
四、主要技术问题的描述
虽然界面有些复杂，但难点显然并不在于此。读懂并使用下面几个子过程和函数，那么这道题就很简单了：
Private Sub checkdate(month1 As Integer, year1 As Integer)//检测并设置当月天数
Dim i As Integer, value As Integer, date1 As String
For i = 28 To 32
date1 = (Str$(month1) + "/" + Str$(i) + "/" + Str$(year1))
If IsDate(date1) Then
value = i
Else
Call displaynumbers(value)
Exit Sub
End If
Next i
End Sub
Private Sub displaynumbers(number%)
Dim i%
For i% = 28 To 30
lblnumber(i%).Visible = False
Next i%
For i% = 28 To number% - 1
lblnumber(i%).Visible = True
Next i%
End Sub
Private Sub setdate()
Dim r As Integer, i As Integer
r = CInt(Format$(Now, "yyyy")) '年份
i = r - 1960
cboyear.ListIndex = i
r = CInt(Format$(Now, "mm")) '月份
cbomonth.ListIndex = (r - 1)
r = CInt(Format$(Now, "dd")) '日期
lblnumber(r - 1).BorderStyle = 1
selectedate = r
End Sub
Private Sub setday()
Dim month1 As Integer, year1 As Integer
month1 = determinemonth()
year1 = determineyear()
Call checkdate(month1, year1)
End Sub
五、参考资料
★ Visual Basic 程序设计教程 及 Visual Basic 实验教程
★ VB6.0程序员指南
★ VB6.0控件参考手册
★ 设计资料中的 “简易日历.ZIP”
★ MSDN中文版，课程设计网站上提供的其它资料。
六、设计部分的评分标准（本题难度为B级，综合时要乘系数0.9）
完成基本要求前6项(项目符号为“■”部分) 60
基本要求全部完成 80
创新要求完成一项 90
创新要求完成2项或以上 100
[注：最后得分是根据本部分得分(占最大比例)以及课程设计期间纪律、设计报告书、答辩情况综合得出)
××××设计报告
学院 班级 学号 姓名 成绩
一、设计思路
1.要达到的目的
正文（宋体5号字，单倍行距）
①×××××
②×××××
③×××××
④×××××
⑤×××××
2.关键问题的解决
正文（宋体5号字，单倍行距）
①×××××
②×××××
③×××××
④×××××
⑤×××××
二、模块之间的调用关系，或程序流程图
三、部分程序关键源代码及注释
正文（宋体5号字，单倍行距）
四、设计方案的完善及目前存在的问题
1．设计方案要完善的地方
正文（宋体5号字，单倍行距）
①×××××
②×××××
③×××××
2. 目前存在的问题
正文（宋体5号字，单倍行距）
①×××××
②×××××
③×××××
五、本次设计的收获及心得体会
正文（宋体5号字，单倍行距）
六、对该题目和VB设计的意见和建议
1. 对该题目的意见和建议
正文（宋体5号字，单倍行距）
2．对本次设计的意见和建议
正文（宋体5号字，单倍行距）
特别说明：一定要将模板中的xxxx替换为实际值，蓝色是格式要求，写报告时要删除。
