资源描述：
《考试系统程序设计报告.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。
1、Visualbasic课程设计报告设计题目：考试系统设计等级：««««学院：环境与生物工程学院学号：912102270155姓名：辛文力指导老师：冯元提交时间：2013-4-19目录(一)功能(二)课程设计的详细设计(三)测试程序的过程(四)课程设计总结(五)附件一、功能a)程序运行时，首先显示主界面如图。单击“单选题”.“多选题”.“判断题”和“填空题”四个按钮之一，程序会打开不同题型的窗口。b)单选题窗口打开后显示如图窗体，窗口中显示了题目总数.当天题号.已做题目目数.题目内容和选择项。用户先做题目，再根据自己的
2、判断选择“选择项”中的一个单选框然后使用“前一题”或“后一题”按钮切换到其它题目。同时可使用“查看成绩”，程序会显示本题型共做对多少题。a)使用“前一题”或“后一题”按钮切换到其它题目时，若已位于第一题或最后一题，则利用消息框进行提示。b)多选题，判断题和填空题使用方法与单选题类似。单击推出按钮可以返回主界面继续做其它类型的题目。一、课程设计的详细设计（以单选题为例说明，其他类似）DimnAsInteger,mAsInteger,l(0To100)AsInteger,eAsInteger,qAsInteger,，ji
3、eshuAsIntegerDimchioce(0To100)AsString,answer(0To100)AsString'保存答案，记录选项.n表示当前记录数，m表示总题目数,e表示题号，jieshu表示已做题目数，chioce数组记录所有做出答案，answer数组表示所有对应题目的答案，l数组用于记录选项计算已做题目数ØPrivateSubForm_Load()‘加载窗体DimlAsInteger,itAsInteger,fAsString,gAsString,hAsString,iAsStringDimop1A
4、sBoolean,op2AsBoolean,op3AsBooleanDimdbobjectAsDAO.DatabaseDimrecsetAsDAO.RecordsetSetdb=OpenDatabase("tiku.mdb",True,True,";pwd=tiu")Setrecset=db.OpenRecordset("select*fromxz3")recset.MoveLast‘将最后一条记录作为当前记录m=recset!qno‘记录总题目数sun2.Caption=m‘显示总题目数recset.MoveFir
5、st‘将第一条记录作为当前记录f=recset!question'记录问题g=recset!ans1'记录选项1h=recset!ans2'记录选项2i=recset!ans3'记录选项3e=recset!qno'记录题号DoWhileNotrecset.EOF'记录所有答案answer(it)=recset!ansit=it+1recset.MoveNextLoopCallwer(e,f,g,h,i)‘调用函数显示题目及题号，选项Callrewdr(e,op1,op2,op3)‘调用函数显示已存档的答案Option
6、1.Value=op1Option2.Value=op20ption3.Value=op3EndSubØPrivateSubC11_Click()‘返回前一题DimfAsString,gAsString,hAsString,iAsStringDimop1AsBoolean,op2AsBoolean,op3AsBooleanop1=Option1.Valueop2=Option2.Valueop3=option3.ValueCallwdr(e,op1,op2,op3)‘记录上一题的答案Callwbr(e,op1,op2
7、,op3)‘判断已做题目，显示已做题目数DimdbobjectAsDAO.DatabaseDimrecsetAsDAO.Recordset‘定义数据库连接Setdb=OpenDatabase("tiku.mdb",True,True,";pwd=tiku")Setrecset=db.OpenRecordset("select*fromxz3")‘打开数据库，读取记录数据n=n-1recset.MovenIfrecset.BOFThen‘判断是否已到达首条记录，能否继续读取前一条记录S=MsgBox("已是第一题！",
8、vbOKOnly+vbInformation,"考试系统")‘如果已到达首记录则弹出消息框提示，并显示第一条记录recset.MoveFirstf=recset!question'记录问题g=recset!ans1'记录选项1h=recset!ans2'记录选项2i=recset!ans3'记录选项3e=recset!qno'记录题号n=0Ca
