在线考试系统论文论文

1、WORD格式可编辑目录第1章系统分析 31.1开发背景 31.2系统需求分析 31.3开发环境 4第2章系统设计 52.1系统架构 52.2系统功能模块 62.3系统数据库设计 8第3章系统实现 113.1管理员主页面 113.2添加课程 193.3考试界面 20第4章系统测试 23第5章结束语 24参考文献 25专业知识整理分享摘要：本文主要研究了题库管理系统的设计与开发，研究该课题的主要目的是便于 学生进行测试、复习知识，学生可以登录此系统进行答题，实现考、测一体化， 提高学校的教学质量和效率。系统主要用 VS2005以及SQL2005来实现。关键字：在线考试系统题库Sql2005第1章系

2、统分析1.1开发背景随着互联网的发展、广泛普及以及校园网的发展，计算机考试已成为一种趋 势，运用计算机考试一方面可以节省人力物力，另一方面也给师生带来了方便， 所以设计出一款界面友好型、经济实用型的软件已经迫在眉睫、刻不容缓。现代高等教育中，网络的运用是提高学校教学效果和教学效率、提高科研和管 理水平的必要手段。目前的一个发展趋势是采用大规模试题库的计算机网络考试 模式，随着计算机网络在生产生活、科技教育中的普及，传统的考试出卷、答卷 方式以及学绩管理正发生着巨大的变革，因此，如何使考试过程变得方便、高效、 快捷、公正，是现代教育的一个重要课题。当前国际上许多考试认证，例如GRECISCO其出

3、题、答卷以及评分都是在计算机上完成的。无纸化的考试形式有着其 科学、及时、准确、公平等优点，具有传统考试形式无法替代和比拟的优势，一 方面可以防止考生心存侥幸，投机取巧；另一方面它保密性高，考试时间灵活，提 高了学校的教学水平。本文设计的是一套基于微软 SQL server2005数据库的网络软件系统.1.2系统需求分析1. 功能需求系统应提供用户登录识别，对试题进行增、删、改、查询功能，自动生成 试题，自动判卷功能等。2. 性能需求系统反应时间应在2s内，主存容量应该为256MB磁盘容量最少应为80GB在安全性方面应该防止SQL注入等。3. 可靠性可用性需求在考试期间不能出现系统崩溃情况，当

4、遇到的断电等突发情况，应该有一 定的恢复措施，在一个月内在任何一台计算机上该系统不可用的时间不能超过 2%4. 出错处理需求当插入的数据出现是系统应该给一个友好的提示，比如弹出一个对话框进 行提示等1.3开发环境数据库是数据管理的最新技术，是计算机科学的重要分支【2】。今天，信息资源已成为各个部门的重要财富和资源。十年来，数据库管理系统已从专用的应用 程序包发展成为通用系统软件。由于数据库具有数据的结构化、可控冗余度、较 高的程序与数据独立性、易于扩充、易于编制应用程序等优点，因此，作为信息 系统核心和和基础的数据库技术得到了越来越广泛的应用，越来越多的新的应用 领域采用数据库技术来存储和处理

5、信息资源，较大的信息系统都是建立在数据库 设计之上的。由于用到的数据表格多，学生基本信息的变动较大，我们选用SQL Server作为数据库开发，而不用 Access,主要是因为Access存放的记录，在实际运用中不 适合此系统；而SQLServer是一种常用的关系数据库，能存放和读取大量的数据， 管理众多并发的用户，使用方便快捷，故选用SQL Server数据库。用VB语言进行编码。VB编程语言是微软在.NET计划中重要的开发语言，它 具有语法简单，功能强大，快速应用，语言自由，强大的 Web服务器控件，支持 跨平台，与XML相融合等。因此选择 VB编程语言。第2章系统设计2.1系统架构整个系

6、统分为三个部分，管理员、学生和主界面。由于每个用户的权限不同，所以用户进入系统应该进行身份验证。根据不同 的身份权限进入不同的操作界面，进行不同的操作，浏览不同的页面。学生进入考试系统后，能进行考试，以及查看自己的考分。对于每个考试者 来说，试卷的试题和题量都应是相同的，并且为了保证考试的公平性，每个考生 只限制抽取一次题。考试者选择答案提交后，由计算机自动判卷，得到成绩后立 即显示出来。考试完毕后，用户应该退出系统。对于管理员来说，可以根据需要往数据库录入试题，还能对题库进行增、删、 改、查、等操作。本系统是以 Windows XP系统为操作平台，在.NET2005环境下编程实现。系统ER图

7、：学 号所属科目内容内容所属科目判断简答所属科目答案填空1N内容考试11N试卷信息所属科目生成11选项选择管理员管理N内容1管理N分数题数姓 名性 别密 码密 码用 户 名题编号题编号题编号题编号图2-1系统E-R图学生N管理试题信息Dlr名称题编号2.2系统功能模块本题库管理系统分为用户管理模块、学生管理模块、题库管理模块、试卷生 成管理模块、考试查询模块、考试页面管理模块六个模块。图2-2系统模块图学生用例图：个人信息管理图2-3学生用例图管理员用例图:查询试题只可查看自己的信 息，无法修 改和注册图2-4管理员用例图2.3系统数据库设计综合以上分析，要实现上面的所有功能模块，本题库系统共

8、有8个数据表,分别是：选择题信息表、判断题信息表、填空题信息表、问答题信息表、试题科 目表、管理员信息表、试卷信息表和试卷内容表。表2-1管理员信息表（admin）列名含义数据类型长度缺省值允许空admind用户名Varchar100无否admin_pwd密码Varchar100无否表2-2试题科目表(Sub)列名含义数据类型长度缺省值允许空QuestionSub试题科目nvarchar50无否表2-3选择题信息表(SingleSel)列名含义数据类型长度缺省值允许空QuestionID试题编号char20无否Question试题内容ntext16无否列名含义数据类型长度缺省值允许空Choic

9、e_A选项Anvarchar50无否Choice_B选项Bnvarchar50无否Choice_C选项Cnvarchar50无否Choice_D选项Dnvarchar50无否Answer正确答案char10无否QuestionSub所属科目nvarchar50无否QuestionTime录入时间nvarchar50无否QuestionType试题类型nvarchar50无否表2-4判断题信息表(RightOrWrong)列名含义数据类型长度缺省值允许空QuestionID试题编号char20无否Question试题内容ntext16无否Answer正确答案char10无否QuestionSub

10、所属科目nvarchar50无否QuestionTime录入时间nvarchar50无否QuestionType试题类型nvarchar50无否表2-5填空题信息表(Filling)列名含义数据类型长度缺省值允许空QuestionID试题编号char20无否Question试题内容ntext16无否Answer正确答案nvarchar50无否QuestionSub所属科目nvarchar50无否QuestionTime录入时间nvarchar50无否QuestionType试题类型nvarchar50无否表2-6问答题信息表(EssayQuestion)列名含义数据类型长度缺省值允许空Ques

11、tionID试题编号char20无否Question试题内容ntext16无否Answer正确答案ntext16无否QuestionSub所属科目nvarchar50无否QuestionTime录入时间nvarchar50无否QuestionType试题类型nvarchar50无否表2-7试卷信息表(test1)列名含义数据类型长度缺省值允许空test_number试卷编号char20无否test_name试卷名称nvarchar100无否test_sub试卷科目nvarchar100无否test_score试卷分值float8无否xzQuantity选择题数量int4无是xzScore选择题

12、分值float8无是pdQuantity判断题数量int4无是pdScore判断题分值float8无是tkQuantity填空题数量int4无是tkScore填空题分值float8无是wdQuantity问答题数量int4无是wdScore问答题分值float8无是表2-8试卷内容表(QuestionPaper)列名含义数据类型长度缺省值允许空test_number试卷编号char20无否PaperSerial试卷中的题号char20无是QuestionID试题编号char20无否QuestionType试题类型varchar50无否Score试题分值float8无否第3章系统实现3.1管理员

13、主页面管理员页面包括用户登录Login.aspx页面.考试自动选题系统用户名：q密翳：确认1 至置图3-1学生主界面对于用户名用RequiredFieldValidator 控件【4】来判断其不能为空，对于判断 登录用户是否合法，用If (dr.Read() 来判断。Dim user name, passwordAs Stringuser name = TexUserName.Text.ToStri ng().Trim()password = TexPassword.Text.ToStri ng().Trim()Dim conn As NewOleDbConnection( Provider=

14、SQLOLEDB.1;Password=sa;PersistSecurity In fo=True;User ID=sa;I nitial Catalog=ExamTest;Data Source=.)Dim cmd As NewOleDbComma nd(select * from admin where admin_id= & user name & and admin_pwd=& password & , conn)conn. Ope n()Dim dr As OleDbDataReader = cmd.ExecuteReader()If (dr.Read()ThenSessi on(a

15、dm in _id ) = user nameIf DropDLAdmin.Selectedltem.Value =管理员ThenResponse.Redirect(admin.aspx)ElseIf DropDLAdmin.Selectedltem.Value =学生 ” ThenResp on se.Redirect(Stude nt.aspx)End IfElseIf MsgBox(你输入的用户名密码有误！ ！”)ThenEnd Ifconn. Close()Admi n. aspx管理员主页面：题库管理系统|遷兀修产11代题肯理的n和目|诫顾牛古I退出玉纥|图3-2题库管理主界面使用普

16、通按钮Response.Redirect(PassWordAlter.aspx)语句来实现页面之间的跳转。Respo nse.Redirect( PassWordAlter.aspx)PassWordAlter.aspx 页面来修改密码(其中 Session(admin_id)为从 Log in. aspx 页面传来的变量)：密码修改确认密码旧密码新密码图3-3密码修改界面Dim jiumima, xinmimal, xinmima2As Stringjiumima = TextBox1.Text.ToStri ng().Trim()xi nm ima1 = TextBox2.Text.ToS

17、tri ng().Trim()xi nm ima2 = TextBox3.Text.ToStri ng().Trim()Dim conn As NewOleDbConnection( Provider=SQLOLEDB.1;Password=sa;Persist Security In fo=True;User ID=sa;l nitial Catalog=ExamTest;Data Source=.)Dim cmd1 As NewOleDbCommand(select * from admin where admin_id=&Session( admin_id ) & and admin_p

18、wd=& jiumima & , conn)conn. Ope n()Dim dr1 As OleDbDataReader = cmd1.ExecuteReader()判断记录是否存在If (dr1.Read()ThenIf TextBox2.Text = TextBox3.Text ThenDim cmd2 As NewOleDbCommand(update admin set admin_pwd=&xinmima1 & where admin_id=& Session( admin_id ) & , conn)Dim dr2 As OleDbDataReader = cmd2.Execut

19、eReader()MsgBox(恭喜，密码修改成功)ElseIf MsgBox(两次输入的密码不一致 ”)ThenEnd IfElseIf MsgBox(你输入的密码有误！ ！”)ThenEnd Ifconn .Close()添加试题、查询试题页面(试题管理页面)TestMa nageme nt.aspx，其中在页面 TestManagement.aspx 用 Session(biaoming)来保存表名。图3-4试题管理界面页面加载时代码如下：Session( QuestionType ) = DropDownListl.Text.ToString().Trim()添加试题按钮单击事件代码如

20、下：If DropDownList1.Text =选择题ThenResp on se.Redirect(AddS in gle.aspx)ElseIfDropDownList1.Text =填空题 ”ThenResp on se.Redirect(AddFilli ng.aspx)ElseIfDropDownList1.Text =判断题 ”ThenRespo nse.Redirect(AddRightOrWro ng.aspx)ElseIfDropDownList1.Text =问答题 ”ThenResp on se.Redirect(AddEssayQuesti on. aspx)End

21、If查询按钮单击事件代码如下：DataBi ndGridView()DataBi ndGridView子过程代码如下：Sub DataBi ndGridView()Dim strsql1, strsql2, strsql3, strsql4As Stringstrsql1 =selectQuesti on ID,Questi on ,Questi on Sub,Questi on Time,Questio nType from Sin gleSel whereQuestio nSub= & DropDKM.Text.ToStri ng().Trim() & and Questio nType=

22、&DropDTX.Text.ToStri ng().Trim() & and Questio nTime=&TexSJ.Text.ToStri ng().Trim() &strsql2 =selectQuesti on ID,Questi on ,Questi on Sub,Questi on Time,Questio nType from RightOrWr ong where Questio nSub= & DropDKM.Text.ToStri ng().Trim() & and Questio nType=&DropDTX.Text.ToStri ng().Trim() & and Q

23、uestio nTime=&TexSJ.Text.ToStri ng().Trim() &strsql3 =selectQuesti on ID,Questi on ,Questi on Sub,Questi on Time,Questio nType from Filli ng whereQuestio nSub=& DropDKM.Text.ToStri ng.Trim() & and Questio nType=&DropDTX.Text.ToStri ng().Trim() & and Questio nTime=&TexSJ.Text.ToStri ng().Trim() &strs

24、ql4 =selectQuesti on ID,Questi on ,Questi on Sub,Questi on Time,Questi on Typefrom EssayQuesti on whereQuestio nSub= & DropDKM.Text.ToStri ng().Trim() & and Questio nType=&DropDTX.Text.ToStri ng().Trim() & and Questio nTime=&TexSJ.Text.ToStri ng().Trim() &”Dim conn As NewOleDbConnection( Provider=SQ

25、LOLEDB.1;Password=sa;PersistSecurity In fo=True;User ID=sa;I nitial Catalog=ExamTest;Data Source=.)Dim cmd1 As NewOleDbCommand(strsql1, conn)Dim cmd2 As NewOleDbCommand(strsql2, conn)Dim cmd4 As conn. Ope n()Dim cmd3 As NewOleDbCommand(strsql3, conn)NewOleDbComma nd(strsql4, conn)If DropDTX.Text =选择

26、题 ” ThenDim dr1 As OleDbDataReader = cmd1.ExecuteReader()GridView1.DataSource = dr1GridView1.DataBi nd()Session(biaoming ) = SingleSelElseIf DropDTX.Text =判断题The nDim dr2 As OleDbDataReader = cmd2.ExecuteReader()GridView1.DataSource = dr2GridView1.DataBi nd()Session(biaoming ) = RightOrWrongElseIf D

27、ropDTX.Text =填空题The nDim dr3 As OleDbDataReader = cmd3.ExecuteReader()GridView1.DataSource = dr3GridView1.DataBi nd()Session(biaoming ) = FillingElseIf DropDTX.Text =问答题ThenDim dr4 As OleDbDataReader = cmd4.ExecuteReader()GridView1.DataSource = dr4GridView1.DataBi nd()Session(biaoming ) = EssayQuest

28、ionEnd Ifconn. Close()End Sub其中DataBindGridView1子过程代码如下:Sub DataBi ndGridView1()Dim strsql As String建立Connection对象Dim conn As NewOleDbConnection( Provider=SQLOLEDB.1;Password=sa;Persist Security In fo=True;User ID=sa;I nitial Catalog=ExamTest;Data Source=.)建立Comman对象strsql= select Questi on ID,Quest

29、i on ,Questi on Sub,Questi on Time,Questi on Typefrom & Session( biaoming ) & where QuestionID=& Session( ID ).ToString().Trim()& ”Dim cmd As NewOleDbCommand(strsql, conn)建立DataAdapter对象Dim adp As NewOleDbDataAdapter(cmd)建立DataSet对象Dim ds As NewDataSet()填充DataSet对象adp.Fill(ds,li nk)绑定数据对象GridView1.D

30、ataSource = ds.Tables(link ).DefaultView 指定数据源GridView1.DataBind()执行绑定End Sub对选择题进行操作的页面 AddSingle.aspx :选择题添加选择题潘加试题编号：10所属科且：救学v|创健时间：20 1试题内容：3+71选顼出4选项61Q选项6SCA OflQCQD成功1图3-5插入选择题界面其中插入按钮点击事件代码如下：Dim strsql, shitibia nhao, suoshukemu, chua ngjian shijia n, shit in eir ong, xua nxia ngA, xuanxia

31、ngB, xuanxiangC, xuanxiangD, daanAs Stringshitibia nhao = TexSTBH.Text.ToStri ng().Trim()suoshukemu = DropDSSKM.Text.ToStri ng().Trim()chua ngjia nshijia n = TexCJSJ.Text.ToStri ng().Trim()shiti neiro ng = TexSTNR.Text.ToStri ng().Trim()xua nxia ngA = TexXXA.Text.ToStri ng().Trim()xua nxia ngB = Tex

32、XXB.Text.ToStri ng().Trim()xua nxia ngC = TexXXC.Text.ToStri ng().Trim()xua nxia ngD = TexXXD.Text.ToStri ng().Trim()daa n = RadioBCKDA.Text.ToStri ng().Trim()strsql =insert intoSi ngleSel(Questio nlD,Questio n,Choice_A,Choice_B,Choice_C,Choice_D,A nswer,Question Sub,Questi on Time,Questio nType) va

33、lues(& shitibia nhao &,& shit in eir ong &,& xuan xia ngA &,& xua nxia ngB &,& xuan xia ngC &,& xuan xia ngD& ,& daa n & ,& suoshukemu & ,& chua ngjia nshijian &,&Session( QuestionType ) & )Dim conn As NewOleDbConnection( Provider=SQLOLEDB.1;Password=sa;Persist Security In fo=True;User ID=sa;I nitia

34、l Catalog=ExamTest;Data Source=.)Dim cmdl As NewOleDbCommand(select * from SingleSel where QuestionlD= & shitibianhao & , conn)conn. Ope n()Dim dr1 As OleDbDataReader = cmd1.ExecuteReader()If ( Not dr1.Read() ThenDim cmd2 As NewOleDbCommand(strsql, conn)Dim dr2 As OleDbDataReader = cmd2.ExecuteReade

35、r()Label1.Text =插入成功！ ”ElseIf MsgBox(此题编号已经存在！ ！”)ThenEnd Ifconn .Close()当要插入的主键值数据库中已经存在时弹出提示对话框：此题编号己经存在？ * !图3-6当所插编号存在对填空题页面进行操作的页面 AddFilli ng.aspx填空题添加试题編号：I.10所属科引肯腱时间：2Q11试题内容：i+77参考答希31趣回I插入威功I图3-7填空题添加界面确定按钮单击事件代码如下:As& shit in eir ong &Dim strsql, shitibia nhao, shit in eir ong, zhe ngque

36、daa n, suoshukemu, lurushijia n Stri ngshitibia nhao = TexSTBH.Text.ToStri ng().Trim()shiti neiro ng = TexSTNR.Text.ToStri ng().Trim()zhe ngquedaa n = TexCKDA.Text.ToStri ng().Trim() suoshukemu = DropDSSKM.Text.ToStri ng().Trim() lurushijia n = TexCJSJ.Text.ToStri ng().Trim()strsql= in sertin to Fil

37、li ngvalues(& shitibia nhao& ,& ,& zhe ngquedaan & ,”& suoshukemu & ,”& lurushijian &Session( QuestionType ) & )Dim conn As NewOleDbConnection( Provider=SQLOLEDB.1;Password=sa;Persist Security In fo=True;User ID=sa;l nitial Catalog=ExamTest;Data Source=.)Dim cmd1 As NewOleDbCommand(select * from Fil

38、ling where QuestionlD=&shitibianhao & , conn)conn. Ope n()Dim dr1 As OleDbDataReader = cmd1.ExecuteReader()If ( Not dr1.Read() ThenDim cmd2 As NewOleDbCommand(strsql, conn)Dim dr2 As OleDbDataReader = cmd2.ExecuteReader()Label1.Text =插入成功！ ”ElseIf MsgBox(此题编号已经存在！ ！”)ThenEnd Ifconn. Close()对判断题题库进行操

39、作的页面 AddRightOrWrong.aspx如下：判断题添加试题编轨10所属科目，软件工程:创建时间】2011试题内容：|C正确G,错误图3-8判断题添加页面其中确定按钮单击事件代码如下：Dim strsql, shitibia nhao, suoshukemu, chua ngjian shijia n, shit in eiron g, can kaodaa n As Stringshitibia nhao = TexSTBH.Text.ToStri ng().Trim()shiti neiro ng = TexSTNR.Text.ToStri ng().Trim()can kaod

40、aan = RadioBCKDA.Text.ToStri ng().Trim()suoshukemu = DropDSSKM.Text.ToStri ng().Trim()chua ngjia nshijia n = TexCJSJ.Text.ToStri ng().Trim()strsql =in sert into RightOrWro ng values(& shitibia nhao &, &shit in eir ong &, & can kaodaa n & , & suoshukemu & , & chua ngjia nshijia n& , & Session( Questi

41、onType ) & )Dim conn As NewOleDbConnection( Provider=SQLOLEDB.1;Password=sa;Persist Security In fo=True;User ID=sa;I nitial Catalog=ExamTest;Data Source=.)Dim cmd1 As NewOleDbCommand(select * from RightOrWrong where QuestionlD= & shitibianhao & , conn)conn. Ope n()Dim dr1 As OleDbDataReader = cmd1.E

42、xecuteReader()If ( Not dr1.Read()ThenDim cmd2 As NewOleDbCommand(strsql, conn)Dim dr2 As OleDbDataReader = cmd2.ExecuteReader()Labell.Text =插入成功！ ”Elself MsgBox(此题编号已经存在！ ！”)ThenEnd Ifconn .Close()对问答题进行操作管理的页面 AddEssayQuestion.aspx如下:问答题添加试题编号；1所属科且：软件工程卷腱时间：2011试题内容：5+9S104|?| IIII插人成珈图3-9问答题添加页面其

43、中确定按钮单击事件代码如下：Dim strsql, shitibia nhao, shit in eir ong, can kaodaa n, suoshukemu, lurushijia nAsStri ngshitibia nhao = TexSTBH.Text.ToStri ng().Trim()shiti neiro ng = TexSTNR.Text.ToStri ng().Trim()can kaodaan = TexCKDA.Text.ToStri ng().Trim()suoshukemu = DropDSSKM.Text.ToStri ng().Trim()lurushiji

44、a n = TexCJSJ.Text.ToStri ng().Trim()strsql =in sert into EssayQuestio n values(& shitibia nhao &,&shit in eiro ng &,& can kaodaan & ,& suoshukemu & ,& lurushijia n & Session( QuestionType ) & )Dim conn As NewOleDbConnection( Provider=SQLOLEDB.1;Password=sa;Persist Security In fo=True;User ID=sa;I n

45、itial Catalog=ExamTest;Data Source=.)Dim cmd1 As NewOleDbCommand(select * from EssayQuestion where QuestionlD= & shitibianhao & , conn)conn. Ope n()Dim dr1 As OleDbDataReader = cmd1.ExecuteReader()If ( Not dr1.Read()ThenDim cmd2 As NewOleDbCommand(strsql, conn)Dim dr2 As OleDbDataReader = cmd2.Execu

46、teReader()Label1.Text =插入成功！ ”ElseIf MsgBox(此题编号已经存在！ ！”)ThenEnd Ifconn .Close()3.2添加课程添加课程页面 AddSubject.aspx如下:添加课程名输入所要涛加的课程暨画插入戚功I _图3-10课程添加页面其中添加按钮单击事件如下：Dim strsql As StringDim kecheng As Stringkeche ng = TextBox1.Text.ToStri ng().Trim()strsql =in sert into Sub(Questio nSub)values(& keche ng &

47、 )Dim conn As NewOleDbConnection( Provider=SQLOLEDB.1;Password=sa;Persist Security In fo=True;User ID=sa;l nitial Catalog=ExamTest;Data Source=.)Dim cmd1 As NewOleDbCommand(select * from Sub where QuestionSub=& kecheng& , conn)conn. Ope n()Dim dr1 As OleDbDataReader = cmd1.ExecuteReader()If ( Not dr

48、1.Read()ThenDim cmd2 As NewOleDbCommand(strsql, conn)Dim dr2 As OleDbDataReader = cmd2.ExecuteReader()Label1.Text =插入成功！ ”ElseIf MsgBox(此科目在数据库中已经存在！ ！) ThenEnd Ifconn .Close()若所要添加了课程在数据库中已经存在则弹出提示对话框：App_eb _nf jqyGul吐科目在数据库中已经存在，*I? ! 5-确疋图3-11提示对话框3.3考试界面学生点击Admin.aspx界面上的试题生成按钮就可以跳转到考试界面TestGe

49、neratio n.aspx，考试界面是用table 布局。下面放置两个 Butt on控件， 分别用于随机生成试题和提交答案，并用一个label控件来显示分数。随机生成试题图3-12考试界面图其中随机生成按钮单击事件中写入代码:Dim rand As StringDim abc() As String abc = Split( rand =的整数Sessi on(0,123,4,5,6,7,8,9,)CInt (10 * (NewRandom().NextDouble).ToString随机生成一个随机rand ) = rand 用Session来存放随机数，以便判卷时用Dim strsql

50、l, strsql2, strsql3, strsql4As String 定义四个 Sql 查询语句strsqll = strsql2 = strsql3 = strsql4 =Dim connselect * from Si ngleSel where Questio nlD=select * from RightOrWro ng where Questio nlD=select * from Filling where QuestionID=select * from EssayQuesti on where Questi on ID=& rand & rand & rand & rand &”As NewOleDbConnection( Provider=SQLOLEDB.1;Password=sa;Persist Security In fo=True;User ID=sa;I nitial Catalog=ExamTest;Data Source=.)NewOleDbComma nd(strsql1, conn)NewOleDbComma nd(strsql2, conn)NewOleDbComma nd(strsql3, conn)NewOleDbComma nd