用ppt制作试卷

用用 PowerPoint 制作试卷制作试卷 作为教师 我们经常使用 PowerPoint 做课件进行教学 而要对学生进行测验和 考试又要打字排版印试卷 考完试还要改卷 要做的功夫很多 其实 在 Powe rPoint 中使用 VBA 制作简易的电子考卷并不难 下面我们就在 PowerPoint 中 制作电子考卷 第一步 新建一个 PowerPoint 文档 命名为 考卷 保存 选择一个空 白版式幻灯片 在菜单项 视图 工具栏 Visual BASIC 调用 Visual BASIC 工具栏 并在这个工具栏中调出 控件工具箱 使用 控件工具箱 中的 工具 命令按钮 制作 姓名输入 按钮 即用鼠标点选 控件工具箱 中 的 命令按钮 并在空白幻灯片上拖出一个 CommandButton1 点鼠标 右键在 CommandButton1 的属性框中把它的 Caption 标题 属性改为 姓 名输入 在这个按钮的下方用插入文本框输入第 1 题题目 再点选 控件 工具箱 中的 选项按钮 制作选择答案 A 复制 粘贴这个选项按钮三次得 到四个选项按钮 分别它们的属性框中修改各个按钮的 Caption 属性 得到 B C 和 D 答案选项 并在下方加入一个动作按钮 为的是链接到下一题 如图 1 第二步 为了能记录考生做各个题目的答案和统计其得分 要定义公用变量 和数组 双击 输入姓名 按钮进入 VBA 代码编写窗口 选择菜单项 插入 模块 在模块编辑窗口输入代码 public xm as string public aw 50 as string public sm 50 as integer 其中 xm 变量用于记录考生姓名 数组 aw 50 用于记录考生各题所选择的 答案 sm 50 数组用于记录各个答案的得分 这里设置的数组上界是 50 如 果题目更多 可加大这个上界 用 InputBox 函数记录考生输入的姓名 输入代码 Private Sub CommandButton1 Click xm InputBox 输入考生姓名 End Sub 第三步 为每题目的各个答案输入记录答案和得分代码 双击答案 A 选 项按钮 输入代码 如图 2 图 2 其中 aw 1 用于记录第 1 题答案 sm 1 用于记录第 1 题得分 答案 B 中 的 sm 1 2 表示它是正确答案 选择这个答案得 2 分 其它答案得 0 分 到 这里 试卷的考生姓名输入和第一题就做好了 接着插入一张空白幻灯片做 第二题 除了不用 姓名输入 按钮外 其它的制作过程与第一张类似 只 要改变题目内容 答案记录用 aw 2 得分记录用 sm 2 即可 依此类推 其 它各题幻灯片类似制作 第四步 制作交卷按钮 在最后一题的幻灯片中加入一个 交卷 按钮 双击这个按钮 输入如下代码 Private Sub CommandButton1 Click Dim i j s nf As Integer nf FreeFile s 0 For i 1 To 50 累加各题得分 s s sm i Next Open xm Next j Print nf Str s 把得分写入到这个文本文件的最后 Close nf End Sub 这段代码使用 VBA 的文本文件功能 记录考生各个题目所选择的答案 并累计得分 实现自动改卷 其中语句后面的解释部份可不用输入 如果要 把记录答案和得分的文本文件保存的指定的文件夹中 只要把其中建立文本 文件的 Open 语句加上相应路径即可 例如 Open d test xm txt For Append As nf 可在 D 盘的 test 文件夹中建立这个文本文件 最后 为了防止考生使用幻灯片考卷时看到其中的代码 在代码编写视图下选择菜 单项 视图 工程资源管理器 用鼠标右键点 VBAProject 考卷 在其 属性对话框中选择 保护 标签选项输入密码实现密码保护 至此考卷制作完成 使用时考生在 PowerPoint 中打开这个 考卷 ppt 文件 按 F5 键放映浏览各题