用EXCEL制作模拟考试系统0
用Excel建立模拟考试系统
用Excel建立模拟考试系统做教师的少不了为学生制作各种各样的考试卷子，市面上虽有各种模拟考试系统，却因程序制作复杂，将老师们拒之门外。
其实根本不需要懂编程，用Excel 2003你也可以制作一个类似的系统。
一个可以自动出题、验证考号、答题后自动评分、保存记录的模拟考试系统，当然你也可以给它加上其他功能系统设计1.建立题库打开Excel 2003，建立“单选题”工作表(如图1)，在A2输入公式=ROW()-1&"."以自动生成序号，在D2输入=IF(C2="","",RAND())，选中A2:D2拖动其填充柄向下复制到其他单元格，大概有几百行也就够了，剩下的需要时再复制。
按住Ctrl键拖动工作表标签复制出两份，分别重命名为多选题、判断题。
图12.设计试卷建立“试卷”工作表，你可以按需要设置试卷，并输入单选题、多选题、判断题三个大题目，多选题需注明错、漏、多选均不得分。
并留出相应的题目位置，单选题30题(A5:C34)，多选题40(A36:C75)，判断题30题(A77:C106)。
用“自选图形/基本形状”中的棱台画一个按钮，选中在名称框中输入“出题按钮”4字回车，把它命名为“出题按钮”。
再右击此按钮选择“添加文字”，在按钮上输入“出题”2字。
同样再画一个按钮，把它命名为“评分按钮”，添加文字“评分”。
(如图2)图23.显示题目在A5输入公式=INDIRECT("单选题!R"&ROW()-3&"C"&COLUMN(),0)，选中A5复制，再选中A5:C34进行粘贴。
同样在A36输入公式=INDIRECT("多选题!R"&ROW()-34&"C"&COLUMN(),0)并复制到A36:C75，在A77输入公式=INDIRECT("判断题!R"&ROW()-75&"C"&COLUMN()并复制到A77:C106。
用EXCEL制作模拟考试系统
1.建立题库打开Excel 2010，建立“模拟考试系统-出题测试版”。
打开此工作簿，建立“单选题”工作表(如图1)，在A2输入公式=ROW()-1&"."以自动生成序号，在D2输入=IF(C2="","",RAND())，选中A2:D2拖动向下填充几百行。
按住Ctrl键单击“单选题”工作表标签拖动复制出两份，分别重命名为“多选题”（如图2）、“判断题”（如图3），分别输入题目和答案，按Alt+回车键换行。
请注意以下提示：1、以上3个工作表，在B列输入单选题题目（样式随意，但一道题只能占一个单元格），在C 列输入对应考题的答案，答案输入时注意不要有多余字符。
2、“多选题”工作表的答案必须按ABCD的顺序填写，例如答案ABD，不能写ADB、BAD、BDA、DAB、DBA，答错、少答和多答均不得分；“判断题”工作表的答案只能有两种，本题按“正确”和“错误”作为答案，其他形式如“对”和“错”、“√”和“×”也可以。
3、题库中题目数量根据实际情况而定，多多益善。
本例中题库数目为单选题60道、多选题50道、判断题45道。
图1图2图32.建立考生名单新建“考生名单”工作表，在A、B、C列分别输入序号、准考证号、考生姓名，选中B列在名称框中输入“考号”，回车确定把B列命名为考号(如图4)。
完成后可在名称管理器内看到名字为“考号”的名称，引用位置为“考生名单”工作表的B列。
图43.设计试卷建立“试卷”工作表，按需要设置试卷，序号生成方式如题库序号。
单选题30题(A5:C34)，多选题40(A36:C75)，判断题30题(A77:C106)。
在B4输入“单选题（每题1分）”，在B35输入“多选题（每题1分，错、漏、多选均不得分）”，在B76输入“判断题（每题1分）”。
用“自选图形/基本形状”中的棱台画一个按钮，选中在名称框中输入“出题按钮”4字回车，把它命名为“出题按钮”。
用E CEL制作模拟考试系统
1.建立题库打开Excel 2003，建立“单选题”工作表(如图1)，在A2输入公式=ROW()-1&"."以自动生成序号，在D2输入=IF(C2="","",RAND())，选中A2:D2拖动其填充柄向下复制到其他单元格，大概有几百行也就够了，剩下的需要时再复制。
按住Ctrl键拖动工作表标签复制出两份，分别重命名为多选题、判断题。
图12.设计试卷建立“试卷”工作表，你可以按需要设置试卷，并输入单选题、多选题、判断题三个大题目，多选题需注明错、漏、多选均不得分。
并留出相应的题目位置，单选题30题(A5:C34)，多选题40(A36:C75)，判断题30题(A77:C106)。
用“自选图形/基本形状”中的棱台画一个按钮，选中在名称框中输入“出题按钮”4字回车，把它命名为“出题按钮”。
再右击此按钮选择“添加文字”，在按钮上输入“出题”2字。
同样再画一个按钮，把它命名为“评分按钮”，添加文字“评分”。
(如图2)图23.显示题目在A5输入公式=INDIRECT("单选题!R"&ROW()-3&"C"&COLUMN(),0)，选中A5复制，再选中A5:C34进行粘贴。
同样在A36输入公式=INDIRECT("多选题!R"&ROW()-34&"C"&COLUMN(),0)并复制到A36:C75，在A77输入公式=INDIRECT("判断题!R"&ROW()-75&"C"&COLUMN()并复制到A77:C106。
在E4单元格输入公式=IF(D4=C4,1,0)，这公式用来判断如果D4中的答案与C4的标准答案一致就得1分否则为0分。
A5的公式表示对单选题工作表中同列、行数差3的单元格(A2)的引用，公式中使用了R1C1格式的单元格编号，其中3、34、75是由第一题所在的行数减2得来。
基于Excel开发窗体版模拟考试系统实例与技巧
考试系统考生登录题型选择单选题多选题判断题交卷评分图1 模拟考试系统功能框架图图2 模拟考试系统结构图图3 sheet2 表数据结构图4 sheet3 表数据结构基于E x ce l开发窗体版模拟考试系统实例与技巧高智超张志揆摘要：在考试系统的开发过程中，常用VB、JavaE E 等软件开发，对小微型考试系统多用Excel办公软件开发。
从实用性出发，用熟悉的Excel 开发了一个小微型的模拟考试系统，骤简单。
方便实用，步关键词：Excel；窗体考试系统；开发实例技巧对于考试系统的开发，可以选择的开发工具很多，笔者曾用Visual Basic 6.0 开发了一套考试系统，也曾用JavaEE 开发了在线考试系统。
虽然开发出的软件实用性很强，但是开发过程相对要艰难和复杂，开发周期较长，不论是VB 还是JavaEE都要配置数据源，与数据库进行连接，JavaEE 开发网站式考试系统时考试环境的配置较烦琐。
而Excel 作为优秀的电子表格软件，不仅具有强大的表格数据处理功能，并且Excel 提供了二次开发的环境，直接调用Excel 表格中的数据，就可以编写出功能强大的考试系统，进行无纸化考试。
虽然Excel 开发的考试系统较简单，但是开发周期短，短小精悍，对于人数不多的无纸化考试，省去了考试环境的安装与配置，既可以完成的系统结构图如图 2 所示：应用于公司短期培训考试，实用。
也可以进行教学单元测试，方便2 数据库用一个Excel 文件完成模拟考试系统的开发，新建一个名为“模拟考试系统”的Excel 文件。
其中Sheet1 表格不存放数下面以进行模拟考试系统开发的具体过程，来详细说明Excel 开发窗体系统的实例和技巧。
具体开发步骤由功能结构分析、数据库设计、窗体界面设计、试题库准备、测试考试等组成。
代码设计、据，作为考试时的激活工作表。
Sheet2 里面保存试题、答案、按顺序保存每个考生答题结果及得分，每个考生占两列。
excel制作网络考试考试调查好帮手
考试调查好帮手:用Excel打造网络考试系统编制试卷第一步，建立题库首先新建一个题库工作表，将本次考试所有备用的标准化试题（单选、多选和判断）添加进去。
如果要防止作弊设置A卷和B卷，需将题号、题目和选项都放置在不同的单元格，以便于调整题目和选项的顺序。
第二步，建立试卷然后根据考试的要求，设置试卷的眉头，准考证号和姓名由学生自己输入，而试卷类型则由教师设置，为了不让学生随意修改试卷类型，这里需要执行“数据→数据有效性”命令，设置数据区域的有效性条件为“A卷”。
由于每道题目的长度不尽相同，可将A列单元格作为考生答题区域，同样需要利用“数据有效性”对话框，设置学生只能输入A、B、C、D等选项内容，并提供下拉菜单，以便于考生答题。
在B列单元格中设置试题序号。
第三步，出题然后在C7单元格中插入字符串连接函数“=CONCATENATE(设置题库!C2,"▲A.",设置题库!D2," ▲B.",设置题库!E2," ▲C.",设置题库!F2," ▲D.",设置题库!G2)”，从“设置题库”工作表中提取试题内容，为了便于学生阅读试题，可在题目和选项之间适当地添加一些醒目的分隔符号（见图1）。
题库工作表与试卷工作表第四步：调整试卷为了方便试卷生成和答案提取工作，可以将每一道题目的全部内容都设置在同一行，如果题目中有图，还可以插入对应的题目后面，并做相应标识。
通过适当增加行高、设置底纹或加粗字体的方法来改善阅读效果。
将该工作表内容复制粘贴到一个新的工作表中（注意要用“选择性粘贴→数值”，去掉所有的公式引用），将其保存到“测试一A卷”文件夹下，名称为“测试一.xls”，试卷就生成了。
适当调整题号和选项顺序，很快就可以生成B卷。
分发收取试卷第一步，分发试卷学校的网络机房都安装有电子教室软件，这里以较为常用的极域电子教室为例，来讲解试卷文件的分发和收取方法。
实用小技能用Word和Excel自制一个题库自判断答题系统
实用小技能用Word和Excel自制一个题库自判断答题系统如果你需要做题库，并且喜欢电子答题的方法，这篇文章或许会对你有所帮助。
反正李老师班级的平均成绩高出其他班级的14分，这就是它的好处，希望这篇文章对我今后的学生有所帮助吧！注意：这篇文章涉及到Word特殊字符、通配符、Excel设置等常见问题。
如果文章存在不足或错误的地方，还请海涵~运行结果如下图所示，正确答案第一列，模拟做题的时候学生将它藏着，然后在E列进行答题，D列是在线判断系统，反复训练从而提升学生的考试分数。
哈哈~哎，确实佩服L老师啊。
使用Word调整格式假设现在存在10道《数据结构》考试题目。
1.栈和队列的共同特点是( A )。
A.只允许在端点处插入和删除元素B.都是先进后6C.都是先进先出D.没有共同点2.用链接方式存储的队列，在进行插入运算时( D ).A. 仅修改头指针B. 头、尾指针都要修改C. 仅修改尾指针D.头、尾指针可能都要修改3.以下数据结构中哪一个是非线性结构？( D )A. 队列 B. 栈 C. 线性表 D. 二叉树4.设有一个二维数组A[m][n]，假设A[0][0]存放位置在644(10)，A[2][2]存放位置在676(10)，每个元素占一个空间，问A[3][3](10)存放在什么位置？脚注(10)表示用10进制表示。
（ C ）A．688 B．678 C．692 D．6965.树最适合用来表示( C )。
A.有序数据元素B.无序数据元素C.元素之间具有分支层次关系的数据 D.元素之间无联系的数据6.二叉树的第k层的结点数最多为( D ).A．2k-1 B.2K+1 C.2K-1D. 2k-17.若有18个元素的有序表存放在一维数组A[19]中，第一个元素放A[1]中，现进行二分查找，则查找A［3］的比较序列的下标依次为( D )A. 1，2，3 B. 9，5，2，3C. 9，5，3 D. 9，4，2，38.对n个记录的文件进行快速排序，所需要的辅助存储空间大致为（ C ）A. O（1） B. O（n） C. O（1og2n） D. O（n2）9.对于线性表（7，34，55，25，64，46，20，10）进行散列存储时，若选用H（K）=K %9作为散列函数，则散列地址为1的元素有（ D ）个，A．1 B．2 C．3 D．410.设有6个结点的无向图，该图至少应有( A )条边才能确保是一个连通图。
利用excel vba制作多选题考试系统
利用excel vba制作多选题考试系统面对大量的选择题考试，如果印刷纸质试卷，考完后由教师人工阅卷，不但效率低下，而且浪费人力、物力，还很容易出错。
即使学校有条件使用机读卡考试，也会提高成本，浪费财力。
我们利用excel vba制作了选择题考试系统，使用方便，节约人力、物力，深受广大教师的欢迎。
下面我以多选题为例介绍一下具体做法，供读者参考。
一、界面设计启动exce12003，把sheetl更名为“多选题”，sheet2更名为“多选题库”，在“多选题”中输入相应的内容，把窗口右上角的“垂直拆分块”拖动到第五行的下边缘，再点击“窗口一冻结窗格”。
两个按钮以后再添加，如图1所示。
把题目录入到“多选题库”中，其中第一行为字段名，在al -hl中分别输入：章、题号、答案、题干、a. b. c.d。
第二行以下为题目，如图2所示。
录入完毕后统计一下题目总数（我这里共录入了30 3道题，考试抽取20道题，考试时间共3 0分钟），在“多选题”的下列单元格中分别输入内容（ol：总题数、pl：303. 02：抽题数、p2：20. 01：考试时间（分钟）、q2：3 0）。
选择“工具一保护一允许用户编辑区域”，把b2. d2. h5放入其中。
至此，准各工作基本完毕。
二、代码编辑限于篇幅，以下只介绍代码编辑中的技术性问题，详细请参阅http：／／ ／413660998?ptlang=2052。
按alt+fll键，进入vba编辑界面，按ctrl+r显示“工程资源管理器”窗口，按f4显示“属性”窗口。
1．启动代码简介双击“microsoft excel中对象”中的“thisworkbook”，在右侧窗口中输入代码。
这部分代码触发workbook_open()事件，主要有三项任务。
其一是利用“worksheets（”多选题库”）．visible：xlsheethidden”隐藏题库；其二是清除上一名考生保存的信息；其三是利用msgbox语句给出“考试说明和答题注意事项”。
基于Excel开发窗体版模拟考试系统实例与技巧
３３ 答题 窗体 ．
因 单 项选 择题 、多 项 选 择 题 、判 断 题 的设 计 大 同小 异 ．编 程 设 计 时 ， 多 项 选 择 题 按 钮 用 “ 选 框 ” 单项 选 择 题 和 判 断 复 ，
ｇ ￣ｔ 喊 嬲， ｈ ￣２ 磷… 藏嚣 巍 嚣蹲赣 撩 箍 鍪
都 要 配 置 数 据 源 ，与 数 据 库 进 行 连 接 ，ＪｖＥ ａａ Ｅ开 发 网 站 式 考 试 系 统 时 考 试 环 境 的 配 置 较 烦 琐 。而 Ｅ ｃｌ 为 优 秀 的 电 子 表 ｘｅ 作 格 软 件 ．不 仅 具 有 强 大 的 表 格 数 据 处 理 功 能 ，并 且 Ｅ ｃｌ 供 ｘｅ 提
。
、 一 、
实用第一 智慧 密集
… 一 ～ ， …
数 据 录入 完 成 后 ，开 发 完 成 后 在 运 行 程 序 时 ，要 将 Ｓ ｅ ｔ ｈ ｅ２ 和 Ｓ ｅｔ 作 表 的 Ｖｓ ｌ ｈｅ ３工 ｉ ｂｅ属 性 设 置 为 ２ ｘ ｈ ｅ ｅｙ ｄ ｅ ． ｉ － ｌ ｅ ｔ ｒＨｉｄ ｎ Ｓ Ｖ 即 深 度 隐藏 Ｓ ｅｔ ｈ ｅ２和 Ｓ ｅ ｔ ｈｅ ３工 作 表 。 Ｓ ｅｔ 工 作 表 的 Ｖ ｓ ｌ ｈｅｌ ｉ ｂｅ ｉ
属 性 一 — ｌｈ ｅＶ ｓｂｅ ｌ ｘＳ ｅ ｔ ｉｉｌ
题 型 选 择 ，可 以设 计 多 种 题 型供 选 择 。 本 例 中 只设 计 了 单 选 、多 选 、判 断 ３ 题 型 。 当 ３类 题 做 完 之 后 ，在 此 窗 体 点 击 种 “ 卷评分 ” 交 ，进 行 成 绩 统 计 。如 图 ６所示
１ 功 能 构 架
首 先 设 计 系 统 的 功 能 框 架 ，本 模 拟 考 试 系统 功 能 框 架 如 下
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
1.建立题库打开Excel 2010，建立“模拟考试系统-出题测试版”。
打开此工作簿，建立“单选题”工作表(如图1)，在A2输入公式=ROW()-1&"."以自动生成序号，在D2输入=IF(C2="","",RAND())，选中A2:D2拖动向下填充几百行。
按住Ctrl键单击“单选题”工作表标签拖动复制出两份，分别重命名为“多选题”（如图2）、“判断题”（如图3），分别输入题目和答案，按Alt+回车键换行。
请注意以下提示：1、以上3个工作表，在B列输入单选题题目（样式随意，但一道题只能占一个单元格），在C 列输入对应考题的答案，答案输入时注意不要有多余字符。
2、“多选题”工作表的答案必须按ABCD的顺序填写，例如答案ABD，不能写ADB、BAD、BDA、DAB、DBA，答错、少答和多答均不得分；“判断题”工作表的答案只能有两种，本题按“正确”和“错误”作为答案，其他形式如“对”和“错”、“√”和“×”也可以。
3、题库中题目数量根据实际情况而定，多多益善。
本例中题库数目为单选题60道、多选题50道、判断题45道。
图1图2图32.建立考生名单新建“考生名单”工作表，在A、B、C列分别输入序号、准考证号、考生姓名，选中B列在名称框中输入“考号”，回车确定把B列命名为考号(如图4)。
完成后可在名称管理器内看到名字为“考号”的名称，引用位置为“考生名单”工作表的B列。
图43.设计试卷建立“试卷”工作表，按需要设置试卷，序号生成方式如题库序号。
单选题30题(A5:C34)，多选题40(A36:C75)，判断题30题(A77:C106)。
在B4输入“单选题（每题1分）”，在B35输入“多选题（每题1分，错、漏、多选均不得分）”，在B76输入“判断题（每题1分）”。
用“自选图形/基本形状”中的棱台画一个按钮，选中在名称框中输入“出题按钮”４字回车，把它命名为“出题按钮”。
再右击此按钮选择“添加文字”，在按钮上输入“出题”２字。
同样再画一个按钮，把它命名为“评分按钮”，添加文字“评分”。
(如图5)图54.显示题目（如图6）在B5输入公式=INDIRECT("单选题!R"&ROW()-3&"C"&COLUMN(),0)，复制到B5:C34（可拖动A5填充）。
在B36输入公式=INDIRECT("多选题!R"&ROW()-34&"C"&COLUMN(),0)并复制到B36:C75。
在B77输入公式=INDIRECT("判断题!R"&ROW()-75&"C"&COLUMN(),0)并复制到B77:C106。
在E5单元格输入公式=IF(D5="",0,IF(D5=C5,$G$2,0))，向下填充到E34，这公式用来判断如果D5中的答案与C4的标准答案一致就得1分否则为0分，其中G2单元格内数值为1。
同理，在E36单元格输入公式=IF(D36="",0,IF(D36=C36,$H$2,0))，向下填充到E75；在E77单元格输入公式=IF(D77="",0,IF(D77=C77,$I$2,0))，向下填充到E106。
可通过更改G2、H2、I2单元格的数值来更改分值。
B5的公式表示对单选题工作表中同列、行数差3的单元格(B2)的引用，公式中使用了R1C1格式的单元格编号，其中3、34、75是由三种题型的第一题所在的行号减2得来。
这公式实现的是绝对位置引用，即不管在单选题工作表中进行插入、删除行或排序，B5显示的始终都是你从单选题B2中直接看到的内容。
因此B5:C34、B36:C75、B77:C106三个区域将分别与相应题库中最前面的30(或40)题的内容保持一致。
图65.答案限制选中单选题答题区D5:D34单击“数据/有效性”（快捷键ALT+D→L），在“允许”中选择“序列”，选中“提供下拉箭头”复选项，在“来源”中输入“A,B,C,D”，不含引号且其中逗号为半角格式(如图7)。
切换到“出错警告”选项卡，输入错误信息为“只能输入A、B、C、D中的一项，其他任何符号或空格均为非法。
”，选中“输入无效数据时显示警告”复选项，选择样式为“停止”(如图8)，确定完成设置。
图7图8同样对多选题答题区D36:D75，判断题答题区D77:D106设置数据有效性，只是“来源”要分别”和“正确,错误”。
多选题的“出错警告”换成“A,B,C,D,B,AC,AD,BC,BD,CD,ABC,ACD,BCD,ABCD一定要改成“必须按ABCD的顺序输入多选项，否则无法正确评分”。
（如图9到如图11）图9图10图116.准考证号验证选中“试卷”工作表中要输入准考证号的D2单元格，单击“数据/有效性”，在“允许”中选择“系列”，取消“提供下拉箭头”复选项，在“来源”中输入=INDIRECT("考号")（如图12）。
切换到“出错警告”选项卡，输入错误信息为“你输入的准考证号并不存在，请重新输入”，选中“输入无效数据时显示警告”，并设置样式为“停止”（如图13）。
图12图13在F2单元格输入公式=IF(D2="","",VLOOKUP(D2,考生名单!$B:$C,2,FALSE))，在D2单元格输入准考证号后会自动显示考生姓名。
（如图14）图147.随机抽题右击“出题”按钮，选择“指定宏”，在弹出窗口中，输入宏名为“出题”，位置选择当前工作簿，单击“新建”按钮，复制如下代码粘贴到框内，结果如图15，保存时将文件另存为启用宏的.xlsm 格式。
Sub 出题()If Range("D2").Value = 0 Then提示 = MsgBox("请先输入准考证号")GoTo 重来End If'如果D2为空则弹出提示要求输入准考证号并直接跳到后面的"重来:"处。
Sheets("单选题").Range("A:D").Sort Key1:=Sheets("单选题").Range("D2"), Order1:=xlAscending, Header:=xlGuessSheets("多选题").Range("A:D").Sort Key1:=Sheets("多选题").Range("D2"), Order1:=xlAscending, Header:=xlGuessSheets("判断题").Range("A:D").Sort Key1:=Sheets("判断题").Range("D2"), Order1:=xlAscending, Header:=xlGuess'这三行分别是对单选、多选和判断题工作表的A:D区域按D列随机数升序排序。
Columns("B:B").Rows.AutoFit'对B列设置最适合行高，以完整显示题目。
Range("D5").Select'定位到D5以便输入答案ActiveSheet.Shapes("出题按钮").Visible = False'隐藏出题按钮以防重复选题ActiveSheet.Shapes("评分按钮").Visible = True'显示评分按钮重来:End Sub图15试卷中的题目总是显示各题库最前面的N题，而在此对各题库按随机数进行随机排序后最前面的N题自然是随机的，也就相当于是随机抽题了。
8.成绩记录表新建“成绩记录”工作表(如图16)，在A2输入公式=NOW()，并选中A列右击从“设置单元格格式”中设置为日期格式以显示当前时间。
在B2输入公式=试卷!D2和C2输入公式=试卷!F2以显示相应数据。
D2输入公式=SUM(E2:G2)对后面三个得分进行合计，E2、F2、G2则分别输入公式=SUM(试卷!E5:E34)、=SUM(试卷!E36:E75)、=SUM(试卷!E77:E106)分别对相应题型得分进行合计。
图169.评分和记录保存右击“评分”按钮，选择“指定宏”，输入宏名“评分”，位置选择当前工作簿，单击“新建”按钮，复制如下代码粘贴到框内，结果如图17:Sub 评分()Sheets("成绩记录").Rows("3:3").Insert Shift:=xlDown'在成绩记录工作表第3行前插入一行Sheets("成绩记录").Rows("2:2").Copy'复制成绩记录工作表第2行Sheets("成绩记录").Range("A3").PasteSpecial Paste:=xlPasteValues'以数值方式粘贴到成绩记录工作表A3得分 = MsgBox("最终得分" & Range("成绩记录!D2").Value & " 其中:单选题" & Range("成绩记录!E2").Value & "、多选题" & Range("成绩记录!F2").Value & "、判断题" & Range("成绩记录!G2").Value, , "评分结果")'弹出信息框显示成绩记录!D2、E2、F2、G2的数据，标题为"评分结果"Range("D2,D5:D34,D36:D75,D77:D106").ClearContents'清除试卷工作表中输入的内容Sheets("试卷").Rows("3:500").RowHeight = 0Sheets("成绩记录").Rows("2:2").RowHeight = 0'设置题目区行高为0，以隐藏所有题目ActiveSheet.Shapes("出题按钮").Visible = TrueActiveSheet.Shapes("评分按钮").Visible = False'显示出题按钮,隐藏评分按钮ActiveWorkbook.Save'保存End Sub图1710.其他设置选中A4单击“窗口/冻结空格”以始终显示1:3行的标题和按钮。