填空题判阅系统.doc

沈 阳 航 空 工 业 学 院 课程设计 学 号 2009040603043 班 级 姓 名 白阳 指导教师 刘学平 2011年 7 月 6 日沈阳航空工业学院 课程设计任务书 学院：机电学院 专业：车辆工程 班级学号：2009040603043 题目：填空题判阅系统 一、课程设计时间 2011年6月27—7月1号（第17周），共计1周。 二、课程设计内容 在Access 数据库“file26-填空题判阅系统.mdb”中存储几位考生C言语填空题的考卷（表stu-ans），库中也提供了这些题目的原题及其答案（表c-fill，有的题目有多种填法，则标准答案有多个，用＄符号间隔开来）。 三、课程设计要求 程序质量： 贯彻事件驱动的程序设计思想。 用户界面友好，功能明确，操作方便；可以加以其它功能或修饰。 代码应适当缩进，并给出必要的注释，以增强程序的可读性。 课程设计说明书： 课程结束后，上交课程设计说明书和源程序。课程设计说明书的内容参见提供的模板。 四、指导教师和学生签字 指导教师： 刘学平 学生签名： 白阳 成绩 六、教师评语 目 录 需求分析 4 设计分析 4 关键技术 6 总结 9 完整的源程序 10 参考文献 10 需求分析 基于程序需要访问数据库，因此要增加ADO和DataGrid控件，要求： ①将ADO控件与数据库链接，以便随时访问数据库。 ②Do While,For循环语句使题目循环出现。 ③用InStr函数搜寻答案。 ④用If条件语句半段题目是否正确。 设计分析 基本原理：建立程序设计与数据库的连接，使数据库题目循环出现并判阅。 总体设计： （3）详细设计： 关键技术 1整个程序界面的设计 2对Command的定义 程序段如下： Private Sub Command1_Click() Adodc2.Recordset.MovePrevious If Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveLast End Sub Private Sub Command2_Click() Adodc2.Recordset.MoveNext If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveFirst End Sub 3用For ,Do While语句使题目循环出现 程序段如下： Private Sub Command3_Click() For i = 0 To 4 Do While Text4(i).Text Text1.Text Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveFirst Loop 4用InStr函数和If条件语句判阅 程序段如下： If InStr(Text2(1), Text5(i)) 0 Then If Text5(i) Then e = e + 20 End If End If Next i Text6.Text = e End Sub 总结 这次课设我的题目是填空题判阅系统，通过这次课设让我了解了VB与数据库之间的联系，可以应用ADO技术使VB与数据库进行链接，还应用For , Do While ,If条件语句使整个程序运行起来。 在课设过程中，我遇到了重重困难，例如如何使数据库题目循环出现。通过老师的指点同学的帮助和自己查阅资料，我克服了困难，顺利的完成了任务。 同时我也了解了VB的出现是一场技术革命，它在生活中各个方面都能发挥巨大的作用，计算机的应用加快了人类发展的脚步，作为当代大学生学好VB对以后的生活有很大的帮助。因此，我们都应该认真对待这一科目。 完整的源程序 Private Sub Command1_Click() Adodc2.Recordset.MovePrevious If Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveLast End Sub Private Sub Command2_Click() Adodc2.