[任务2电子考卷制作步骤.docVIP

任务 2 电子考卷制作 微软开发出来的应用程序共享一种通用的自动化语言——Visual Basic For Application（VBA ）， VBA 是非常流行的应用程序开发语言。 在PowerPoint 中使用 VBA 制作简易的电子考卷并不难 。下面就来介绍如何在 PowerPoint 中制作电子考卷。 电子考卷制作，可以分成 三部分完成：第一部分为试卷头的制作，第二部分为试题的制作，第三部分为制作交卷页。 1．试卷头的制作 ① 新建一个 PowerPoint 文档，从右边“幻灯片版式”任 务窗格中，选择一个 空白版式幻灯片，保存为“试卷制作.ppt”。 ② 为了保证 VBA 能够正常运行，选择“工具｜宏｜安全性” 命令，在弹出的“安全性”对话框中选择“安全级”选项卡，选择“低”单选按钮，如图所示，单击“ 确定”按钮 。 ③ 选择“视图｜工具栏｜控件工具箱”命令，调出控件工具箱，如图 2-3-2 所示。 ④ 单击“ 控件工具箱”中的“命令按钮”，并在空白幻灯片上拖出一个按钮“Command Button1”（命令按钮），右击，在弹出的快捷菜单中选择“属性”命令，如图所示。  ⑤ 在弹出的“ 属性”面板 中将“CommandBu tton1”属性框中的Caption （标题）属性改为“单击输入学生姓名”；设置按钮背景颜色 BackColor 为“，如图 2-3-4 所示。 ⑥ 为 了能记录考生做各个题目的答案并统计其得分， 应定义公用变量 和数组 ，双击“ 单击输入学生姓名”按 钮，进入 VBA 代码 编写窗口，选择“插 入｜模块”命令，在模块编辑窗 口中输入以下代码： Public xm As String Public aw(50) As String Public sm(50) As Integer 如 图 2- 3-5 所示，其中 xm 变量用于记 录考生姓名，数 组 aw(50)用于记录考 生各题所选择的答案，s m(50)数组用于记录 各个答案的 得分。这里设 置的数组上界 是 50，如果 题目更多，可加大这个上界。 ⑦ 为 CommandButton1 按钮添加输入学生姓名的代码，如图 2-3- 6 所示。 Private Sub CommandButton1_Click() xm=InputBox(输入考生姓名：) InputBox()函数记录考生输入的姓名 End Sub 2 ．试题的制作（填空题） ① 返回到“试 卷制作.ppt”文档中 ，在CommandButton1 按钮的下方插入横排文本框，输入填空题的第1道题题目，然后单击“控件工具箱”中的“文本框”控件，然后根据需要拖出两个大小合适的文本框，调整其位置至合适，并在其 “属性”对话框中设置相关的属性，如边框类型（BorderStyle）、字体格式(font)等，如图所示。 一、填空题 1、音频主要分为 、语音和 ② 选中第一个文本框按钮“波形文件”，双击打开代码编辑窗口，输入以下代码： If TextBox1.Value=波形文件 Then aw(1)=Trim(TextBox1.Value) sm(1)=1 Else aw(1)=Trim(TextBox1.Value) sm(1)=0 End If 代 码含义 ：如果第 一个文 本框的 内容为“ 波形文 件”，那 么将第 一个文本 框的内 容存储 在aw(1)数组中，将 得分“1 ”存储在 sm(1 )数组中； 如果第一个文 本框的内 容不为“ 波形文件”， 则将第一个文本框的内容存储在 aw(1)数组 中，将得分“0”存储在 sm(1)数组中。第二个文本框按钮以次类推，如图 2-3-8 所示。 ? If TextBox2.Value = 音乐 Then aw(2) = Trim(TextBox2.Value) sm(2) = 1 Else aw(2) = Trim(TextBox2.Value) sm(2) = 0 End If ③ 选择“幻灯 片放映｜动 作按钮｜前进 或下一项命令，在文档窗口中 拖出“下一项” 按钮，在弹出的“动作 设置”对话框中，如图所示： ④ 单项选择题试题。 选择“插 入｜新幻灯片” 命令， 创建一张新幻灯 片。单项选择题目的题干部分，可以通过绘图工具栏中的文本框进行输入，然后用“控件工具箱”中的单选按钮做四个选项可以在做好一个答案以后，按住【C trl】 键不放，通过鼠标拖移进行复制得到其他三个答案。只需要修改属性中的 Caption 项即可，也就是在Caption项中输入“A.单声道、8位