VB程序设计基础教学日历(印刷技术)
2023修正版vb日历程序设计[1]
![2023修正版vb日历程序设计[1]](https://img.taocdn.com/s3/m/daaaf375c950ad02de80d4d8d15abe23482f031a.png)
vb日历程序设计VB日历程序设计介绍在计算机程序设计中，日历程序是一种常见的应用程序。
使用日历程序，用户可以查看特定年份和月份的日期，并可以添加、编辑和删除事件。
本文将介绍如何使用Visual Basic（VB）来设计和实现一个简单的日历程序。
准备工作在开始编写日历程序之前，确保你已经安装了Visual Basic开发环境，并且具备一定的VB编程基础。
如果你对VB还不熟悉，可以参考一些VB编程入门教程来提升自己的编程技能。
主要功能我们的日历程序将具备以下主要功能：1. 显示当前年份和月份2. 显示当前月份的日期3. 允许用户切换到上一个月、下一个月4. 允许用户添加、编辑和删除事件5. 允许用户查看特定日期的事件列表编码实现获取当前年份和月份在VB中，我们可以使用`DateAndTime.Now.Year`和`DateAndTime.Now.Month`来获取当前的年份和月份。
可以创建一个标签控件来显示这些数据：vbLabel1.Text = DateAndTime.Now.Year.ToString()Label2.Text = DateAndTime.Now.Month.ToString()显示当前月份的日期我们可以使用一个表格控件（DataGridView）来显示当前月份的日期。
可以按照以下步骤来实现：1. 在窗体上添加一个表格控件并命名为`DataGridView1`。
2. 设置表格控件的列数为7，表示一周有七天。
3. 设置表格控件的行数为6，表示一个月最多有六周。
4. 使用循环语句将日期填充到表格控件的单元格中。
以下是实现上述步骤的示例代码：vbDim currentMonth As Integer = DateAndTime.Now.MonthDim currentYear As Integer = DateAndTime.Now.YearDim daysInMonth As Integer =Date.DaysInMonth(currentYear, currentMonth)Dim firstDayOfMonth As New Date(currentYear, currentMonth, 1)Dim startColumn As Integer = firstDayOfMonth.DayOfWeek Dim currentDay As Integer = 1For row As Integer = 0 To 5For col As Integer = 0 To 6DataGridView1.Rows(row).Cells(col).Value = currentDaycurrentDay += 1If currentDay > daysInMonth ThenExit ForEnd IfNextNext切换月份我们可以使用两个按钮控件来实现切换到上一个月和下一个月的功能。
《VB语言及程序开发环境(“时钟日历”制作)》教学设计
《V B语言及程序开发环境（“时钟日历”的制作）》教课方案课题教学目标教课内容剖析VB语言及程序开发环境1、知识与技术：1）掌握VB定义的常用的基本数据种类，常量与变量的定义方法。
2）掌握Date函数和Time函数的用法。
（3）熟习VB程序设计语言的开发环境，能调试简单的VB程序。
2、方法与过程：本波及到基础知识许多，因此要一个一个问题解决，从显示时间和日期的程序下手，从中剖析VB程序一般包含的四部分，基本数据种类、常量与变量，运算符、函数和表达式，并且联合练习来增强对这些新知识的稳固。
经过介绍VB程序的开发环境中的菜单、常用工具和常用窗口等，再经过上机操作运转一个程序，让学生更简单上手。
3、感情态度和价值观:这一节是学习VB程序的重要的入门课，讲课时要注意联合学生的思路，逐一问题解决，不行一挥而就。
教课要点：（1）VB常用的的基本数据种类，Date函数和Time函数的用法。
（2）VB程序的开发环境教课难点：把本节的内容加以运用教课本节采纳了“察看—阅读—练习—操作—总结”等教课活动展开教课方法课时1课时教课教师活动学生活动环节情形引【教师】以下是一个“显示时间和日期的计时器控件”的程序，请你注入意察看程序的构成构造及其功能，并思虑以下的问题：讲提出问题：一【教师】（1）程序有多少行，每一行的作用是什么学生察看授问（2）假如按语句的作用划分，这个程序包含几个部分新并思虑题课Private subcommand1_click()‘‘定义名为command1_click()的事件过程=P rivateSubForm_Load()=DateEndSubPrivateSubTimer1_Timer()TimeEndSub研究：【学生】观察上述程序，我们简单看到：程序共有代码6行，每一行都是VB的一个语句，VB的程序就是由这样的一组语句构成。
每一个语句都是依据必定的规则书写的。
探【教师】总结上述剖析，我们能够获得VB程序的一般包含以下部分：究（1）数据种类说明部分（2）数据的输入部分（3）数据的办理部分（4）数据的输出部分（一）任务一三【教师】要修业生设计所要求程序的程序界面，参照课本30页的图2-1，学生经过新VB程序设计语言的开发环境。
vb课程设计报告简易日历
简易日历设计报告学院机械学院班级学号姓名成绩一、设计思路1.要达到的目的①窗体加载自动提取并显示当前日期②能选择1960-2060之间的任一年份③选择某一日期后凹陷显示并在窗体下方显示所选择的日期及其星期④单击确定后显示所选日期⑤可以添加节日和记事⑥单击退出关闭窗体⑦根据所选年份和月份，确定显示天数的个数⑧年月日及下方的显示只可读不可输入2.关键问题的解决①根据所选年份和月份，确定显示天数的个数②可以添加节日和记事③选择某一日期后凹陷显示并在窗体下方显示所选择的日期及其星期——修改Label的BorderStyle属性④年月日及下方的显示只可读不可输入——修改ComboBox的BorderStyle属性和TextBox的Locked属性二、模块之间的调用关系，或程序流程图三、部分程序关键源代码及注释Private Sub setdate()Dim r As Integer, i As Integerr = CInt(Format$(Now, "yyyy")) '位数字显示年份i = r - 1960cboyear.ListIndex = ir = CInt(Format$(Now, "mm")) '显示月份，01-12月cbomonth.ListIndex = (r - 1)r = CInt(Format(Now, "dd"))lblnumber(r - 1).BorderStyle = 1selectdate% = rEnd SubPrivate Sub setday()Dim month1 As Integer, year1 As Integerminth1 = determinemonth()year1 = determineyear()Call checkdate(month1, year1)End SubPrivate Function determinemonth()Dim i As Integeri = cbomonth.ListIndexdeterminemonth = i + 1End FunctionPrivate Function determineyear()Dim i As Integeri = cboyear.ListIndexIf i = -1 Then Exit Functiondetermineyear = CInt(Trim(cboyear.ListIndex))End FunctionPrivate Sub checkdate(month1%, year1%) ‘检测并设置当月天数Dim i As Integer, value As Integer, date1 As StringFor i = 28 To 32date1 = (Str$(month1) + "/" + Str(i) + "/" + Str(year1)) If IsDate(date1) Thenvalue = iCall displaynumbers(value)ElseExit SubEnd IfNext iEnd SubPrivate Sub displaynumbers(number%)Dim i As IntegerFor i = 28 To 30lblnumber(i).Visible = FalseNext iFor i = 28 To number% - 1lblnumber(i).Visible = TrueNext iEnd Sub四、设计方案的完善及目前存在的问题1．设计方案要完善的地方①未能做到创新中的日期和星期对齐的要求，惭愧②可以加进农历③可以有些随季节变换的图片2. 目前存在的问题①无日期星期的对齐②虽然有添加节日的菜单，但是不知怎样保存这些信息五、本次设计的收获及心得体会以后要多学习，有时候有好的想法，设计时因为对vb知识了解的不够而无从下手，通过这次设计，了解了很多课堂上没学到的知识，加深了对VB的认识，了解了VB程序设计的总体方式，有了更宏观的认识，很想用他来编些好玩的有用的程序，让自己的思维用VB实现六、对该题目和VB设计的意见和建议1. 对该题目的意见和建议对我这样的VB新手来说，是个很好的锻炼，题目有简单的地方也有比较难的，让自己有更多的学习机会，有吸引力的题目激起了自己对VB的兴趣，挺好的。
vb日历程序设计
vb日历程序设计摘要本文档旨在介绍如何设计和实现一个基于VB的日历程序。
通过该程序，用户可以方便地查看和管理日期信息，包括显示当前日期、查看不同月份的日历，并可以添加提醒事项等功能。
介绍1·1 目标本项目的目标是设计一个功能完善、用户友好的日历程序，能够满足用户对日期管理的基本需求。
1·2 背景在现代社会中，时间管理变得越来越重要。
一个好用的日历程序能够帮助用户更好地管理时间，并提高工作和生活的效率。
系统要求2·1 硬件要求●安装了VB环境的计算机●适当的处理器和内存空间2·2 软件要求●安装了VB开发环境（如VB6·0）●操作系统：Windows XP或更高版本界面设计3·1 主界面●日历显示区域：用于显示当前月份的日期信息●月份切换按钮：用户可以通过按钮切换到上一个月或下一个月●添加提醒事项按钮：用户可以该按钮添加新的提醒事项●设置按钮：用户可以通过该按钮进行日历的相关设置，如修改字体颜色、设置默认提醒时间等3·2 提醒事项界面●提醒事项列表：显示用户添加的提醒事项●添加新的提醒事项按钮：用户可以该按钮添加新的提醒事项●删除提醒事项按钮：用户可以该按钮删除选中的提醒事项功能设计4·1 显示当前日期通过VB的相关函数获取当前日期，并在日历上标识出来。
4·2 切换月份用户可以通过上一个月或下一个月按钮切换到相应的月份。
4·3 添加提醒事项用户可以添加提醒事项按钮，在弹出的窗口中填写提醒事项的相关信息，并将其保存。
4·4 查看提醒事项用户可以日历上的某一天，查看该天是否有提醒事项，并显示在提醒事项界面中。
4·5 删除提醒事项用户可以在提醒事项界面中选中某个提醒事项，并删除按钮进行删除操作。
系统实现5·1 数据库设计使用VB自带的数据库引擎，设计一个简单的数据库表用于存储提醒事项的信息，包括日期、时间、事项内容等字段。
简易日历课程设计报告(VB)
简易日历设计报告学院班级学号姓名成绩一、设计思路1.要达到的目的①能够窗体加载自动提取并显示当前日期。
②能够选择1960-2060之间的任一年份。
③选择某一日期后,添加边框。
④在窗体下方显示所选择的日期及其星期。
⑤单击确定或“Enter”后显示所选日期。
⑥单击“退出”或单击“Esc”键退出关闭窗。
⑦根据所选年份和月份，确定显示天数的个数。
⑧日期和星期对齐。
⑨在日历提示一些固定节假日。
⑩判断生肖，并用图片的形式显示出来。
2.关键问题的解决①利用数组向下拉列表框中填充项目，调整标签显示数据。
②利用时间函数取得当前日期和星期，并显示在文本框中，根据日期调整列表框种显示的项目。
③选择某一标签后，改变其边框，其他标签无边框。
④单击项目时从下拉列表框中取得与月份和年份对应的值储存在变量中，单击标签取得日期数值，按下确定。
按钮将其合并为日期，利用函数计算星期，调整格式显示在文本框中。
⑤选择月份和年份后，于28，29，30，31组合并调整为日期格式，与日期型匹配，看是否存在。
⑥根据某天是否存在更改标签隐藏属性。
⑦根据星期数移动数组调整标签caption属性，使星期与日期对齐。
⑧将节日与其提示信息存在文本中，当当前日期与文件中相同时，用消息提示框显示提示信息。
⑨利用图片加载，实现生肖判断。
二、模块之间的调用关系，或程序流程图Form loadCommand2Fillcbomonth三、部分程序关键源代码及注释Dim day1 As IntegerPrivate Sub Cbomonth_Click()Labeldate.Caption = ""Labeljr.Caption = ""Labelweek = ""注释：仅有月份的变化不足以计算出星期，故使labelweek为空Call setdayCall lblnumber_Click(selectedate - 1)End SubPrivate Sub Cboyear_Click()Labeldate.Caption = ""Labelweek.Caption = ""Labeljr.Caption = ""注释：仅有年份的变化不足以计算出星期，故使labelweek为空Call Cbomonth_ClickEnd SubPrivate Sub Command1_Click()Dim month1 As Integer, year1 As Integer, date1 As Stringmonth1 = cbomonth.ListIndex + 1year1 = Cboyear.ListIndex + 1960day1 = CInt(Format(Now, "dd"))date1 = (Str(month1) + "/" + Str(day1) + "/" + Str(year1))yanzheng = Str(year1) + "年" + Str$(month1) + "月" + Str(day1) + "日"If yanzheng <> Labeldate.Caption ThenLabeldate.Caption = ""Labeljr.Caption = ""End IfDim r As Integerr = Weekday(date1)Call makesurecaption(r)注释：makesurecaption是确定星期的用户定义函数（250行）Dim selected As BooleanDim q As Integer注释：selected表示是否选择具体日期，若没有则通过massagebox通知selected = FalseLabeljr.Caption = ""For i = 0 To 30If lblnumber(i).BorderStyle = 1 Thenday1 = i + 1selected = TrueEnd IfNext i注释：风格框If Not (selected) ThenMsgBox ("请选择具体日期！")GoTo line1注释：line1在本模块的末尾，即不继续执行本模块，令用户选择具体日期End Ifmonth1 = cbomonth.ListIndex + 1year1 = Cboyear.ListIndex + 1960q = year1 Mod 12If q = 4 ThenImage1.Picture = LoadPicture(App.Path & "图片\生肖图片\鼠.jpg")ElseIf q = 5 ThenImage1.Picture = LoadPicture(App.Path & "\图片\生肖图片/牛.jpg")ElseIf q = 6 ThenImage1.Picture = LoadPicture(App.Path & "\图片\生肖图片\虎.jpg")ElseIf q = 7 ThenImage1.Picture = LoadPicture(App.Path & "\图片\生肖图片\兔.jpg")ElseIf q = 8 ThenImage1.Picture = LoadPicture(App.Path & "\图片\生肖图片\龙.jpg")ElseIf q = 9 ThenImage1.Picture = LoadPicture(App.Path & "\图片\生肖图片\蛇.jpg")ElseIf q = 10 ThenImage1.Picture = LoadPicture(App.Path & "\图片\生肖图片\马.jpg")ElseIf q = 11 ThenImage1.Picture = LoadPicture(App.Path & "\图片\生肖图片\羊.jpg")ElseIf q = 0 ThenImage1.Picture = LoadPicture(App.Path & "\图片\生肖图片\猴.jpg")ElseIf q = 1 ThenImage1.Picture = LoadPicture(App.Path & "\图片\生肖图片\鸡.jpg")ElseIf q = 2 ThenImage1.Picture = LoadPicture(App.Path & "\图片\生肖图片\狗.jpg")ElseIf q = 3 ThenImage1.Picture = LoadPicture(App.Path & "\图片\生肖图片\猪.jpg") End IfLabeldate = year1 & "年" & month1 & "月" & day1 & "日"If month1 = 1 And day1 = 1 ThenLabeljr.Caption = "新年"ElseIf month1 = 5 And day1 = 4 ThenLabeljr.Caption = "青年节"ElseIf month1 = 6 And day1 = 1 ThenLabeljr.Caption = "儿童节"ElseIf month1 = 7 And day1 = 1 ThenLabeljr.Caption = "建党节"ElseIf month1 = 8 And day1 = 1 ThenLabeljr.Caption = "建军节"ElseIf month1 = 10 And day1 = 1 ThenLabeljr.Caption = "国庆节"ElseIf month1 = 5 And day1 = 1 ThenLabeljr.Caption = "劳动节"ElseIf month1 = 9 And day1 = 10 ThenLabeljr.Caption = "教师节"ElseIf month1 = 12 And day1 = 25 ThenLabeljr.Caption = "圣诞节"ElseIf month1 = 8 And day1 = 12 ThenLabeljr.Caption = "我的生日"ElseIf month1 = 3 And day1 = 12 ThenLabeljr.Caption = "植树节"ElseIf month1 = 4 And day1 = 1 ThenLabeljr.Caption = "愚人节"ElseLabeljr.Caption = "开心就好"End If注释：确定所选日期对应的节日line1:End SubPrivate Sub Command2_Click()End注释：退出End SubPrivate Sub Form_Load()Call fillcbomonth注释：以上为初始化月份列表Call fillcboyear注释：初始化年份列表selectedate = CInt(Format(Now, "dd"))Call setdateDim r As Integer, caption1 As StringCall makesurecaption(r)Dim y As Integer, m As Integer, d As Integer y = CInt(Format(Now, "yyyy"))m = CInt(Format(Now, "mm"))d = CInt(Format(Now, "dd")) Labeldate = y & "年" & m & "月" & d & "日" Labeljr = "现在日期"注释：显示现在日期End SubPrivate Sub fillcbomonth()cbomonth.AddItem "一月"cbomonth.AddItem "二月"cbomonth.AddItem "三月"cbomonth.AddItem "四月"cbomonth.AddItem "五月"cbomonth.AddItem "六月"cbomonth.AddItem "七月"cbomonth.AddItem "八月"cbomonth.AddItem "九月"cbomonth.AddItem "十月"cbomonth.AddItem "十一月"cbomonth.AddItem "十二月"End SubPrivate Sub fillcboyear()注释：初始化年份列表Dim i As IntegerFor i = 1960 To 2060Cboyear.AddItem Str(i)Next iEnd SubPrivate Sub lblnumber_Click(Index As Integer) Labeldate.Caption = ""Labelweek.Caption = ""Labeljr.Caption = ""Dim i As IntegerOn Error GoTo err1For i = 0 To 30lblnumber(i).BorderStyle = 0Next iIf lblnumber(Index).BorderStyle = 1 Then lblnumber(Index).BorderStyle = 0Elselblnumber(Index).BorderStyle = 1End Ifselectedate = Index + 1注释：风格框day1 = selectedateerr1:If Err = 0 Then Exit SubIf Err = 13 Thenselectedate = selectedate - 1Exit SubEnd IfEnd SubPrivate Sub setdate()Dim r As Integer, i As Integerr = CInt(Format(Now, "yyyy"))i = r - 1960Cboyear.ListIndex = ir = CInt(Format(Now, "mm"))cbomonth.ListIndex = (r - 1)r = CInt(Format(Now, "dd"))lblnumber(r - 1).BorderStyle = 1selectedate = rEnd SubPrivate Sub setday()注释：确定年份、月份Dim month1 As Integer, year1 As Integermonth1 = determinemonth()year1 = determineyear()Call checkdate(month1, year1)End SubPrivate Sub checkdate(month1, year1)Dim i As Integer, value As Integer, date1 As StringFor i = 28 To 32date1 = (Str(month1) + "/" + Str(i) + "/" + Str(year1)) If IsDate(date1) Thenvalue = iElseCall displaynumbers(value)Exit SubEnd IfNext iEnd SubPrivate Sub displaynumbers(number)注释：确定是否闰月Dim i As IntegerFor i = 28 To 30lblnumber(i).Visible = FalseNext iFor i = 28 To number - 1lblnumber(i).Visible = TrueNext iEnd SubPrivate Function determinemonth()Dim i As Integeri = cbomonth.ListIndexdeterminemonth = i + 1End FunctionPrivate Function determineyear()Dim i As Integeri = Cboyear.ListIndexdetermineyear = CInt(Trim(Cboyear.List(i)))End FunctionPrivate Sub makesurecaption(r)注释：makesurecaption是确定星期的用户定义函数注释：r范围1-7，分别对应星期一至星期日Dim caption1 As StringIf r = 1 Thencaption1 = "星期日"ElseIf r = 2 Thencaption1 = "星期一"ElseIf r = 3 Thencaption1 = "星期二"ElseIf r = 4 Thencaption1 = "星期三"ElseIf r = 5 Thencaption1 = "星期四"ElseIf r = 6 Thencaption1 = "星期五"Elsecaption1 = "星期六"End IfLabelweek = caption1End Sub四、设计方案的完善及目前存在的问题1．设计方案要完善的地方①若操作失误应对用户有提示。
《VB语言及程序开发环境(“时钟日历”的制作)》教学设计
《VB语言及程序开发环境（“时钟日历”的制作）》
VB程序设计语言的开发环境中，控件工具箱、代码窗口、窗体设计器窗口、工程资源管理器窗口、属性窗口是一些常用的程序设计与调试工具，这些工具互相协调、互相补充，如果熟练、合理地使用会大大地减少应用程序的开发难度，提高工作效率。
五、拓展作业在了解、熟悉了VB程序设计语言的开发环境以后，结合课本27页28页（一）VB定义的常用的基本数据类型
（二）常量与变量
（1）常量
Const 常量名 As 类型= 表达式
（2）变量说明
Dim 变量 As 类型
（三）运算符、函数和表达式
（1）算术运算符有：
运算符号+-*/^\MOD
含义加号减号乘号除号乘方整除取余数
字符串运算符有：&
VB中的字符串运算符是“&”，该运算符主要用于连接两个或更多的字符串，例如：“＂abcd＂&＂efg＂”连接后结果为＂abcdefg＂。
（2）函数
（3）表达式
表达式是指某个求值规则，它由运算符和配对的圆括号将变量、常量、函数等操作数以合理的形式连接起来的式子。
试试编者按写下面程序：
Private Sub Command _ Click()
Const PI as Single=
Dim r as Single, s as Single
r=Inputbox(“r=”, “输入半径”)
s= PI*r*r
Print “圆的面积s=”;s
End Sub
运行的结果是：。
vb日历程序设计
vb日历程序设计VB日历程序设计简介VB日历程序是一款用Visual Basic语言编写的日历应用程序。
它可以显示当前的日期和时间，并提供简单的日历功能，如查看不同月份和年份的日历，添加和删除日程活动等。
本文档将介绍如何设计和实现这个VB日历程序。
功能需求本日历程序具备以下主要功能需求：1. 显示当前日期和时间2. 显示当月的日历布局3. 查看不同月份的日历4. 查看不同年份的日历5. 添加新的日程活动6. 删除已有的日程活动界面设计VB日历程序的界面设计应简洁明了，便于用户使用和操作。
主要界面应包含以下元素：1. 当前日期和时间的显示区域2. 当月的日历布局3. 年份和月份的选择控件4. 添加和删除日程活动的按钮或菜单项目结构为了保持代码的简洁和可维护性，我们可以采用一种合理的项目结构组织代码。
以下是一个可能的VB日历程序的项目结构：.├── Forms 窗体表单│├── MnForm.frm 主窗体│├── CalendarForm.frm 日历窗体│└── EventForm.frm 日程活动窗体├── Modules 模块│├── CalendarModule.bas 日历相关功能模块│└── EventModule.bas 日程活动相关功能模块├── Resources 资源文件│├── Icons 图标文件夹││├── Add.png 添加图标││└── Delete.png 删除图标│└──├── CalendarProgram.sln 解决方案文件├── README.md 项目说明文档└──技术实现VB日历程序的实现主要基于Visual Basic语言和相关框架/库。
以下是实现该程序所需的技术和方法：1. 使用VB的Windows Forms来创建和设计界面窗体2. 使用控件来展示日期、时间和日历布局3. 使用事件处理来实现按钮的操作4. 使用文件操作来保存和读取日程活动数据5. 使用相关的算法和逻辑来计算和处理日期、月份和年份本文档介绍了VB日历程序的设计和实现。
VB日历-课程设计报告
课程设计题目电子台历所选题目：电子台历难度：两星级**知识点：（1）非矩形窗口；（2）动态数组；（3）配置文件的读写；（4）图片的应用；（5）控件数组；（6）弹出式菜单的使用；（7）公共对话框控件；（8）多模块程序设计；（9）日期函数的使用前言“台历”是人们办公、学习的好帮手，人们把它置于案头用来查看日期、星期并可以方便地记事。
本题目便编制一个“电子台历”程序，实现台历的一般功能。
一、功能1、启动程序，显示一个圆角矩形窗口，并自动显示当前月的月历。
星期从星期一开始排列，星期六和星期天以不同的颜色显示。
2、鼠标单击可以查看不同的年份和月份（左键增大，右键减小）。
单击某个日期会在窗口右半边显示是否有记事。
双击左下角的当前日期，可以使台历立即显示当月月历。
3、在窗体的空白处右击，可以弹出一个菜单，可以对显示的日历日期的颜色、字体，窗体的背影图片加以修改。
所有颜色、字体和背影图片的设置会自动保存，下次启动时会自动应用上一次的设置。
4、从快捷菜单中选择“添加节日”或“添加记事”，可以分别实现对节日和记事的添加。
在弹出的对话框中，能同时添加多个节日或记事。
二、课程设计的详细设计1、程序的界面要求是圆角矩形窗口，该功能的实现用到了SetWindowRgn函数。
SetWindowRgn函数是属于API函数，在使用时要先声明。
其代码如下：Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 AsLong, _ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, _ByVal X3 As Long, ByVal Y3 As Long) As LongPrivate Declare Function SetWindowRgn Lib "user32" (ByVal hWnd AsLong, _ByVal hRgn As Long, ByVal bRedraw As Boolean) As LonghRgn = CreateRoundRectRgn(0, 0, 570, 400, 80, 100) '创建圆角矩形区域Call SetWindowRgn(Me.hWnd, hRgn, True)2、年份、月份、日期和记事的显示依靠标签的Caption属性。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
九
04--17
3,4
(2)
Ａ
8.Visual Basic语句（6.1~6.4）
赋值语句，注释语句，停止程序执行语句，随机数生成器初始化语句，单行IF语句，块IF语句，多分支Select Case语句，For…Next循环语句，Do…Loop循环语句，While…Wend循环语句，多循环语句。
实训：数组的应用
基本要求：⑴数组的定义；⑵数组的基本操作；⑶控件数组的使用。
7.5.2练习题一、二
课程名称VB程序设计基础班级印刷技术1、2班学时48
周次
星期(学时)
方式
主要内容
课外作业
十三
05-22
9,10
( 2 )
Ｃ
实验七数组的应用
验证课本第七章上面的例题
十四
05-26
３,４
( 2 )
Ａ
12.过程（8.1~8.3）
5.5.2练习题一、二
课程名称VB程序设计基础班级印刷技术1、2班学时48
周次
星期(学时)
方式
主要内容
课外作业
七
04-10
9,10
(2)
Ｃ
实验三常用标准控件
验证课本第五章上面的例题
八
04-14
3,4
(2)
Ａ
7.Visual Basic语法基础（5.1~5.4）
数据类型，常量和变量，算术运算符，字符串运算符，关系运算符，逻辑运算符，数学函数，字符串函数，日时间函数，转换函数。
6.4.2练习题一
十一
05-05
3,4
(2)
Ａ
10.Visual Basic语句（6.1~6.4）
赋值语句，注释语句，停止程序执行语句，随机数生成器初始化语句，单行IF语句，块IF语句，多分支Select Case语句，For…Next循环语句，Do…Loop循环语句，While…Wend循环语句，多循环语句。
十五
06-05
9,10
( 2 )
Ｃ
期末作业设计
十六
06-09
3,4
( 2 )
Ｃ
期末作业设计
十七
06-16
3,4
( 2 )
Ｃ
期末作业设计
十七
06-19
9,10
( 2 )
考查科目结课
通用过程的定义，通用过程的调用，用Exit Sub退出子过程，函数的定义，函数的调用，用Exit Function语句退出函数，窗体模块、标准模块、类模块，局部变量，模块级变量，全局变量，变量的生存期。
8.4.2练习题一
十五
06-02
3,4
( 2 )
Ｃ
实验八过程与过程调试
验证课本第八章上面的例题
8.4.2练习题二
2.3.2练习题一、二
三
03-13
9,10
(2)
C
实验一窗体文件、工程文件的建立、保存与打开（一）
验证课本第二章上面的例题：［例题2-1］、［例题2-2］、［例题2-3］、［例题2-4］、［例题2-5］
四
03-17
3,4
(2)
Ａ
3.窗体（3.1 ~ 3.3）
窗体创建，窗体属性，窗体事件，窗体方法，运行窗体，将控件加入窗体，多窗体和MDI窗体。
Visual Basic的发展，Visual Basic 6.0的特点，Visual Basic 6.0的启动和退出，Visual Basic 6.0功能窗口，帮助功能。
1.4.2练习题一、二
三
03-10
3、4
( 2)
A
2.程序设计基础（2.1 ~ 2.3）
对象的概念，对象的常用属性，程序设计的特点，Visual Basic程序设计的基本操作。
十一
05-08
9,10
(2)
Ｃ
实验五顺序结构和选择结构
验证课本第六章上面的例题
十二
05-12
3,4
(2)
Ｃ
实验六循环结构
验证课本第六章上面的例题
十三
05-19
3,4
(2)
Ａ
11.数组（7.1~7.5）
数组的概念，数组的声明，数组的上界和下界，数组元素的引用，数组初始化函数Array,动态数组和控件数组。
总学时
本期学时
讲课
实践
48
48
24
24
方式
A.讲课√B.实验C.上机√
D.实践E.习题课F.其他
吉马印刷职业技术学院
教学日历
200７~200８学年第二学期
主讲教师黄建阳辅导
课程VB程序设计基础班级印刷技术1、2班
周次
日期(学时)
方式
主要内容
课外作业
二
03-03
3、4
( 2)
A
1.Visual Basic集成开发环境（1.1 ~1.4）
6.4.2练习题一
九
04-21
9,10
(2)
C
实验四常量、变量、函数、表达式的应用
验证课本第六章上面的例题
十
04-28
3,4
(2)
Ａ
9.Visual Basic语句（6.1~6.4）
赋值语句，注释语句，停止程序执行语句，随机数生成器初始化语句，单行IF语句，块IF语句，多分支Select Case语句，For…Next循环语句，Do…Loop循环语句，While…Wend循环语句，多循环语句。
3.3.2练习题一、二
五
03-24
3,4
(2)
A
4.常用标准控件（4.1~4.6）
文本框和标签控件，命令按钮，选择控件和框架，列表框和组合框，图形控件，滚动条和计时器。
4.7.2练习题一、二
五
03-27
9,10
(2)
C
实验二窗体文件、工程文件的建立、保存与打开（二）
验证课本第三、四章上面的例题；
4.7.2练习题三
六
03-31
3,4
(2)
Ａ
5.常用标准控件（4.1~4.6）
文本框和标签控件，命令按钮，选择控件和框架，列表框和组合框，图形控件，滚动条和计时器。
七
04-07
4
(2)
Ａ
6.Visual Basic语法基础（5.1~5.4）
数据类型，常量和变量，算术运算符，字符串运算符，关系运算符，逻辑运算符，数学函数，字符串函数，日时间函数，转换函数。