基于vb.net的计算机等级考试系统的设计与实现

《基于vb.net的计算机等级考试系统的设计与实现》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、基于VB.NET的计算机等级考试系统的设计与实现　　摘要：介绍了四川省计算机二级考试上机考试系统的设计思路和实现方法，针对四川省计算机二级考试的特点和具体实际，实现了考生自动登录、考试过程管理、交卷过程管理中的人性化和自动化管理，从而大大提高考试公平性和阅卷的方便性。　　关键词：VB.NET；SQLServer；计算机等级考试系统　　中图分类号：TP311文献标识码：A文章编号：1009-3044（2014）01-0054-03　　二十一世纪是信息化时代，掌握现代计算机知识和应用能力是社会对当代大学生提出的更高要求，为了适

2、应经济和社会发展的需要，提高非计算机专业学生的计算机应用水平，四川省教育委员会从1994年开始举行高等学校非计算机专业学生计算机应用水平等级考试，分一、二、三级水平考试，目前省内大部分高校都要求学生毕业前至少通过计算机二级考试，因此二级考试参考人数多，监考阅卷工作量大。省二级考试分为笔试和上机考试两个环节，传统上机考试采用的是软盘单机考试模式。这种考试模式存在诸多问题：考试管理为人工操作，工作量大，易出错；软盘质量和软驱故障常导致考生磁盘存盘和读盘错误，给考生带来不必要的损失；考生在考场可能相互交换软盘或拷贝软盘带出考场，

3、考生作弊现象较为严重；考试时间不能严格控制，给考试带来人为的不公平性。在传统的上机考试方式已不能满足现代信息化的需要的基础上，开发了适合于四川省计算机二级考试上机考试系统。该系统以SQLServer作为后台数据库引擎，以VB.NET为前台开发工具，包括考务数据管理和考试过程管理功能。简单易用，方便了监考过程管理和机试阅卷管理。　　1系统总体设计　　针对四川省计算机等级考试的实际，基于考试的安全性和系统的稳定性，考试环境是由一台考试管理服务器与多台考试客户机通过TCP/IP协议互连成的一个局域网。采用三层模式开发，使用微软M

4、icrosoft.NET中的VB.NET编写服务器端和客户端程序，通过ADO.NET技术与数据库进行访问，后端数据库采用SQLServer2000实现，系统可移植性强。总体设计思路：考试客户机用一个准考证号码通过网络登录考试服务器，服务器对该号码是否允许考试进行确认（只有数据库中有该准考证号码且目前处于“未考”状态才允许登录）。如果允许登录，服务器发回一个允许考试指令，并将考试初始化文件发给学生机，同时服务器自动记录登录的详细信息，考试客户机接到从服务器返回的指令后，进行考试环境初始化，然后进入考试界面，客户机进入正常考试

5、状态。此后，客户机与服务器互不通信，直到客户机请求交卷。考试结束时（到规定时间客户机自动交卷或者考生提前主动交卷），考试客户机向服务器提出交卷请求，服务器响应该请求。考试客户机将考试文件夹发给服务器。将收到的考试包分类保存，然后返回一个确认信息。这样就完成了一个基本考试过程。　　2系统功能模块　　系统主要功能模块包括：考生登录模块，时间控制模块，交卷模块，考试过程管理模块。一、考生登录，向服务器请求考试，服务器根据考生录入的考号和姓名确定是否允许该考生考试；二、系统自动为考生创建一个以该考生的考号加姓名的文件夹，并将考试原

6、始数据文件放到文件中，考生在考试过程中形成的所有文件均保存在此文件夹中；三、系统根据考生所选择的考试语言如VFP，自动进入相应环境；四、系统提供时间控制功能，时间从服务器端读取可以保证考试的安全性和公正性，考试剩余5分钟时提醒，当达到规定时间，系统强行停止答卷，自动存盘退出；考生若提前结束考试，可点击“交卷”按扭，并对交卷是否成功给出提示。考生成功交卷，则删除本机该考生的考试文件夹，有效防止考生作弊；五、交卷时，服务器根据考生在登录时选择的考试语言和题套号将试卷分考试评语和题套号保存在相应文件夹中，以方便教师阅卷。　　3系

7、统核心功能模块　　3.1强大的系统登录模块　　考生登录、向服务器请求考试。首先考生进入考试系统后，在编辑框里输入自己的姓名、准考证号、选择考试语言和试题题套号后，服务器进行身份验证，如果不是本考场考生，系统将提示出错信息，如果是本考场考生则进入考生须知界面，系统记录下考生提供的基本信息，并为考生创建一个文件夹，同时根据考生选择的考试语言从服务器端对应数据库中提取考试原始文件到本机文件夹。当考生仔细阅读考生须知后，单击“开始考试”按钮，系统根据考生所选择的考试语言自动打开相应的考试环境，同时计时器开始计时。　　实现该功能的V

8、B.NET核心代码如下：　　path1="c：＼"&Trim（TextBox1.Text）&Trim（TextBox2.Text）'考生文件夹的创建路径　　path2="＼＼server＼test"'服务器考卷路径　　IfLen（Trim（TextBox1.Text））10Then　　MsgBox（"请