考试系统课程设计报告.docVIP

Visual Basic 课 程 设 计 报 告 所属课程名称：Visual Basic程序设计 课程设计题目：考试系统 课程设计难度：四星 课程设计时间：2012.2.27 ~ 3.23 学 号： 姓 名： 0 南京理工大学机械工程学院 二〇一二年三月 程序功能 （1）、运行程序时，首先显示主界面。单击“单选题”、“多选题”、“判断题”、“填空题”四个按钮之一，会出现不同题型的窗口。 （2）、单选题、多选题、判断题和填空题窗体上有前一题、下一题、查看成绩、退出四个按钮。用户看完题后作答，可在任意时刻点击查看成绩按钮，会出现对话框，显示此时答对题数。按退出按钮，返回主菜单。窗体上会显示已答题数和总题数。 （3）、单击前一题、后一题会切换题目，若已位于第一题和最后一题，会弹出对话框，给出提示信息。 课程设计的详细设计 功能描述及设计思路 本程序实现以下五部分功能：1、读取文件，获得题目；2、记录正确答案；3、记录用户答案；4、比对答案；5、得出成绩。分别实现各部分功能即可完成整个程序。 在窗体Load事件中获得题目和答案，在后续操作中记录用户答案，单击查询按钮后，比对答案，获得成绩。 不同按钮执行不同过程，实现不同功能。 程序调试过程 【困难1】读取数据库文件及逐条显示在窗体上。 【解决办法】通过查阅课本，编写课本给的样例程序，学习用OpenDatabase语句打开数据库，并用MoveNext和MovePrevious方法移动记录，逐条显示题目和答案。 【困难2】保存用户答案。 【解决办法】 通过向老师请教，用数组保存用户答案。通过多次调试，确定数组记录的位置，使之正确保存用户答案。 【困难3】比对答案和显示成绩。 【解决办法】 查阅上学期课本，复习数组的用法。在各窗体的Load事件中，用数组保存正确答案，单击查看成绩按钮，会比较用户答案和正确答案，若正确则成绩加1，得出成绩。 更上一层楼 样例程序在运行时，若退出该题型，答案会被清空。本程序中，用户可在做当前题未做完时退出去做其他题型，其答案会被保留，用户可在任意时刻后回到该题型继续做。 课程设计总结 （1）、程序不够简洁。由于事先没有进行细致规划，导致在编写时没有全局概念，可以重复使用的变量却多次定义，致使程序变量有点乱。 （2）、没有使用过程。单纯在事件中编写事件，不简洁。 （3）、功能上，不能在主菜单中反馈本次测验总成绩。 源程序代码（以单选题为例） （1）打开文件，获得题目 Set tiku = OpenDatabase(App.Path \tiku.mdb, False, True, ;pwd=tiku) 打开文件，加载到内存 Set recset = tiku.OpenRecordset(xz3) Dim a(0 To 2) As String n = n + 1 X = recset!question a(0) = recset!ans1 a(1) = recset!ans2 a(2) = recset!ans3 Label1.Caption = X Option1(0).Caption = (A) a(0) Option1(1).Caption = (B) a(1) Option1(2).Caption = (C) a(2) Label3.Caption = 第 n 题 Label4.Caption = (已做 m 题，共11题) （2）、记录用户答案 If Option1(0).Value Then ans1(n) = 100 If Option1(1).Value Then ans1(n) = 010 If Option1(2).Value Then ans1(n) = 001 （3）、比对答案获得成绩 Dim p As Integer Do While p = 10 比对答案 If tans1(p + 1) = ans1(p + 1) Then socer = socer + 1 p = p + 1 Loop MsgBox 共11题答对 socer 题, 64, 成绩查询 socer = 0 重置成绩 （4）、显示已做题答案 If ans1(n) = Then Op