vb小闹钟设计报告.docVIP

小闹钟设计报告 学院 材料学院 班级 功能111 学号111990 姓名 张源峰 成绩 一、设计思路 1.要达到的目的 培养学生综合利用语言进行程序设计的能力，主要是进行创新设计。 三、部分程序关键源代码及注释 1 Private Sub Check1_Click() B = Check1.Value 是否每天提醒 End Sub 2 Private Sub Command1_Click() For I = 0 To 50 If Save(I, 0) = Then Save(I, 0) = Text1.Text Text2.Text 为数组P(i,0)赋值为 日期 提醒时间 样式 Save(I, 1) = Text3.Text Chr(13) Text4.Text 为数组P(i,1)赋值为 主题 回车 内容 样式 End If Next End Sub 3 Private Sub Timer1_Timer() 每秒钟执行一次 If B Then 如果每天提醒 For I = 0 To 50 If Save(I, 0) Then 如果提醒记录不为空 If Time = TimeValue(Save(I, 0)) Then MsgBox Save(I, 1) 如果现在时间等于P(i,0)存储的时间，则弹出消息框“主题 回车 内容”,timevalue函数将P(i,0)文本转化成时间值 Else Exit For 如果提醒记录为空则退出循环 End If Next Else For I = 0 To 50 If Save(I, 0) Then If CDate(Save(I, 0)) = Now Then MsgBox Save(I, 1) 将P(i,0)强制转化成日期格式，如果等于现在日期，则弹出消息框 Else Exit For End If Next End If End Sub 4. Private Sub Command1_Click() For I = 0 To 50 If Save(I, 0) = Then Save(I, 0) = Text1.Text Text2.Text 为数组P(i,0)赋值为 日期 提醒时间 样式 Save(I, 1) = Text3.Text Chr(13) Text4.Text 为数组P(i,1)赋值为 主题 回车 内容 样式 End If Next End Sub 5 Private Sub Command2_Click() Dim I As Integer 循环引用变量 For I = 3 To 4 Controls(Text I).Text = 利用控件对象集合引用控件名称 Next I End Sub 四、设计方案的完善及目前存在的问题 1．设计方案要完善的地方 没能添加声音 创新内容需完善 代码不够简便 窗体的外形上还可以进一步美化 还可以做得更加实用 2. 目前存在的问题 创新部分内容运行存在问题 代码可以做得更加细致 五、本次设计的收获及心得体会 真正学到了一些有关vb设计的知识， 比如：timer控件的使用等 对以前的一些知识也有了加深 对期末vb的复习也是有益处的 能够更灵活的使用vb的知识 六、对该题目和VB设计的意见和建议 1. 对该题目的意见和建议 （1）界面可以更形象些 (2) 只能考察学生部分知识的运用 (3)代码应足够简便 （4）在创新方面：提醒时可以加一些动画，使提醒能够更有趣些 2．对本次设计的意见和建议 意见 （1）真正动手实践时间 短 （2）只能考察学生部分知识的运用 建议 （1）划分小组，锻炼学生团结合作的意识与能力 （2）不要安排在考试月 （3）可以适当的增加点难度，可以将题目综合一下 小闹钟课程设计报告（VB） 编号：50 1 调用 调用 调用 调用 模块 模块 模块 模块 模块