VB简易日历课程设计(任务书如下)

作者&投稿:冻建 (若有异议请与网页底部的电邮联系)
Option Explicit
Dim xuanzedate%

Private Sub Form_Load()

xuanzedate% = CInt(Format$(Now, "dd"))

Call tianchongbn01

Call tianchongbn02

Call setdate

Dim r%, week$
r% = Weekday(Format$(Now, "general date"))
If r% = 1 Then
week$ = "星期日"
ElseIf r% = 2 Then
week = "星期一"
ElseIf r% = 3 Then
week = "星期二"
ElseIf r% = 4 Then
week = "星期三"
ElseIf r% = 5 Then
week = "星期四"
ElseIf r% = 6 Then
week = "星期五"
Else
week = "星期六"
End If
bn002.Text = week$
bn001.Text = Format$(Now, "yyyy" & "年" & "m" & "月" & "d" & "日")
End Sub

Private Sub checkdate(month%, year%)
Dim i%, value%, datebn$

For i% = 28 To 32
datebn$ = (Str$(month%) + "/" + Str$(i%) + "/" + Str$(year%))
If IsDate(datebn$) Then
value% = i%
Else
Call visualnumber(value%)
Exit Sub
End If
Next i%
End Sub
Private Sub setdate()

Dim r%, i%
r% = CInt(Format$(Now, "yyyy"))
i% = r% - 1960
bn02.ListIndex = i%

r% = CInt(Format$(Now, "mm"))
bn01.ListIndex = (r% - 1)

r% = CInt(Format$(Now, "dd"))
bndate(r% - 1).BorderStyle = 1
xuanzedate% = r%

End Sub
Private Sub tianchongbn01()
bn01.AddItem "一月"
bn01.AddItem "二月"
bn01.AddItem "三月"
bn01.AddItem "四月"
bn01.AddItem "五月"
bn01.AddItem "六月"
bn01.AddItem "七月"
bn01.AddItem "八月"
bn01.AddItem "九月"
bn01.AddItem "十月"
bn01.AddItem "十一月"
bn01.AddItem "十二月"
End Sub

Private Sub tianchongbn02()
Dim i%
For i% = 1960 To 2060
bn02.AddItem Str$(i%)
Next i%

End Sub
Private Sub bn01_click()
Call setday
Call bndate_click(xuanzedate% - 1)
End Sub
Private Sub bn02_Click()
Static abc%
If Not abc Then
abc = True
Exit Sub
End If
Call bn01_click

End Sub
Private Sub setday()
Dim month%, year%
month% = setmonth()
year% = setyear()
Call checkdate(month%, year%)
End Sub

Private Sub bndate_click(Index As Integer)
Dim i%
On Error GoTo err1
For i% = 0 To 30
bndate(i%).BorderStyle = 0
Next i%
If bndate(Index).BorderStyle = 1 Then
bndate(Index).BorderStyle = 0
Else
bndate(Index).BorderStyle = 1
End If
xuanzedate% = Index + 1
Dim month%, day%, year%, datebn$
day% = xuanzedate%
month% = bn01.ListIndex + 1
year% = bn02.ListIndex + 1960
datebn$ = (Str$(month%) + "/" + Str$(day%) + "/" + Str$(year%))
If bn01.Text = "九月" And bndate(11).BorderStyle = 1 Then
MsgBox "老师好,欢迎您检阅我的设计。 题目是简易日历。今天是08年6月23号。我是材料````。", , "欢迎:>"
ElseIf bn01.Text = "九月" And bndate(12).BorderStyle = 1 Then
MsgBox "老师好,欢迎您检阅我的设计。 题目是简易日历。今天是08年6月23号。我是材料````。", , "欢迎:>"
End If
Dim r%
Dim week$
r% = Weekday(datebn$)
If r% = 1 Then
week$ = "星期日"
ElseIf r% = 2 Then
week = "星期一"
ElseIf r% = 3 Then
week = "星期二"
ElseIf r% = 4 Then
week = "星期三"
ElseIf r% = 5 Then
week = "星期四"
ElseIf r% = 6 Then
week = "星期五"
Else
week = "星期六"
End If
bn002.Text = week$
bn001.Text = Format$(datebn$, "long date")
err1:
If Err = 0 Then Exit Sub
If Err = 13 Then
xuanzedate% = xuanzedate% - 1
Exit Sub
End If

End Sub
Private Function setmonth%()
Dim i%
i% = bn01.ListIndex
setmonth% = i% + 1
End Function

Private Function setyear%()
Dim i%
i% = bn02.ListIndex
If i% = -1 Then Exit Function
setyear% = CInt(Trim(bn02.List(i%)))
End Function

Private Sub visualnumber(number%)
Dim i%
For i% = 28 To 30
bndate(i%).Visible = False
Next i%
For i% = 28 To number% - 1
bndate(i%).Visible = True
Next i%

End Sub

Private Sub bnyes_Click()
Dim month%, day%, year%, datebn$
day% = xuanzedate%
month% = bn01.ListIndex + 1
year% = bn02.ListIndex + 1960
datebn$ = (Str$(month%) + "/" + Str$(day%) + "/" + Str$(year%))
datebn$ = Format$(datebn$, "general date")
MsgBox Format$(datebn$, "long date"), , "您选定的日期为:"
If bn01.Text = "十月" And bndate(0).BorderStyle = 1 Then
MsgBox "国庆节快乐", , "节日/纪念日"
ElseIf bn01.Text = "二月" And bndate(13).BorderStyle = 1 Then
MsgBox "情人节快乐:>", , "节日/纪念日"
ElseIf bn01.Text = "一月" And bndate(0).BorderStyle = 1 Then
MsgBox "元旦快乐,又一年了,加油啊", , "节日/纪念日"
ElseIf bn01.Text = "三月" And bndate(11).BorderStyle = 1 Then
MsgBox "植树节了,心系环保", , "节日/纪念日"
ElseIf bn01.Text = "四月" And bndate(0).BorderStyle = 1 Then
MsgBox "愚人节的小傻瓜们,今天被骗了没?:-P", , "节日/纪念日"
ElseIf bn01.Text = "六月" And bndate(0).BorderStyle = 1 Then
MsgBox "儿童节快乐,有颗童心会更加快乐!", , "节日/纪念日"
ElseIf bn01.Text = "八月" And bndate(0).BorderStyle = 1 Then
MsgBox "建军节快乐", , "节日/纪念日"
ElseIf bn01.Text = "十二月" And bndate(24).BorderStyle = 1 Then
MsgBox "圣诞节快乐", , "节日/纪念日"
ElseIf bn01.Text = "三月" And bndate(7).BorderStyle = 1 Then
MsgBox "妇女节快乐", , "节日/纪念日"
End If
End Sub
Private Sub bnexit_Click()
Unload Me
End Sub

可以制作 ···需要的话百度hi我··· 已经完成··联系我好了··

C语言课程设计日历具体的做法。~

可以参考类似题目
http://wenku.baidu.com/view/7c566a48c850ad02de8041fc.html

要求 200行的程序。简易日历 要求:1.要达到的目的
①窗体加载自动提取并显示当前日期
②能选择1960-2060之间的任一年份
③单击确定后显示所选日期
④节日等在选定日期后以MsgBox形式提示
⑤单击退出关闭窗体
⑥根据所选年份和月份,确定显示天数的个数
⑦年月日及下方的显示只可读不可输入
⑧选择某一日期后凹陷显示并在窗体下方显示所选择的日期及其星期
再给出程序内容一些关键步骤是怎么来的(老师会问 答辩) 尽量详细点,会加分

java万年历课程设计
答:thisMonth.set(Calendar.DAY_OF_MONTH,1);int firstIndex=thisMonth.get(Calendar.DAY_OF_WEEK)-1;int maxIndex=thisMonth.getActualMaximum(Calendar.DAY_OF_MONTH);for(int i=0;i<maxIndex;i++){ days[firstIndex+i]=String.valueOf(i+1);} > <html> <head> <title>简易万年历</title>...

c语言课程设计月历表
答:include<Windows.h> include<stdio.h> define DAYS 366 struct Calendar{ //日历结构体 int moon;int day;int week;};void CreateCAL(struct Calendar * year) //创建2008年日历 { int i,j,d=0,week_t=2; //i:循环月份 j:循环日期 week_t:星期循环(2881.1.1星期2)puts("...

本科生课程设计任务书,设计报告 怎么写
答:6. 程序清单 给出自己设计模块的程序清单。7. 参考资料 说明自己在课程设计中参考的文献资料,参考资料的格式如下:[1] 作者1,作者2 . 图书名称 . 出版社 . 出版社地点 . 出版年. 参考页码范围 装订次序:1.课程设计说明书封面 2.任务书封面 3.任务书 4. 设计说明书正文 ...

c++课程设计万年历模仿现实生活中的挂历.
答:// 新建一个MFC对话框程序,加个静态文本控件 , 在MFC初始化时加上SetTimer(1, 100, NULL);// 然后通过向导添加WM_TIME响应函数,把下面的加进去.::SendMessageA(GetDlgItem(IDC_STATIC)->GetSafeHwnd(), LB_RESETCONTENT, 0, 0);CTime tm;tm = CTime::GetCurrentTime();CString str = tm...

课程设计任务书是干什么的
答:要做课程设计了。做什么,条件是什么,完成的成果要求是什么。这些写成一个文档,称“课程设计任务书”。它告诉接受任务的,要做什么,条件是什么,要完成的成果是什么等信息。

C语言课程设计报告要求
答:2. 通过C语言课程设计,使学生了解高级程序设计语言的结构,掌握基本的程序设计过程和技巧,掌握基本的分析问题和利用计算机求解问题的能力,具备初步的高级语言程序设计能力。为后续各门计算机课程的学习和毕业设计打下坚实基础。 四、设计思想及过程 【一】由于万年历具有以下特点: 1。平年365天(52周+1天),闰年366天(...

小业主的设计任务书怎么写?
答:您好,感谢您对ikuku的支持,以下是我们整理的关于设计任务书的相关内容,希望对您有帮助。 设计任务书在项目建设环节占有举足轻重的地位,它作为建筑设计过程中的主要依据,一方面显示出设计深度,即业主对工程项目设计提出的要求,其最终成果既要达到的设计理念,另外一方面又展示出规划报建必须达到的条件(如果需要报建)。 一...

急求:课程设计题目:万年历,用C语言编写的。
答:printf(" C语言简单万年历\n"); //打印标题 XunHuan: //循环标号(可以通过goto跳转到这里)printf("请输入年份<0000~9999>: "); //提示输入年份(0~9999)scanf("%d",&Year); //把输入的年份赋值给变量Year printf("请输入月份<0~12>: "); //提示输入月份(1~12)scanf("...

毕业设计任务书该怎么弄?具体要求又有哪些呢呢?
答:5、进会出现要填的任务书内容,要填的有毕业设计的背景,毕业设计的内容和要求,主要参考文献和进度计划。填完后就可以提交了,这样毕业设计书申报就算完成了,只需等着后期审核了。6、关于任务书所要填写的也有一些具体要求,列举如下:a、毕业设计的背景(不少于500字b、毕业设计的内容(不少于300字)...

施工组织课程设计任务书
答:施工组织课程设计任务书一、设计目的:通过本次课程设计,将《建筑工程施工组织与管理》中的基础知识与工程实际紧密结合,熟悉工程项目施工组织设计的内容和方法,掌握工程项目进度计... 施工组织课程设计任务书一、设计目的:通过本次课程设计,将《建筑工程施工组织与管理》中的基础知识与工程实际紧密结合,熟悉工程项目施工...