模拟考试系统的设计和实现

1、模拟考试系统的设计和实现模拟考试系统的设计和实现摘 要随着计算机技术在现代化教学系统中的广泛应用，以及我国大专院校规模的不断扩大和上级考试的日趋繁琐，模拟考试系统已成为许多学校模拟考试过程中不可缺少的一部分。面向校园公共机房的模拟考试系统，可以看作是教师、学生、机房等教学中不可缺少系统，它是计算机信息管理在学校教学活动中的又一个重要的应用。是基于局域网，具有随机考试、成绩回收、考务管理等功能，适用于院校的无纸化考试系统。我们将此系统与国内现有的原有的模拟考试系统进行了比较，分析了它的技术可行和经济可行性。同时进行了市场调查，进行了必要的需求分析，最终确定有必要设计这个模拟考试系统。本系统的开发

2、主要包括后台数据库的建立和维护以及前端应用程序的设计两个方面。对于数据库要求实现数据的一致性、完整性和安全性，而对于应用程序则要求功能完善、简洁易用。经过分析，我们决定前台使用 microsoft 公司的代表性开发工具visualbasic6.0。后台使用 sql server2000。并且采用 odbc 连接数据库。众所周知，vb 开发的应用程序（尤其是数据库应用程序）代码操作数据库效率高、具有组件丰富、语言简单、功能强大的优点。利用 vb6 提供的面向对象开发思想和各种实用美观的数据库程序，我们能在最短的时间内完成系统开发满足模拟考试系统的需要。关键字关键字：模拟系统；vb6；sql se

3、rver；odbcabstractabstractwith modern computer technology in the teaching system in the broad application, as well as the scale of chinas tertiary institutions are continuously expanding and increasingly complex higher-level examinations, the examination system has been simulated in many schools in t

4、he process of mock examinations indispensable part. campus room for the public examination system simulation can be seen as teachers, students, teaching rooms, and other indispensable system, which is computer information management in the teaching and learning activities in schools is another impor

5、tant application. is based on the lan, with random examinations, results recovery, examination management, and other functions, applicable to institutions paperless examination system.we see this system and the existing domestic original mock examinations system has been compared and analyzed its te

6、chnical feasibility and economic feasibility. at the same time carried out a market survey, carried out the necessary analysis of requirements and the need to determine the final design of the mock examinations system. the development of the system including the main background of the establishment

7、and maintenance of database front-end applications, as well as two aspects of the design. the database requirements for data consistency, integrity and security, and application procedures for the functional requirements of perfect simplicity.after analysis, we decided to use microsofts future devel

8、opment tools visualbasic6.0 representative. background using sql server2000. and using odbc database connectivity. as we all know, the development of vb applications (especially database applications) code database high efficiency operation with components rich in language simple, powerful advantage

9、s. vb6 provided by the use of object-oriented thinking and the development of a range of practical handsome database program, we can in the shortest period of time in the system development system to meet the needs of mock examinations.keywords:keywords: simulation system; vb6; sql server; odbc目 录1可

10、行性研究.41.1项目编写目的.41.2项目背景.51.3项目可行性评估.51.3.1经济可行性.61.3.2时间可行性.61.3.3技术可行性.61.3.4社会可行性.62需求分析.72.1市场需求.72.2软件功能分析.72.3软件的非功能性需求.72.4软件其他方面的要求.83环境与系统结构要求.93.1硬件环境需求.93.2编程环境.93.2.1vb6.0.93.2.2sql server 2000.103.2.3odbc .103.3系统结构 c/s 模式.114系统总体设计.124.1系统体系结构.124.2系统功能概述.144.2.1题库管理.144.2.2题库维护.144.2.

11、3试卷提交地址.154.2.4卷号设置.154.2.5考试时间设置.154.2.6练习系统.154.2.7考试系统.154.2.8查看成绩.154.2.9系统实现.164.3数据库设计.164.3.1数据库的概述(数据库连接方式).164.3.2数据库设计.175详细设计及编码.195.1用户登录.195.2题库设计.205.3模拟考试实现.205.3.1练习或考试模式.215.3.2选择题答题.225.3.3设置试卷提交地址.235.3.4卷号维护.245.3.5题库维护.265.3.6考试时间设置.315.3.7查看成绩.326总结.347参考文献.351 可行性研究可行性研究1.1 项目

12、编写目的项目编写目的随着社会的快速发展，计算机科学技术的日趋完善，人们传统的思想观念和生活方式开始改变，一切向着高效率发展，各个高校越来越注重对学生的实践动手能力，特别是计算机专业的学生，这样以来，增加了教师阅卷的负担，因此，开发一个完善的模拟考试系统，是非常有必要的，但是由于资源缺乏和交付时间限制的困扰，使得开发工作变得比较困难，可行性研究的目的就是为了解决这问题。本系统的目标是在客户机/服务器上设计考试系统,所以首先要考虑的是系统的安全性,尽可能地减少考试中的数据流失。因此,本系统的体系结构建立在c/s 基础上,通过与 c/结构的数据库系统结合,真正实现了数据的安全由于本在线考试系统是实现

13、将现有的纸张答题式考试向基于 internet 的无纸张考试系统的转变，所以他必须实现整个考试流程的进行，实现对系统的帐户不同管理，以及完成阅卷、6 评分这些环节的处理。由于系统数据收集的实时性要求并不高，因此采用 c/s 结构来进行设计是合理可行的。在根据现有的技术，采用vb6 + sql server + odbc 技术完全可以高效、快速地开发出该系统。由于采用 vb6，开发方式能为我们尽可能的缩短开发周期，节约系统的开发费用，避免人力、物力的浪费。参照其他考试系统，界面上完全可以实现与用户的良好交尽可能地减少让用户难以操作的交互方式。1.2 项目背景项目背景随着计算机技术的发展及应用,使

14、得现在的教育方式和方法面临着前所未有的挑战。计算机教育作为一种新的重要的教学形式,呈现出广阔的发展前景。模拟考试是计算机教育的一部分,是不可缺少的教学环节。采用模拟考试或利用计算机进行考试可以提高教学效率,而且是以后考试发展的必然趋势。 模拟考试系统的大致思想是：提供考生在计算机上考试功能，让考生即时答题，即时评分。所谓模拟考试系统，就是一个在服务器上运行的程序，该程序从服务器数据库中读取考试题目的内容供考生测试，并把考生的答案与数据库中的正确答案比较，从而完成出题和评分的功能。 现阶段，学校与社会上的各种考试大都采用传统的考试方式，在此方式下，组织一次考试至少要经过五个步骤，即人工出卷、考生

15、考试、人工阅卷、成绩评估和试卷分析。显然，随着考试类型的不断增加及考试要求的不断提高，教师的工作量将会越来越大，并且其工作将是一件十分烦琐和非常容易出错的事情，可以说传统的考试方式已经不能适应现代考试的需要。相比于传统的考试方式，模拟考试系统的主要好处是一方面可以动态的管理各种考试信息，只要准备好足够大的题库，就可以按照要求自动生成各种试卷；另一方面，计算机化考试阅卷能力快，系统可以在考试结束时当场给出考试结果，并且计算机考试给了考生最大的公平感。 模拟考试极大的提高了教学的灵活性，现在在许多领域已经有了广泛的应用。最有影响的案例就是 ets（美国教育考试中心）举办的 gre（美国研究生入学考

16、试）的计算机化考试，它使考试由原来的每年只能有两次参加考试的机会便为每个工作日都可以参加考试。因此，采用模拟考试方式将是以后考试发展的趋势，模拟考试必将会日益盛行。本系统讲述了一个模拟考试系统的实现过程，该系统基本上可以满足考生考试的需要。希望能对考生有所帮助。1.3 项目可行性评估项目可行性评估任何一个系统或一项工程，在建立之前，必须首选进行可行性分析，可行性分析包括两层含义，一是可能性，二是必要性。可能性指开发信息系统的条件是否具备，必要性是指客观上是否真正需要，通过可行性研究，可避免盲目投资，减少政治性要的损失。下面从四方面来讨论：1.3.1 经济可行性经济可行性主要是只指算一个新的系统

17、开发所需要的投资费用和运算费用，并与估计的新系统收益进行比较，看是否有利。本系统所需的软硬件成本比较低，投资小，具有一定的通过性，因此 ，在经济上是可行的。1.3.2 时间可行性时间可行性主要包括系统在目前环境下能否正常运行，运行后所引起的各方面，以及这些变化对社会或人的因素所产生的影响。本系统对人事的管理比较全面，可长期使用。1.3.3 技术可行性技术可行性利用现有的设备，软件及技术人员，新系统的目标能否达到，这也是可行性研究中需要考虑的一个问题。关系型数据库的高速发展使管理信息系统具备了良好的开发环境。本系统使用的 vb 普及性好，操作简单，用户可以很快掌握使用方法，因此，在技术上是完全可

18、行的。1.3.4 社会可行性社会可行性人类社会文明的发展已进入信息化的高速发展时期，传统的手工方式支持下的管理模式，已经不能满足各方面的需要。开发本系统的目标不仅是提高工作效率，减轻劳动强度，而且减少出错率，具有很好的社会意义。2 需求分析需求分析2.1 市场需求市场需求为了满足市场的需求，软件的设计必须有一定的市场针对性。考试系统软件是为了针对现在学校的考试的增加和规模的增大而造成的人工管理压力，和人力难以实现监控考试的情况，而设计的辅助教师进行考试的管理工作的一种小型考试软件。它以其独特的功能和良好的适应性和兼容性来适应市场发展的需求，并且由于其尚处于继续改进的阶段，改进的考试系统软件将不

19、断的涌向市场。2.2 软件功能分析软件功能分析根据高校管理的实际要求，结合考试管理的实际过程，系统应该实现以下功能：(1)掌握本考试系统范围内所有用户的基本情况，包括编号，姓名，登录口令等。(2)基于考试系统的基本功能管理，本系统可以提供给管理员类用户及学生类用户使用。不同的用户类型所能完成的功能不同。教师类用户可以创建试题、删除过期试题、进行题库维护、创建试卷以及对本系统内人员信息进行维护和更新等；学生类用户主要是参与考试，完成试卷，查询成绩。(3)适时的试题题库更新，试题题型包括判断题、选择题类型。试题库的更新由管理员类用户完成。学生类用户不允许对试题进行更新。(4)试卷可由本系统自动生成

20、，也可以由管理员类用户从题库中选择试题创建。2.3 软件的非功能性需求软件的非功能性需求作为一种软件产品，除了在功能方面必需达到用户的基本要求以外，还必需在意一些非功能方面的因素，诸如：软件的用户操作界面的美观和简洁，以及界面图标的标准化和规范化。软件要有一定的兼容性，应该兼容当前的主流操作系统平台，象 windows 98/nt/me/2000/xp/2003 等。硬件方面应当要求配置低一点，象这样的小型开发软件应该适用于现大多数的计算机网络系统。而且，最好是可以适应打印机等其它硬件设备，而本软件就很好地做到了这一点。2.4 软件其他方面的要求软件其他方面的要求(1)在软件程序设计过程中，依

21、据国家计算机软件产品开发文件编制指南和现代软件工程两项理论与原则的要求，应当编制标准的软件技术文档。如软件使用的编码必须符合 c#编程的编码设计标准与规范，其使用的对象名、对象类型和命名约定应该一致并规范化。软件编码时应注意代码清晰、可读性好，还要运用缩进、空行等必要的格式，结合大小写的区别等方法保持程序结构良好。涉及多表操作的模块应运用“事务”处理，以保持数据完整性。(2)软件的设计应该有一个完整的过程，各个步骤都必须做到。一般一个完整的软件设计过程总体分为三个阶段：1.软件的开发设计阶段。这一阶段一开始要对所开发的软件项目先做一个市场调查，分析其市场需求的大小和需求度。然后根据市场调查对软

22、件做一个概念性的设计，确定软件的方向和重点。接着就进行概要性的设计，将软件的基本框架进行整理和确定。接下来就是详细的设计，这个过程是软件设计的重点。详细的设计完成之后，软件的开发设计阶段也就结束了。2.软件的操作和实现阶段。这一阶段主要就是要将设计出来的软件进行各个功能的具体实现情况进行检验，看是否与开发设计的要求达到一致。为软件的成功投放市场进行质量上的严格把关。3.软件的市场检验和改进完善阶段。软件经过市场的检验之后，要进行一系列的改进与升级换代。要知道一个成功的软件产品往往能改进成好几代的产品，这主要是软件为了不断满足市场新的变化需求。这也是促进计算机软件领域不断发展的原因之一。3 环境

23、与系统结构要求环境与系统结构要求3.1 硬件环境需求硬件环境需求cpu：piv 2.0ghz 或更高频率的 cpu内存：ddr333 256mb 或更多的内存硬盘：至少 10g 以上或更多的硬盘空间3.2 编程环境编程环境需要运行该应用的 vb6.0 软件能够存储该应用的所有数据所需的 sqlserver2000 数据库3.2.1 vb6.0vb6.0 所具有的特点：1.具有面向对象的可视化设计工具2.事件驱动的编程机制3.提供了易学易用的应用程序集成开发环境4.结构化的程序设计语言5.支持多种数据库系统的访问由于 vb6.0 具有可视化设计截面，因此开发起来比较快。并且截面设计比较快。并且也

24、支持多数据库系统访问，因此今后在别的系统中继承起来也比较方便。由于提供易学易用的程序集成开发环境，因此对于新手上手比较快。综合上面 vb6.0 的一些优点所以我选择 vb6.0 来开发我的系统。3.2.2 sql server 2000用户对数据库的使用，是通过数据库管理系统提供的语言来实现的。不同的数据库管理系统提供不同的数据库语言。关系数据库管理系统几乎都提供关系数据库标准语言sql。sql 的全称是 structured query language，即结构化查询语言。sql 语句可以从关系数据库中获得数据，也可以建立数据库、增加数据、修改数据。1986 年 ansi 采用 sql 语言

25、作为关系数据库系统的标准语言，后被国际化标准组织（iso）采纳为国际标准。sql 语言使用方便、功能丰富、简洁易学，是操作数据库的工业标准语言，得到广泛地应用。同时，其它数据库产品厂家也纷纷推出各自的支持 sql 的软件或者与 sql 的接口软件。这样 sql 语言很快被整个计算机界认可。sql 语言是一种非过程化语言，它一次处理一个记录集合，对数据提供自动导航。sql 语言允许用户在高层的数据结构上工作，而不对单个记录进行操作。sql 语言不要求用户指定数据的存取方法，而是使用查询优化器，由系统决定对指定数据存取的最快速手段。当设计者在关系表上定义了索引时，系统会自动利用索引进行快速检索，用

26、户不需知道表上是否有索引或者有什么类型的索引等细节。3.2.3 odbc开放式数据库连接 (odbc) 技术为访问不同种类的 sql 数据库提供了通用接口。odbc 是基于结构查询语言 (sql) 的，以此作为访问数据的标准。此接口提供了最大的互操作性：一个应用程序可以通过一组公用代码访问不同的 sql 数据库管理系统 (dbms)。这使得开发人员能够在不以特定的 dbms 为目标的情况下构建和分发一个客户端/服务器应用程序。然后，会添加数据库驱动程序以将应用程序链接到用户选择的 dbms。以下特性说明了 odbc 的灵活性：应用程序没有绑定到专有供应商 api。sql 语句可以明确地包括在源

27、代码中也可以在运行时即时构建。应用程序可以忽略基础数据通信协议。数据可以用方便于应用程序的格式进行发送和接收。odbc 是随新兴的国际 iso call-level interface 标准一起设计的。目前提供了可用于 55 种最流行的数据库的 odbc 数据库驱动程序。3.3 系统结构系统结构 c/s 模式模式 设计这个系统时，有个问题摆在我面前，那就是对于这个系统我是采用 c/s模式进行开发呢，还是 b/s?于是我把这两个的优缺点例举下来，进行了一个比较。c/sc/s 模式开发考试系统模式开发考试系统优点：优点：由于 c/s 模式是通过客户端直接与服务器交互数据，因此其相应速度比较快，不需

28、要通过 ie 浏览器进行数据传输，因此数据比较安全。很适合适时提交数据系统。缺点：缺点：由于是直接用客户端直接与服务器交互，因此需要为每台电脑安装客户端，因此对电脑的配置要求比较高。并且对系统升级的话，就增加了升级的复杂性，因为需要为每台电脑都更新客户端。b/sb/s 模式开发考试系统模式开发考试系统优点：优点：由于 b/s 模式是通过 ie 浏览器来访问，所以它适合分散性的考试系统，并且用户只需要能访问 ie 就可以参加考试。由于只需要对服务器进行更新，所以更新起来比较快。缺点：缺点：由于采用 ie 浏览器经过网络传输，因此数据的安全性不高，很可能导致数据的丢失，由它没有客户端因此客户端只能

29、进行一些数据的查询，读写，都需要跟远程服务器进行交互，因此增加了服务器的压力。并且不适合适时的数据进行交互，这样会导致服务器压力会很大。综合上面 b/s 与 c/s 的优缺点可知，由于我们考试系统适用与学校，并且对数据交互比较频繁，对数据的安全性需要很高。因此我们将采用 c/s模式来开发该系统。4 系统总体设计系统总体设计4.1 系统体系结构系统体系结构模拟考试系统的操作对象分为教师和考生，角色不同,操作的模块也不同，其系统逻辑模型，如图所示。考试模块结构图登陆界面练习系统考试系统教师模块结构图：登陆界面提交地址卷号维护题库维护考试时间查看成绩模拟考试流程图：考生登陆获取用户角色随机获取试卷种

30、类随机生成试卷显示试卷结束系统模块划分图网上考试系统用户登录题库管理在线答题系统数据访问层数据库4.2 系统功能概述系统功能概述4.2.1 题库管理题库管理试题类别管理，主要实现试卷类别的添加、删除、修改和排序功能；考试试题管理，主要实现试题的添加、删除和修改功能；试题答案管理，主要实现试题的答案的添加、删除和修改功能。动态随机生成试卷使用随机函数动态地从题库中取得整张试卷的题目，每次生成的试卷是不相同的4.2.2 题库维护题库维护教师负责维护题库和查看统计考生成绩,学生在考试机器上随机抽取题库题目进行练习或考试,考试后统计成绩进入后台成绩表。 此权限只有老师可以使用：（1）增加题库：增加选择

31、题或填空题进入题库并存档；（2）删除题库：从题库中删除选择题或填空题；4.2.3 试卷提交地址试卷提交地址将考生考试后传递文件地址保存4.2.44.2.4 卷号设置卷号设置（1）增加卷号：增加随机出卷的卷套；（2）删除卷号：删除随机出卷的卷套以及卷套下属的题目。4.2.5 考试时间设置考试时间设置老师可以根据考试的内容设定考试的时间，并存档到数据库。当学生考试时只能在老师设定的时间内进行答题。4.2.6 练习系统练习系统考生选择进入练习系统后，考生如正常考试一样答卷。答卷完毕后将其成绩进行存档。这样让考生知道自己对自己掌握的不足点有所了解，并且可以加强这方面的复习。以便考试时得到最好的发挥。4

32、.2.7 考试系统考试系统考生进入考试系统后，就开始考试。答题时系统不能切换到别的界面。考试结束时，电脑会自动保留你的答题内容并进行存档。4.2.8 查看成绩查看成绩老师可以查看班上所有学生的考试成绩，了解目前学生学习的状况，对以后的教学进行更好的规划。 学生只能通过准考证号去查询自己本人的成绩4.2.9 系统实现系统实现系统通过排课过程算法实现及：教师录入题库-设置考试相关参数-考生考试教师查看考生成绩。4.3 数据库设计数据库设计4.3.1 数据库的概述数据库的概述(数据库连接方式数据库连接方式)（1）减少数据的重复（redundancy can be reduced）当在一个非数据库系统

33、当中，每一个应用程序都有属于他们自己的文件，由于无法有系统建立的数据，因此常常会造成存储数据的重复与浪费。（2）避免数据的不一致（inconsistency can avoid）本项特色，可以说是延伸前项的一个特点，记录同时被存放在数据库的两个地方，而数据库管理系统却没有对这样重要的情况加以控制，当其中一条数据库被修改时，便会造成数据的不一致，但是，对于一个健全的数据库管理系统而言，将会对这样的情况加以控制，但有时并不需要刻意消除这种情形，应当视该数据库的需求与效率来决定。（3）数据共享（data shared）对于数据共享的意义，并不是只有针对数据库设计的应用程序，可以使用数据库中的数据，对

34、于其他撰写好的应用程序，同样可以对相同数据库当中的数据进行处理，进而达到数据共享的目的。（4）强化数据的标准化（standard can be enforced）由数据库管理系统，对数据做出统筹性的管理，对于数据的格式与一些存储上的标准进行控制，也能提高数据处理的效率。（5）实践安全性的管理（security restriction can be applied）通过对数据库完整的权限控制，数据库管理者可以确认所有可供用户存取数据的合法途径渠道，并且可以事先对一些较重要或关键性的数据进行安全检查，以确保数据存取时，能够将任何不当损毁的情形降至最低。（6）完整性的维护（integrity can

35、 be maintained）所谓完整性的问题，就是要确认某条数据在数据库当中，是正确无误的。正如（2）所述，若是无法控制数据的不一致性，便会产生完整性不足的问题，所以，我们会发现，当数据重复性高的时候，数据不完整的情形也会增加，当然，若是数据库的功能完整，将会大大地提高数据完整性，也会增加数据库的维护能力与维护简便性。（7）需求冲突会获得平衡（conflicting requirements can be balance）在一个较大型的企业当中，用户不同的需求，往往会造成系统或数据库在设计上的困扰，但是一个合适的数据库系统，可以通过数据库管理员的管理，将会有效地整理各方面的信息，对于一些较重

36、要的应用程序，可以适时地提供较快速的数据存取方法与格式，以平衡多个用户在需求上的冲突。上述七个方面构成了数据库系统的主要特征。4.3.2 数据库设计数据库设计首先用 odbc 建立数据库为 exam，然后在建立数据表（1）选择题表（choose）：记录所有选择题题库的表.字段名类型长度备注卷号float8卷套号题号float8题目编号题文nvarchar254题目内容anvarchar100答案 abnvarchar100答案 bcnvarchar100答案 cdnvarchar100答案 d答案nvarchar4正确答案分值int4本题分值（2）填空题表(fillblank)：记录所有填空题

37、题库的表字段名类型长度备注卷号float8卷套号题号float8题目编号题文nvarchar254题目内容答案nvarchar100正确答案分值int4本题分值（3）分数表(grade)：记录所有考生考试成绩的表；字段名 类型长度备注考号nvarchar20考生考号姓名nvarchar20考生姓名题型nvarchar10考题题型题号float8考题号分值int4本题分值考生得分int4考生得分考生答案nvarchar50考生答案正确答案nvarchar50正确答案时间datetime8提交时间(4)考卷提交地址表(referaddr)：记录考生考试后传递文件地址的表；字段名 类型长度备注add

38、rnvarchar50考卷提交地址（5）考试时间表(timeset)：记录设定考试时间的表；字段名 类型长度备注examtimeint4考试时间(6)卷号表（tomeno）：记录卷号信息的表；字段名 类型长度备注卷号int4卷套号说明nvarchar50卷套说明（7）练习表(tran)：记录考生练习成绩的表；字段名 类型长度备注考号nvarchar20考生考号姓名nvarchar20考生姓名题型nvarchar10考题题型题号float8考题号分值int4本题分值考生得分int4考生得分考生答案nvarchar50考生答案正确答案nvarchar50正确答案时间char10提交时间5 详细设计

39、及编码详细设计及编码5.1 用户登录用户登录用户登录是应用程序的主入口，用户只有通过该入口才能进入系统，用户根据使用权限不同分为两种：管理员登陆（主要对象：老师） ，考生登陆。考生登录图privateprivate subsub cmdlogin_click()cmdlogin_click()记录记录考考号号, ,姓名姓名if if trim(txtname.text)trim(txtname.text) = = thenthenmsgboxmsgbox 请输请输入姓名入姓名!,!, vbinformation,vbinformation, 提示提示 exitexit subsubelseel

40、se g_strnameg_strname = = trim(txtname.text)trim(txtname.text) endend if if if if trim(txtno.text)trim(txtno.text) = = thenthen msgboxmsgbox 请输请输入考入考号号!,!, vbinformation,vbinformation, 提示提示 exitexit subsub elseelse g_strnog_strno = = trim(txtno.text)trim(txtno.text) endend if if5.2 题库设计题库设计当用户以管理员身份

41、登录考试系统时，首先进入欢迎界面在该界面中，用户以管理员身份，实现判断题和选择题的管理以及成绩管理和学生管理，分别单击相应的连接即可进入对应的界面。主要有选择题的管理及填空题的管理。5.3 模拟考试实现模拟考试实现当用户以考生的身份登录考试系统时，则如下图出现该界面。考生可以根据自己的需求去选择练习系统跟考试系统。a：窗体说明：b：主要代码：private sub form_load() if g_strf = 考试 then cmdok.visible = false elseif g_strf = 练习 then cmdok.visible = true end if showgradee

42、nd sub5.3.1 练习或考试模式练习或考试模式a：窗体说明：b：主要代码：private sub lblfinish_mouseup(button as integer, shift as integer, x as single, y as single)if msgbox(时间还没到，真的要交卷吗？, vbyesno + vbinformation, 提示) = vbyes then frmexcute.show unload frmexamunload meif minute = 5 and second = 0 then msgbox 您还有 5 分钟！, vbinformati

43、on, 提示 end if minute = minute - 1 second = 59end ifsecond = second - 1lbltime.caption = minute & 分 & second & 秒end sub5.3.2 选择题答题选择题答题5.3.35.3.3 设置试卷提交地址设置试卷提交地址a：窗体说明：b：主要代码：private sub cmdsave_click() if trim(txtaddr.text) = then msgbox 请输入地址!, vbinformation, 提示 exit sub else g_conn.execute update

44、 referaddr set addr = & trim(txtaddr.text) & msgbox 保存成功!, vbinformation, 提示 end ifend subprivate sub form_load() dim rsquery as new adodb.recordset rsquery.open select addr from referaddr, g_conn, adopenforwardonly, adlockreadonly if rsquery.eof = true then txtaddr.text = else txtaddr.text = trim(r

45、squery(addr) end if if rsquery.state = 1 then rsquery.closeend sub5.3.45.3.4卷号维护卷号维护a：窗体说明：b：主要代码：option explicitprivate sub cmdadd_click() g_conn.execute insert into tomeno(说明) values( & trim(txttomememo.text) & ) txttomememo.text = showdataend subprivate sub cmddel_click() if msgbox(是否要删除卷号 & data

46、grid1.columns(0) & (提示:本次操作会删除卷号包含的所有题目,并无法恢复)?, vbinformation + vbyesno, 提示) = vbyes then g_conn.execute delete from choose where 卷号 = & datagrid1.columns(0) g_conn.execute delete from fillblank where 卷号 = & datagrid1.columns(0) g_conn.execute delete from tomeno where 卷号 = & datagrid1.columns(0) sh

47、owdata else exit sub end ifend subprivate sub cmdexit_click() unload meend subprivate sub form_load() showdataend subprivate sub showdata() dim rsdata as new adodb.recordset dim strsql as string on error goto e_process if rsdata.state = 1 then rsdata.close strsql = select * from tomeno rsdata.open s

48、trsql, g_conn, adopenforwardonly, adlockreadonly set datagrid1.datasource = rsdata exit sube_process: msgbox err.description, vbcritical, 提示end sub 5.3.55.3.5题库维护题库维护 a：窗体说明：b：主要代码：添加题目private sub cmdok_click() dim dblno as double dim strsql1 as string dim strsql2 as string dim rsquery as new adodb.

49、recordset on error goto e_process 添加选择题 if optchoose.value = true then if trim(txttitle.text) = or trim(txtvalue.text) = or _ trim(txta.text) = or trim(txtb.text) = or _ trim(txtc.text) = or trim(txtd.text) = or _ trim(txtchooseanswer.text) = or cbotomeno.text = then msgbox 所有项必须填写!, vbinformation,

50、提示 exit sub end if strsql1 = select max(题号) as no from choose rsquery.open strsql1, g_conn, adopenforwardonly, adlockreadonly if rsquery.eof = true then dblno = 1 else if isnull(rsquery(no) = true then dblno = 1 else dblno = val(rsquery(no) + 1 end if end if if rsquery.state = 1 then rsquery.close s

51、trsql2 = insert into choose values( & cbotomeno.text & , & dblno & , & _ trim(txttitle.text) & , & trim(txta.text) & , & trim(txtb.text) & _ , & trim(txtc.text) & , & trim(txtd.text) & , & _ trim(txtchooseanswer.text) & , & val(txtvalue.text) & ) g_conn.execute strsql2 添加填空题 elseif optfill.value = t

52、rue then if trim(txttitle.text) = or trim(txtvalue.text) = or _ trim(txtfillanswer.text) = or cbotomeno.text = then msgbox 所有项必须填写!, vbinformation, 提示 exit sub end if strsql1 = select max(题号) as no from fillblank rsquery.open strsql1, g_conn, adopenforwardonly, adlockreadonly if rsquery.eof = true t

53、hen dblno = 1 else if isnull(rsquery(no) = true then dblno = 1 else dblno = val(rsquery(no) + 1 end if end if if rsquery.state = 1 then rsquery.close if rsquery.state = 1 then rsquery.close strsql2 = insert into fillblank values( & cbotomeno.text & , & dblno & , & _ trim(txttitle.text) & , & trim(tx

54、tfillanswer.text) & , & _ val(txtvalue.text) & ) g_conn.execute strsql2 end if if msgbox(添加成功！是否继续添加？（点击确定继续，点击取消返回主窗口！）, vbyesno + vbinformation, 提示) = vbyes then txttitle.text = txtfillanswer.text = txtchooseanswer.text = txtvalue.text = txta.text = txtb.text = txtc.text = txtd.text = else unload

55、me end if exit sube_process: msgbox err.description, vbcritical, 提示 exit subend subprivate sub cmdrenew_click() objclearend subprivate sub cmdviewquestion_click() frmviewquestion.show 1end subprivate sub form_load() dim rstomeno as new adodb.recordset dim strsql as string dim i as integer on error g

56、oto e_process optchoose.value = false optfill.value = false me.height = 1320 txtvalue.text = 0 cbotomeno.clear strsql = select 卷号 from tomeno rstomeno.open strsql, g_conn, adopenforwardonly, adlockreadonly if rstomeno.eof = true then msgbox 请先维护卷号信息!, vbinformation, 提示 exit sub else for i = 0 to rst

57、omeno.recordcount - 1 cbotomeno.additem trim(rstomeno(卷号), i rstomeno.movenext next end if if rstomeno.state = 1 then rstomeno.close exit sube_process: msgbox err.description, vbcritical, 提示end subprivate sub optchoose_click() me.height = 6260 famcontrol.top = 4975 famfillblank.visible = false famch

58、oose.visible = true me.top = screen.height / 2 - me.height / 2 objclearend subprivate sub objclear() txttitle.text = txtvalue.text = txtfillanswer.text = txta.text = txtb.text = txtc.text = txtd.text = txtchooseanswer.text = end subprivate sub optfill_click() me.height = 4300 famcontrol.top = 3045 famchoose.visible = false famfillblank.visible = true me.top = screen.height / 2 - me.height / 2 call objclear end sub5.3.65.3.6考考试时间设试时间设置置 a：窗体说明：b：主要代码：private sub cmdsave_click() if trim(txttime.text) = then msgbox 请输入考试时间!, vbinformation, 提示 exit sub else g_co