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

. .. Visual basic课程设计报告 设计题目： 考试系统 设计等级： ???? 学 院：环境与生物工程学院 学 号： 912102270155 姓 名： 辛文力 指导老师： 冯 元 提交时间： 2013-4-19 目录 功能 课程设计的详细设计 测试程序的过程 课程设计总结 附件 功能 程序运行时，首先显示主界面如图。单击“单选题”.“多选题”.“判断题”和“填空题”四个按钮之一，程序会打开不同题型的窗口。 单选题窗口打开后显示如图窗体，窗口中显示了题目总数.当天题号.已做题目目数.题目内容和选择项。用户先做题目，再根据自己的判断选择“选择项”中的一个单选框然后使用“前一题”或“后一题”按钮切换到其它题目。同时可使用“查看成绩”，程序会显示本题型共做对多少题。 使用“前一题”或“后一题”按钮切换到其它题目时，若已位于第一题或最后一题，则利用消息框进行提示。 多选题，判断题和填空题使用方法与单选题类似。单击推出按钮可以返回主界面继续做其它类型的题目。 课程设计的详细设计 （以单选题为例说明，其他类似） Dim n As Integer, m As Integer, l(0 To 100) As Integer, e As Integer, q As Integer, ，jieshu As Integer Dim chioce(0 To 100) As String, answer(0 To 100) As String 保存答案，记录选项.n表示当前记录数，m表示总题目数,e表示题号，jieshu 表示已做题目数，chioce数组记录所有做出答案，answer数组表示所有对应题目的答案，l数组用于记录选项计算已做题目数 Private Sub Form_Load() ‘加载窗体 Dim l As Integer, it As Integer, f As String, g As String, h As String, i As String Dim op1 As Boolean, op2 As Boolean, op3 As Boolean Dim dbobject As DAO.Database Dim recset As DAO.Recordset Set db = OpenDatabase(tiku.mdb, True, True, ;pwd=tiu) Set recset = db.OpenRecordset(select*from xz3 ) recset.MoveLast ‘将最后一条记录作为当前记录 m = recset!qno ‘记录总题目数 sun2.Caption = m ‘显示总题目数 recset.MoveFirst ‘将第一条记录作为当前记录 f = recset!question 记录问题 g = recset!ans1 记录选项1 h = recset!ans2 记录选项2 i = recset!ans3 记录选项3 e = recset!qno 记录题号 Do While Not recset.EOF 记录所有答案 answer(it) = recset!ans it = it + 1 recset.MoveNext Loop Call wer(e, f, g, h, i)‘调用函数显示题目及题号，选项 Call rewdr(e, op1, op2, op3)‘调用函数显示已存档的答案 Option1.Value = op1 Option2.Value = op2 0ption3.Value = op3 End Sub Private Sub C11_Click() ‘返回前一题 Dim f As String, g As String, h As String, i As String Dim op1 As Boolean, op2 As Boolean, op3 As Boolean op