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

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

ID:52166357

大小:637.00 KB

页数:34页

时间:2020-03-23

考试系统程序设计报告.doc_第1页
考试系统程序设计报告.doc_第2页
考试系统程序设计报告.doc_第3页
考试系统程序设计报告.doc_第4页
考试系统程序设计报告.doc_第5页
资源描述:

《考试系统程序设计报告.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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。