《VB语言及程序开发环境(“时钟日历”的制作)》教学设计

名师精编精品说课日期时间程序说课稿教材分析:本课选自海南出版社三环出版社出版的初中信息技术教材第一单元第2节。

本章要求学生能独立完成一个完整的vb程序的开始，是一个启蒙学习的过程，要让学生在反复实践中体会窗口、标签控件和命令按钮的功能和作用，让学生在实践中体会vb程序设计的过程并对程序设计有整体的把握，为以后的深入学习作准备。

学情分析：初三的学生已经具备一定的数学知识，有一定的逻辑、分析问题的能力，有一定的软件操作经验。

但未接触过程序设计，程序设计的内容相对比较抽象，不同学生在学习过程中在兴趣、学习能力上会有差异。

本节是vb学习的第二课，学生已经初步了解程序设计的作用，认识vb程序界面中的各部分的作用和使用方法。

◎教师演示讲解：【任务1】：启动VB程序，观察工作环境，在窗体中添加控件。

【任务2】：参考书本P8的“对象属性设置表”内容完成任务：窗体各对象属性的设置。

【任务小结】教师展示不同的设计界面让学生大胆创新，设置自己风格的界面。

总结窗体、标签和命令按钮的知识点。

◎教师演示讲解：【任务3】参考课本P81-13的“按钮代码窗口”设置事件代码。

【任务小结】“查询”按钮和“退出”对比操作，理解每条语句实现的功能。

掌握代码表写的规则。

◎教师引导学生探究：【任务4】调试与运行。

【任务5】保存文件。

【任务6】生成可执行文件。

【任务小结】：通过观察保存文件的位置和图标及扩展名来区分文件保存类型的不同之处。

教学反思：本节课是学生第一次亲手实践经历vb开发程序的全过程，经历分析问题、设计界面、设置对象属性、编写代码、调试运行、保存文件等环节，领悟程序设计过程。

由于是第一次接触程序设计，学生对代码的编写和作用难免有不理解的地方，这就要就教师把起点放低，以兴趣为主要导向，打好程序设计课程的基础。

《VB语言及程序开发环境（“时钟日历”的制作）》
四体验总结（四）可视化程序的开发环境
前面的学习使我们知道，要较快地学会运行调试VB程序，首先需要熟悉VB程序设计语言的开发环境。

VB程序设计语言的开发环境的界面如下图：
VB程序设计语言的开发环境中，控件工具箱、代码窗口、窗体设计器窗口、工程资源管理器窗口、属性窗口是一些常用的程序设计与调试工具，这些工具互相协调、互相补充，如果熟练、合理地使用会大大地减少应用程序的开发难度，提高工作效率。

五、拓
展作业在了解、熟悉了VB程序设计语言的开发环境以后，结合课本27页28页（一）VB定义的常用的基本数据类型
（二）常量与变量
（1）常量
Const 常量名As 类型 = 表达式
（2）变量说明
Dim 变量As 类型
（三）运算符、函数和表达式
（1）算术运算符有：
运算符号 + - * / ^ \ MOD
含义加号减号乘号除号乘方整除取余数字符串运算符有：&
VB中的字符串运算符是“&”，该运算符主要用于连接两个或更多的字符串，例如：“＂abcd＂&＂efg＂”连接后结果为＂abcdefg＂。

（2）函数
（3）表达式
表达式是指某个求值规则，它由运算符和配对的圆括号将变量、常量、函数等操作数以合理的形式连接起来的式子。

vb时钟设计课程设计一、课程目标知识目标：1. 学生能理解VB编程中时间相关的数据类型和函数。

2. 学生掌握使用Visual Basic设计一个简单时钟界面和实现时间显示功能的基本步骤。

3. 学生能够解释时钟程序中涉及的时间概念，如时、分、秒及它们之间的关系。

技能目标：1. 学生能够运用VB语言编写程序，实现实时时间显示功能。

2. 学生能够通过编程实践，培养解决问题的能力和逻辑思维能力。

3. 学生能够对程序进行调试和修改，提高程序优化和故障排查的能力。

情感态度价值观目标：1. 学生通过动手实践，培养对计算机编程的兴趣和热情。

2. 学生在团队协作中，学会相互沟通与协作，培养集体荣誉感。

3. 学生通过编程创作，体会科技改变生活的实际应用，激发创新精神。

分析课程性质、学生特点和教学要求：1. 课程性质：本课程为信息技术课程，结合Visual Basic编程，以实践操作为主。

2. 学生特点：六年级学生具备一定的计算机操作能力和逻辑思维能力，对编程有好奇心。

3. 教学要求：注重培养学生的实际操作能力，激发学生的学习兴趣，提高学生的团队合作意识。

1. 独立编写一个具有基本时间显示功能的VB时钟程序。

2. 在编程过程中，运用所学知识解决实际问题，提高逻辑思维能力。

3. 积极参与团队合作，与同伴共同完成时钟设计任务，提高沟通协作能力。

二、教学内容1. VB编程基础：- 数据类型：整数、字符串、日期时间。

- 控件使用：标签、定时器。

- 常用函数：Time、Timer。

2. 时钟设计原理：- 时间概念：时、分、秒及其进制转换。

- 时钟界面设计：布局、颜色、字体。

3. 编程实现时钟：- 时钟程序结构：初始化、时间更新、界面显示。

- 代码编写：获取系统时间、时间格式化、定时刷新。

4. 教学大纲安排：- 第一课时：回顾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自带的数据库引擎，设计一个简单的数据库表用于存储提醒事项的信息，包括日期、时间、事项内容等字段。

目录摘要............................................................... 错误!未定义书签。

第1章概述. (1)1.1 引言 (1)1.2 设计平台 (1)第2章开发工具简介 (2)2.1 VisualBasic6.0简介 (2)2.2 运用的控件和主要对象 (2)第3章设计实现 (6)3.1画时钟表盘上的所有直线元素 (6)3.2修改时针的形状 (6)3.3计时器的Interval(间距)属性设置 (6)3.4软件代码 (7)第4章总结 (16)4.1 结论 (16)4.2 心得体会 (16)参考文献 (17)第1章概述1.1 引言visual basic继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。

随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了用户更加方便的，更加有舒适的心情，设计出一个比较舒心的时钟显示。

1.2 设计平台VB全称Visual Basic,它是以Basic语言作为其基本语言的一种可视化编程工具。

它继承了basic语言易学易用的特点，特别适合于初学者学习windows系统编程。

随着21世纪信息社会的到来,计算机在人们的工作和生活中的深入,要求我们越来越多地与计算机打交道,为了使用户更加地使用舒心。

通过这学期来Visual Basic的学习，我初步掌握了Visual Basic语言的最基本的知识，于是在张老师的指导下动手用Visual Basic 编写了这款时钟软件。

第2章开发工具简介2.1 VisualBasic6.0简介Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。

它简单易学、效率高，且功能强大。

在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。

课程设计报告课程名称： Visual Basic 设计题目： 时间日期的使用 班 级： 组 员： 指导教师：X X X X 职业技术教育中心校二○○○○○○七～二○○○○○○八 年度 第二学期目录题目分析……………………………………………………………………（ 1 ）窗体设计……………………………………………………………………（ 1 ）属性代码实现………………………………………………………………（ 3 ）常见问题分析………………………………………………………………（ 4 ）心得体会……………………………………………………………………（ 4 ）参考资料……………………………………………………………………（ 5 ）课程设计报告：题目分析：一、题目分析题目要求：在“日期时间”窗体上添加5个命令按钮，功能如下单击“星期查询”按钮，切换到“星期查询”窗体；该窗体中的5个标签分别用于显示提示信息、说明信息或输出结果。

从3个组合框中选择相应的年份、月份和日期后，单击“确定”按钮可在相应的标签中显示日期和对应的星期。

单击“返回”按钮返回到启动窗体。

单击“倒计时”按钮，切换到“倒计时”窗体。

在该窗体的3个文本框中分别输入小时、分钟和秒，单击“计时”按钮对输入时间进行倒计时处理，剩余时间显示在标签中，单击“停止”按钮停止计时。

单击“返回”按钮回到“日期时间”窗体。

单击“秒表”按钮，切换到“秒表”窗体。

单击“开始”按钮，以秒表的形式进行计时；单击“返回”按钮返回到启动窗动。

单击“闹钟”按钮，切换到“闹钟”窗体。

进入“闹钟”窗体后，在相应文本框中输入时分秒时间，一旦系统时间达到设定的闹钟时间，闹铃持续响，直至关闭（闹钟无效）。

单击“返回”按钮返回到“日期时间”窗体。

单击“退出”按钮结束程序运行：二、窗体设计窗体设计：总窗口属性列表对象属性 属性值 命令按钮1Caption 星期查询 名称Command1 命令按钮2Caption 倒计时 名称Command2 命令按钮3Caption 秒表 名称Command3 命令按钮4Caption 闹钟 名称Command4 命令命令按钮按钮5Caption 退出 名称Command5对象 属性 属性值 标签1 caption 设计倒计设计倒计时时 标签2 caption 倒计时 标签3 caption 秒 标签4 caption 剩余时间 文本框1Text1空对象 属性 属性值 标签1 caption 年份 标签2 caption 月份 标签3 caption 日期 组合框1 名称 Combo1 组合框2 名称 Combo2 组合框3 名称 Combo3 文本框 名称 空 Command1 名称 确定 Command2名称返回文本框2 Text2 空Command1 名称计时Command2 名称停止Command3 名称返回对象属性属性值Lable1 Caption 空Command1 名称开始Command2 名称停止Command3 名称返回对象属性属性值Lable1Caption 当前时间Lable2 空Lable3 输入设定时间Lable4 时Lable5 分Lable6 秒Text1 空Text2 空Text3 空Check1 时钟有效Command1 重新设定Command2 返回三、属性代码实现总窗口Private Sub Command1_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Command2_Click()Form1.HideForm3.ShowEnd SubPrivate Sub Command3_Click()Form1.HideForm4.ShowEnd SubPrivate Sub Command4_Click()Form1.HideForm5.ShowEnd SubPrivate Sub Command5_Click()EndEnd Sub星期查询Dim year1 As Integer, month1 As Integer, day1 As Integer Dim yes_no As BooleanPrivate Sub Combo1_Click()If Combo1.ListIndex = -1 ThenCombo1.ListIndex = 0End Ifyear1 = Val(Combo1.Text)Combo2.Text = "月份"Combo3.Text = "日期"yes_no = (((year1 Mod 4 = 0) And (year1 Mod 100 <> 0)) Or (year1 Mod 400 = 0))End SubPrivate Sub Combo2_click()Dim daynum As Integer, i As IntegerIf Combo2.ListIndex = -1 ThenCombo2.ListIndex = 0End Ifmonth1 = Val(Combo2.Text)Combo3.Text = "日期"Combo3.ClearSelect Case month1Case 1, 3, 5, 7, 8, 10, 12daynum = 31Case 4, 6, 9, 11daynum = 30Case 2If yes_no = True Thendaynum = 29Elsedaynum = 28End IfEnd SelectFor i = 1 To daynum Step 1Combo3.AddItem Str(i)Next iEnd SubPrivate Sub Combo3_click()If Combo3.ListIndex = -1 ThenCombo3.ListIndex = 0End Ifday1 = Val(Combo3.Text)End SubPrivate Sub Command1_Click()Dim data1 As String, wkday As Stringdata1 = Str(year1) & "/" & Str(month1) & "/" & Str(day1) Label4.Caption = Str(year1) & "年" & Str(month1) & "月" & Str(day1) & "日是" & "星期" & Str(Weekday(data1) - 1)Private Sub Command2_Click() Form2.HideForm1.ShowEnd SubPrivate Sub Form_Load()Dim i As IntegerFor i = 1975 To 2050 Step 1 Combo1.AddItem Str(i)Next iFor i = 1 To 12 Step 1Combo2.AddItem Str(i)If Combo1.ListIndex = -1 Then year1 = Year(Now)End IfIf Combo2.ListIndex = -1 Then month1 = Month(Now) End IfIf Combo3.ListIndex = -1 Then day1 = Month(Now)Next iEnd Sub计时器Private Sub Command1_Click()If Val(Text1.Text) < 1 ThenMsgBox "输入的时间有误", 16, "提示"Text1.Text = ""Text1.SetFocusElseLabel6.Caption = " " & Text1.TextTimer1.Enabled = TrueEnd IfCommand1.Enabled = FalseCommand2.Enabled = TrueEnd SubPrivate Sub Command2_Click()Timer1.Enabled = FalseText1.Text = ""Text1.SetFocusLabel6.Caption = ""Command1.Enabled = True Command2.Enabled = FalseEnd SubPrivate Sub Command3_Click() Form3.HideForm1.ShowEnd SubPrivate Sub Timer1_Timer()Dim time1 As Integertime1 = Val(Label6.Caption)Label6.Caption = Str(time1 - 1)If time1 = 1 Then时间到！！", 64, "提示"MsgBox "时间到Text1.Text = ""Text1.SetFocusLabel6.Caption = ""Timer1.Enabled = FalseEnd IfEnd Sub秒表Dim time1 As DatePrivate Sub Command1_Click() Timer1.Enabled = Truetime1 = "00:00:00" Command1.Enabled = False Command2.Enabled = True End SubPrivate Sub Command2_Click() Timer1.Enabled = False Command1.Enabled = True Command2.Enabled = False End SubPrivate Sub Command3_Click() Form4.HideForm1.ShowEnd SubPrivate Sub Timer1_Timer() time1 = DateAdd("s", 1, time1)Label1.Caption = time1End Sub.闹钟Private Sub Check1_Click()If Check1.Value = 1 ThenTimer1.Enabled = True ElseTimer2.Enabled = FalseTimer1.Enabled = False End IfEnd SubPrivate Sub Command1_Click() Timer1.Enabled = FalseTimer2.Enabled = FalseText1.Text = ""Text2.Text = ""Text3.Text = ""Text1.SetFocusCheck1.Value = 0End SubPrivate Sub Command2_Click()Form5.HideForm1.ShowEnd SubPrivate Sub Form_Load()Text1.Text = ""Text2.Text = ""Text3.Text = ""Check1.Value = 0End SubPrivate Sub Timer1_Timer()If Time = Text1.Text & ":" & Text2.Text & ":" & Text3.Text Then Timer2.Enabled = TrueEnd IfEnd SubPrivate Sub Timer2_Timer()BeepEnd SubPrivate Sub Timer3_Timer()Label5.Caption = TimeEnd Sub四、常见问题分析1、应用计时器时，有时没有修改Interval属性，导致计时器不工作。

简易日历设计报告学院班级学号姓名成绩一、设计思路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时钟模拟课程设计一、课程目标知识目标：1. 学生理解时钟的基本原理和VBA中计时器的使用方法；2. 学生掌握运用VBA编程实现简单的时钟模拟程序；3. 学生了解时间格式处理及界面设计的基本方法。

技能目标：1. 学生能够运用VBA编程语言，独立编写一个具有基本计时功能的时钟模拟程序；2. 学生能够通过调试程序，解决编程过程中遇到的问题；3. 学生能够设计并优化用户界面，提高用户体验。

情感态度价值观目标：1. 培养学生对编程的兴趣和热情，激发学生主动探索的精神；2. 培养学生面对问题的耐心和毅力，提高解决问题的自信心；3. 培养学生的团队协作意识，让学生在合作中共同进步。

本课程针对的是有一定编程基础的学生，通过vb时钟模拟课程设计，使学生将所学知识应用于实际项目中，提高学生的编程能力和实践操作能力。

同时，注重培养学生的情感态度价值观，激发学生的学习兴趣，为学生的未来发展奠定基础。

在教学过程中，注重学生个体差异，关注学生实际操作，将课程目标分解为具体可衡量的学习成果，以便进行有效的教学设计和评估。

二、教学内容1. 时钟原理讲解：介绍时钟的基本构成和计时原理，使学生理解时间计算的基础知识。

2. VBA编程基础：回顾VBA编程的基本语法，强调变量定义、数据类型、运算符、控制结构等知识点。

3. 计时器使用：讲解VBA中Timer控件的使用方法，包括计时器事件处理、时间更新等。

- 教材章节：第五章第三节“VBA中的控件使用”4. 编写时钟模拟程序：指导学生运用所学知识，编写具有基本计时功能的时钟模拟程序。

- 教材章节：第四章“VBA编程基础”及第五章“VBA控件应用”5. 时间格式处理：介绍时间格式处理方法，使学生能够将时间以直观的方式显示在界面上。

- 教材章节：第六章第二节“字符串函数和时间日期函数”6. 界面设计：讲解简单界面设计原则，引导学生优化时钟模拟程序的用户界面。

- 教材章节：第五章第二节“用户界面设计”在教学过程中，按照以上教学内容安排和进度，结合教材相关章节，确保学生系统、科学地掌握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
运行的结果是：。