VB课程设-测绘C111 魏宏杰.docVIP

小闹钟设计报告 学院 土木工程学院 班级 测绘C111 学号117558 姓名 魏宏杰 成绩 一、设计思路 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设计的意见和建议 1. 对该题目的意见和建议 （1）界面可以更形象些 (2) 只能考察学生部分知识的运用 (3)代码应足够简便 2．对本次设计的意见和建议 意见 （1）真正动手实践时间 短 （2）只能考察学生部分知识的运用 建议 （1）划分小组，锻炼学生团结合作的意识与能力 （2）不要安排在考试月 小闹钟课程设计报告（VB） 编号：50 1 调用 调用 调用 调用 模块 模块 模块 模块 模块