admin 管理员组文章数量: 1086019
2024年3月28日发(作者：windows壁纸)
用PowerPoint制作电子试卷
七台河职业学院 李明江
咱们在教学中，常常利用PowerPoint制作课件，而对学生进行考试一样都用
Word2000编辑排版印制试卷，考完还要批改试卷，专门费时费力。其有效PowerPoint
中的Visual basic制作电子试卷就专门好地解决了那个问题（要紧用于选择题）。
具体操作步骤如下：
一、新建一个PowerPoint文档，命名为“试卷”保留。选择一个空白版式幻灯片，在幻灯
片中输入第1道题，然后在菜单栏项选“视图 工具栏 Visual basic”启动Visual basic ，
在“操纵工具箱”中，点击“命令按钮”，在幻灯片上制作“输入姓名”按钮。具体方式是：
用鼠标左键点击“操纵工具箱”中的“命令按钮”，然后移动鼠标到幻灯片上，拖动鼠标，
成立一个名称为“commandbutton5”的按钮，在其上单击鼠标右键，在快捷菜单当选“属
性”，在属性对话框中把“commandbutton5按钮”的caption属性值改成“输入姓名”。
在幻灯片的下方在成立四个命令按钮，别离把caption属性改成A、B、C、D答案选项，
并在其下方加一个动作按钮，动作设置为“超级链接到下一张幻灯片”（即下一题）。如图1
所示。
图1试卷样式
图2
二、为了能记录考生做各个题目的答案的统计得分，要概念公用变量和数组，双击“输
入姓名”按钮，进入Visual basic代码编写窗口，在菜单栏选“插入 模块”，在模块代
码窗口输入代码：
public xm as string
public de(40) as string
public cj(40) as integer
其中，xm变量用于记录考生姓名，数组de(40)用于记录考生各题所选择的答案，数组
cj(40)用于记录各个答案的得分。下标量40表示题目数，能够依照题量多少改之。
用inputbox()函数记录考生输入的姓名，输入代码如下：
Private Sub CommandButton5_Click()
xm = InputBox("请输入学生姓名：")
End Sub
三、为第1个题目的各个答案输入答案和得分代码，别离双击答案A、B、C、D选项按
钮，输入代码如下：
Private Sub CommandButton1_Click()
de(1) = "A"
cj(1) = 0
End Sub
Private Sub CommandButton2_Click()
de(1) = "B"
cj(1) = 2
End Sub
Private Sub CommandButton3_Click()
版权声明：本文标题：用PowerPoint制作电子试卷 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711564370a600187.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论