利用VB 实现基于Excel 和W ord 的试题库管理系统Ξ

GB6017.1-20起重机械安全规程-第1部分

1h

一个基于Excel VBA的部门管理系统的设计与实现一、实验目的：

通过本项目实践，掌握数据制作的添加、删除、更新和查询基本方法的应用。

二、实验意义：

以Excel作为数据库，制作一个部门管理模块，通过界面操作，进行方便地部门管理。对以后的相关数据管理应用具有一定的参考性和实用性。

三、模块开发技术

１、列表框ListIndex（索引）方法及属性ColumnCount(列数)，RowSource(数据源)的运用

２、数据精确查询应用；

３、ActiveWorkbook.Save(工作表保存方法)的应用；

４、Rows.Delete(删除记录方法)应用；

５、窗体加载事件的应用。

四、实验步骤：

请先完成程序填空

１、打开DepartmentInfo.xls文件，进入VBE环境，并插入一个用户窗体。界面设计如图１所示：

图１ 部门管理系统界面设计

该界面包括两个框架控件，一个外列表框控件，三个标签控件，三个文字框控件和五个命令按钮控件。框架控件、标签控件和命令按钮控件通过其Caption属性更改文字，其中五个命令按钮还要将其属性中的“名称”属性的文字改成与“Caption”文字相同，这样在编写代码时就不会乱了。 GB6017.1-20起重机械安全规程-第1部分

2h ２、编写窗体加载事件。

双击窗体(注意：不能对准窗体中的某个控件双击)，即窗体中除控件以外的空白地方。进入代码编写，首先在定义两个全局变量：

Dim cs As Long

Dim rs As Long

然后在通用栏下拉框中选择UserForm，在右边栏下拉框中选择Initialize，则自动生成：

Private Sub UserForm_Initialize()

End Sub

在Sub与End Sub之间输入如下代码：

Worksheets("Sheet1").Select

息　２０１４年２月１８日　ＶＢＡ莅Ｗｏｒｄ巾曲皮用　文，余姝华　留　生　试卷　

摘要：教师一般应用Ｗｏｒｄ来命制试卷，但收集试题和排版工作量非常繁重，利用ＶＢＡ在Ｗｏｒｄ中的应用，开发一个自带试题　库，教师可以对题库进行添加、修改和删除试题等功能；并能够对所选择的题目进行自动排版。教师可以高效完成一份高质量的试卷，　彻底减轻教师命制试题的工作量。　关键词：Ｗｏｒｄ；ＶＢＡ；自动排版　目前大多数学校、教师利用Ｗｏｒｄ命制试卷，需要花费大量的　时间来收题、排版，而且排版后的试卷格式也不标准。通过ＶＢＡ　ｆｏｒ　Ｗｏｒｄ开发一款自带试题库和试卷排版功能的系统，教师可以　对题库中的试题进行添加、修改和删除等管理，对选好的试题进　行自动排版，生成标准的、统一的试卷，每位教师都可以在短时间　内高效地完成一份高质量的试卷。　一、试卷结构分析　以语文试卷为例，纸型为Ａ３，方向为横向，版面分左右两栏，　左边最上面一般为一级标题并居中显示某次语文考试试卷。试卷　正文大致包括：基础知识、现代文、文言文和写作四大块内容。基　础知识部分主要是：选择和填空，在试卷排版中题目需要左缩；现　代文部分主要包含：正文内容和正文后的习题，正文内容标题需　要居中，正文首行缩进２个字符；文言文部分的排版和现代文基　本相同；写作部分排版比较麻烦的是作文格子的编排，它是上下　行之间要空开一行的表格。　二、系统功能模块分析　本系统主要有三大功能模块：添加试题、修改试题（包括修改　和删除）和试卷自动生成。数据库采用Ａｃｃｅｓｓ，主要考虑它移植方　便、便于管理。试题存放在数据库中，在对大量试卷分析时发现，　一个大题中有若干个小题，而每个大题所含的小题数都是不同　的，所以在设计数据库时采用了多表并建立关系。　三、系统功能的实现　１．添加试题　在系统设计需求分析中考虑到教师在命制试卷时，收集试题　耗时，试题的保密性差，所以在本系统中直接设计了试题库。题库　可以对试题进行有效地保密，因为题库量很大，组卷时按条件随　机组卷，猜题押宝命中概率很小。有了题库，可以马上启用备用的　平行试卷，或在考试前的最后时刻随机决定平行试卷中的一套作　为正式考卷，从而达到出其不意的效果。试题库极大地方便了实　现计算机科学的管理（修改、增删、试卷合理生成、浏览、打印等），　又因试卷的随机生成，提高了试卷的保密程度，从而进一步提高　了考试的效果，充分体现出考试的严肃性和公平性。　２．修改试题　该模块主要实现两个功能：删除和修改。教师对该系统库中的　试题可以做出相应的修改，或者对不必要的试题进行删除操作。　这一模块与上面的添加试题模块都是引用ＡＤＯ连接ＡＣ—　ＣＥＳＳ数据，并对数据保存、修改和删除。　３．自动排版并生成试卷　该模块主要有两块内容：试卷版面设置和试卷试题设置。　（１）试卷版面设置　用户可以在“试卷纸张大小”下拉框中选择相应的纸型，程序　１２４团圆　中主要是通过ＶＢＡ的Ａｐｐｌｉｃａｔｉｏｎ对象的ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．ＰａｇｅＳｅｔ—　ｕｐ．ＰａｐｅｒＳｉｚｅ属Ｊ睦设置试卷纸张的大小；在“请输入试卷大标题”文　本框中输入将要生成试卷的标题。比如，“２０１３学年第二学期九年　级第一次语文月考”，我们在程序中是通过Ａｐｐｌｉｃａｔｉｏｎ对象的如　下属性实现：　．ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．ＰａｇｅＳｅｔｕｐ．ＰａｐｅｒＳｉｚｅ＝ｐａｐＴｙｐｅ（‘‘Ａ３”）　‘设置试卷页面纸型　Ｗｉｔｈ　Ｓｅｌｅｃｔｉｏｎ．ＰａｇｅＳｅｔｕｐ．ＴｅｘｔＣｏｌｕｍｎｓ　‘对页面进行分栏　．ＳｅｔＣｏｕｎｔ　ｎｕｍｃｏｌｕｍｎｓ：＝２　．ＥｖｅｎｌｙＳｐａｅｅｄ＝Ｔｒｕｅ　．ＬｉｎｅＢｅｔｗｅｅｎ＝Ｆａｌｓｅ　．Ｗｉｄｔｈ＝ＣｅｎｔｉｍｅｔｅｒｓＴｏＰｏｉｎｔｓ（５．８４）　．Ｓｐａｃｉｎｇ＝ＣｅｎｔｉｍｅｔｅｒｓＴｏＰｏｉｎｔｓ（２．９６）　Ｅｎｄ　Ｗｉｔｈ　．Ｓｅｌｅｃｔｉｏｎ．Ｓｔｖ１ｅ＝ＡｃｔｉｖｅＤｏｃｕｍｅｎｔ．Ｓｔｙｌｅｓ（“标题１”）　‘设置为“标题１”　．Ｓｅｌｅｃｔｉｏｎ．Ｆｏｎｔ．Ｎａｍｅ＝“黑体”　‘字形　．Ｓｅｌｅｃｔｉｏｎ．ＰａｒａｇｒａｐｈＦｏｒｍａｔ．Ａｌｉｇｎｍｅｎｔ＝ｗｄＡｌｉｇｎＰａｒａｇｒａｐｈＣｅｎｔｅｒ　‘对标题居中对齐　．Ｓｅｌｅｃｔｉｏｎ．Ｆｏｎｔ．Ｓｉｚｅ＝１８‘标题字号１８号　．Ｓｅｌｅｃｔｉｏｎ．ＴｙｐｅＴｅｘｔ“２０１３学年第二学期九年级第一次月考＋　Ｃｈｒ（１Ｏ）”‘设置一级标题，Ｃｈｒ（１０）为换行　（２）试卷试题设置　该模块分为四大块：基本知识（选择题和填空题）、现代文、文　言文（文言文阅读和古诗）和写作。教师按照试卷的要求选择需要　的题型，在对应题型下输入题数，若输入的题数大于系统库中的　题数，则系统会有相应提示。　试题是从试题库中随机抽取的，并要求不能再次抽中，所以，　在随机生成函数Ｒｎｄ前加上Ｒａｎｄｏｍｉｚｅ函数，这样可以避免抽到　的试题被重复抽中。　（３）试卷的卷面内容排版　试卷的排版主要包括试卷的标题、字体大小及段落格式等方　面。这些都可以利用Ａｐｐｌｉｃａｔｉｏｎ对象中的以下性能来实现自动　排版。　．Ｓｅｌｅｃｔｉｏｎ．Ｓｔｖｌｅ：ＡｃｔｉｖｅＤ０ｃｕｍｅｎｔ．Ｓｔｙｌｅｓ（“标题２”）　‘设置二级标题　．Ｓｅｌｅｃｔｉｏｎ．Ｆｏｎｔ．Ｓｉｚｅ＝ｌ２　‘二级标题字号为１２号　．Ｓｅｌｅｃｔｉｏｎ．Ｆｏｎｔ．Ｎａｍｅ＝“黑体”　‘

考试系统 考生登录 题型选择 单选题 多选题 判断题 交卷评分 图 1 模拟考试系统功能框架图 图 2 模拟考试系统结构图

图 3 sheet2 表数据结构 图 4 sheet3 表数据结构

基于 Excel 开发窗体版模拟考试系统实例与技巧 高智超 张志揆 摘 要： 在考试系统的开发过程中， 常用 VB、 JavaEE 等软件开发， 对小微型考试系统多用 Excel 办公软件开发。 从实用性出发， 用熟悉的 Excel 开发了一个小微型的模拟考试系统， 骤简单。 方便实用， 步 关键词： Excel； 窗体考试系统； 开发实例技巧 对于考试系统的开发， 可以选择的开发工具很多， 笔者曾 用 Visual Basic 6.0 开发了一套考试系统 ， 也曾用 JavaEE 开 发 了在线考试系统。 虽然开发出的软件实用性很强， 但是开发过 程相对要艰难和复杂， 开发周期较长， 不论是 VB 还是 JavaEE 都要配置 数 据 源 ， 与数据库进行连接 ， JavaEE 开 发 网 站 式 考 试系统时考试环境的配置较烦琐。 而 Excel 作为优秀的电子表 格软件， 不仅具有强大的表格数据处理功能， 并且 Excel 提供 了二次开发的环境， 直接调用 Excel 表格中的数据， 就可以编 写出功能强大的考试系统， 进行无纸化考试。 虽然 Excel 开发 的考试系统较简单 ， 但是开发周期短 ， 短 小 精 悍 ， 对 于 人 数 不多的无纸化考试 ， 省去了考试环境的安装 与 配 置 ， 既 可 以 完成的系统结构图如图 2 所示：

应用于公司短期培训考试 ， 实用。 也可以进行教学 单 元 测 试 ， 方 便 2 数据库 用一个 Excel 文件完成模拟考试系统的开发， 新建一个名 为 “模拟考试系统” 的 Excel 文件。 其中 Sheet1 表格不存放数 下面以进行模拟考试系统开发 的 具 体 过 程 ， 来 详 细 说 明 Excel 开发窗体系统的实例和技巧 。 具体开发步骤由功能结构 分析、 数据库设计、 窗体界面设计、 试题库准备、 测试考试等组成。 代码设计、 据， 作为考试时的激活工作表 。 Sheet2 里面保存试题、 答案、 按顺序保存每个考 生 答 题 结果及 得分 ， 每 个 考 生 占 两 列 。 Sheet3 保存考生姓名、 考号及总成绩。 输入所有的考题内容及 考生数据， 如图 3， 图 4 所示。 1 功能构架 首先设计系统的功能框架， 本模拟考试系统功能框架如下 图 1 所示： 图 5 登录窗体示例 图 6 题型选择窗体示例 图 7 滚动条属性设置示例 图 8 单项选择题窗体设计示例

基于Excel、VB的学生考试证制作系统的设计

宋云峰

【期刊名称】《辽宁石油化工大学学报》

【年(卷),期】2010(030)004

【摘 要】为了解决学生考试证制作处理数据量、工作量大和劳动强度高的问题,利用Office软件中的Excel、Word和可视化编程软件Visual Basic 6.0开发了一个操作简单、处理数据快捷,具有很好的通用性的数据处理系统-学生考试证制作系统.通过Excel收集、整理数据,用Word制作文档模板,利用VB作为编成工具,将Excel中的标准数据和目录存储的照片数据输出为标准的Word文档,以备打印输出或者存档.经过实际使用该系统,该方法提高了工作效率,解决了工作中的难题.

【总页数】4页(P59-62)

【作 者】宋云峰

【作者单位】辽宁石油化工大学,辽宁抚顺,113001

【正文语种】中 文

【中图分类】TP319

【相关文献】

1.基于ExcelVba的身份证信息查询系统的设计与实现 [J], 黄钢;

2.用Excel统计完学生考试成绩后，许多教师一般是用编写VBA程序或录制宏的办法来给每位学生打印成绩条，但非常麻烦，能用简单的方法打印吗？ [J], 吕维智

3.用Excel VBA设计卡证制作打印系统 [J], 张贻忠;洪成波 4.Excel基于VBA连续获取身份证读卡器信息的方法 [J], 黄绍龙;蒋维

5.基于Excel VBA的身份证阅读器二次开发在考务管理中的应用 [J], 苏永瀚;王宇丽

因版权原因，仅展示原文概要，查看原文内容请购买