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