网站首页  词典首页

请输入您要查询的论文：

　

标题 基于控件的PowerPoint机考试卷实现
范文
摘 要：制作机考试卷的目的在于给学生提供一个检查自己对所学知识掌握情况的较为真实的考试环境，利用PowerPoint提供的控件和VBScript脚本语言可以较好地实现该目的。制作了基于PowerPoint的机考试卷，从界面制作到代码编制，提供了一套较为完整的解决思路。
关键词：机考试卷；控件；VBScript脚本对象；宏
中图分类号：TP319
文献标识码：A 文章编号：1672-7800（2015）005-0110-03
作者简介：高鸥（1958-），男，江苏江阴人，中共湖北省委省直机关工作委员会党校副教授，研究方向为计算机辅助教学及应用。
0 引言
目前，课件在教学中的应用已十分普遍，有人将多媒体教学课件分为助教型课件、助学型课件和工具型课件三大类。其中助学型课件就是对学生的学习给予支持或帮助的教学软件，旨在为学生自我学习提供帮助[1]。机考试卷为学生提供了一个检查自己对所学知识掌握情况的较为真实的考试环境，属于助学型课件。现有基于PowerPoint的机考试卷设计存在两个方面的问题：一是在形式上采用即测即答的形式，学生做完一道后题马上就可知道对错与否及标准答案，这样使学生产生了对答案的依赖思想，不利于培养学生的独立思考能力；二是由于试卷中使用的控件分布在各张幻灯片中，为了追求互动效果，编写的代码也分散在各张幻灯片中，这不利于试卷的维护与管理。本文就如何利用PowerPoint提供的控件结合VBScript脚本语言制作一个功能较为完善的机考试卷进行探讨，并给出其功能实现主要代码。
1 试卷中使用的对象和控件
PowerPoint中的对象和控件有很多，在机考试卷的制作中需要用到的对象只有Slide（幻灯片）对象，需要用到的控件有：TextBox（文本框）、OptionButton（单选按钮）、CheckBox（复选框）、Label（标签）。
各控件分布在不同的幻灯片中，在计算成绩时要统计各控件的值，就必须知道所统计的控件具体在哪一个幻灯片中，因此代码中控件的前面要冠以控件所在的幻灯片名称，如Slide3等。
每一个控件都有各种不同的属性，在机考试卷中只用到相关控件的Value（值）属性。
为了保存测试成绩，需要建立一个文本文件作为成绩簿，将测试成绩保存其中，该文本文件保存在计算机的磁盘上。创建成绩簿则可利用Windows操作系统自带的VBScript脚本对象提供的FileSystemObject对象来实现。
2 机考试卷制作
机考试卷制作分两部分，一是各类界面制作，二是代码编写。与其它类型的机考试卷一样，用PowerPoint制作的机考试卷的题型可以包括填空题、单选题、多选题和判断题等各种客观题型。
2.1 界面制作
机考试卷的基本界面包括：登录界面、填空题界面、单选题界面、多选题界面、判断题界面、交卷界面和成绩显示界面，在此基础上还可以增加其它辅助界面。
（1）登录界面。登录界面的要素是文本框和形状按钮。文本框用来输入测试者的姓名，形状按钮按下时运行宏Login，可执行记录测试者姓名、初始化试卷中各控件的初始值、测试计时、引导测试者进入试卷等一系列操作。在登录界面还可以加入一些关于本试卷的使用说明。
（2）填空题界面。填空题界面的要素是导航栏、题面和文本框，文本框供考生填写题面中留空的内容，可以将文本框嵌在题中，也可以集中放置。如图1所示，其它试题界面与此类似。
（3）单选题界面。单选题界面的要素是导航栏、题面、待选项和单选按钮，单选按钮供考生勾选答案。
（4）多选题界面。多选题界面的要素是导航栏、题面、待选项和复选框，复选框供考生勾选答案。
（5）判断题界面。判断题界面的要素是导航栏、题面和单选按钮，单选按钮供考生勾选答案。每一道判断题设置两个单选按钮，一个是“正确”，一个是“错误”。
（6）交卷界面。交卷界面的要素是交卷提示、形状按钮，形状按钮按下时运行宏Logout。其作用为：一是结束考试，进入显示成绩界面，一旦进入显示成绩界面将不可返回各试题界面；二是评卷、计算并显示考生的考试成绩，将成绩记入成绩簿。
（7）成绩显示界面。成绩显示界面的要素是显示各题成绩和总成绩的标签。
（8）导航栏。试卷不设置翻页按钮，而是设置导航栏，其目的是便于考生知道试题量和在不同试题界面之间切换，导航栏存在于每一个答题界面。导航栏由一系列的按钮排列组成，每一个按钮与一张试题幻灯片相链接，考生可以通过点击导航栏上的按钮进入相应的试题界面[2]。导航栏的长短取决于试卷中试题的多少，每一张有试题的幻灯片均对应导航栏中的一个按钮。
各界面制作好后，应禁用单击鼠标左键切换页面的功能，幻灯片切换功能由导航栏实现。
2.2 宏编制
宏在PowerPoint的宏管理器中创建与编制，宏主要实现以下功能：对各变量进行初始化设置、计算分数、显示成绩。本例中，填空题所涉及的所有文本框在第2张幻灯片中，单选题所涉及的所有单选按钮在第3张幻灯片中，多选题所涉及的所有复选框在第4张幻灯片中，判断题所涉及的所有单选按钮在第5张幻灯片中，显示成绩所涉及的所有标签在第7张幻灯片中。记录测试成绩的变量有：Tiankong（填空）、Danxuan（单选）、Duoxuan（多选）、Panduan（判断）、Zongfen（总分）。为了保存测试成绩，本例还创建了一个名为testfile.txt的文本文件。
（1）开始宏。开始宏的名称为Login，其作用不仅要完成各变量和控件的初始化，还要执行创建成绩簿和切换到下一张幻灯片的操作。
Sub Login（）
Dim Xingming， Tiankong， Danxuan， Duoxuan， Panduan， Zongfen
Xingming = Slide1.TextBox1.Text
‘各变量及控件初始化
Tiankong = 0： Danxuan = 0
duoxuan = 0： Panduan = 0
Zongfen = 0
Slide2.TextBox1.Text = “”
Slide2.TextBox2.Text = “”
Slide2.TextBox3.Text = “”
Slide3.OptionButton1.Value = False
Slide3.OptionButton2.Value = False
Slide3.OptionButton3.Value = False
Slide3.OptionButton4.Value = False
Slide4.Checkbox1.Value = False
Slide4.Checkbox2.Value = False
Slide4.Checkbox3.Value = False
Slide4.Checkbox4.Value = False
Slide5.OptionButton1.Value = False
Slide5.OptionButton2.Value = False
Slide7.Label1.Caption = 0
Slide7.Label2.Caption = 0
Slide7.Label3.Caption = 0
Slide7.Label4.Caption = 0
Slide7.Label5.Caption = 0
‘创建成绩簿
Createafile
‘切换到下一张幻灯片
With SlideShowWindows（1）.View
.GotoSlide 2
End With
End Sub
（2）结束宏。结束宏的名称为Logout，它主要执行分数计算，同时还要完成成绩显示和保存。对于填空题，看与留空相对应的文本框中的内容是否与标准答案相符，如果相符则此题得分，否则不得分，分数累加到变量Tiankong中；对于单选题，看与正确选项相对应的单选按钮的值是否为True，如果是则此题得分，否则不得分，分数累加到变量Danxuan中；对于多选题，看与正确选项相对应的所有复选框的值是否都为True，同时与错误选项对应的所有复选框的值是否都为False，如果是则此题得分，否则不得分，分数累加到变量Duoxuan中；对于判断题，看与正确选项相对应的单选按钮的值是否为True，如果是则此题得分，否则不得分，分数累加到变量Panduan中。本例各试题界面中的试题、考生答题结果的评判及分数计算由如下代码完成：
Sub Logout（）
‘计算填空题得分
If Slide2.TextBox1.Text = “中国共产党” Then
Tiankong = Tiankong + 2
End If
If Slide2.TextBox2.Text=”马克思列宁主义” Then
Tiankong = Tiankong + 2
End If
If Slide2.TextBox3.Text = “革命的首要问题” Then
Tiankong = Tiankong + 2
End If
‘计算单选题得分
If Slide3.Option1.Value = True Then
Danxuan = Danxuan + 2
End If
‘计算多选题得分
If Slide4.CheckBox1.Value = False and Slide4.CheckBox2.Value = False and Slide4.CheckBox3.Value = True and Slide4.CheckBox4.Value = True Then
Duoxuan = Duoxuan + 2
End If
‘计算判断题得分
If Slide5.OptionButton1.Value = True Then
Panduan =Panduan + 2
End If
‘计算总分
Zongfen = Tiankong + Danxuan + Duoxuan + Panduan
‘显示成绩
Slide7.Label1.Caption = Tiankong
Slide7.Label2.Caption = Danxuan
Slide7.Label3.Caption = Duoxuan
Slide7.Label4.Caption = Panduan
Slide7.Label5.Caption = Zongfen
‘保存成绩
Writearecord
‘切换到下一张幻灯片
With SlideShowWindows（1）.View
.GotoSlide 7
End With
End Sub
（3）创建成绩簿宏[3] 。成绩簿是一个文本文件，存放在计算机磁盘上。首先判断文件是否存在，如果不存在则创建，如果存在则不创建。该宏在宏Login中被调用。
Sub Createafile（）
Set fs = CreateObject（"Scripting.FileSystemObject"）
If not fs.FileExists（“c：＼＼mydocuments＼＼testfile.txt”） Then
Set a = fs.CreateTextFile（"c：＼＼my documents＼＼testfile.txt"， True）
a.WriteLine （"考试成绩" & vbCrLf & "姓名 填空 单选 多选 判断 总分"） & vbCrLf
a.Close
End If
End Sub
（4）保存测试成绩宏。保存测试成绩是将测试成绩保存到已经创建的成绩簿中。该宏在宏Logout中被调用。
Sub Writearecord（）
Dim fs， f， ts， s
Set fs = CreateObject（"Scripting.FileSystemObject"）
Set f = fs.GetFile（"c：＼＼my documents＼＼testfile.txt"）
Set ts = f.OpenAsTextStream（forAppending， TristateUseDefault）
ts.Write vbCrLf & Xingming & " " & Tiankong & " " & Danxuan & " " & Duoxuan & " " & Panduan & “ “ & Zongfen
ts.Close
End Sub
3 结语
该试卷具有如下特点：①不使用命令按钮控件，在所有需要使用按钮操作的幻灯片中均使用形状按钮执行宏，避免了为命令按钮控件编写代码；②代码集中放置，尽管各道试题分布在不同的幻灯片中，但在所有幻灯片中均不编写代码，所有代码集中在系统模块中，通过几个宏完成试卷的初始化、阅卷、计分及保存成绩等工作，从而使得试卷便于维护；③使用导航栏，试题间的切换不通过翻页按钮实现，而是使用导航栏，使得试题切换方便，界面更简洁。
本文仅提供了机考卷应具备的最基本要素，在此基础上还可以给试卷更多的附加功能。在界面上，可以增加试卷的使用说明、各类题型的答题要求、显示各题标准答案等内容；在代码方面，可以增加考生身份验证、考试计时、操作提示、屏蔽一些键盘键的幻灯片切换功能等，从而制作出功能更加完善、可以供真实考试使用的机考试卷。
参考文献：
[1] 李康.论多媒体课件的教学设计思路[J].教育信息技术，2014（1）：9-12.
[2] 高鸥.数字化办公——干部学习使用计算机用书[M].北京：企业管理出版社，2002.
[3] [美]GREG BUCZEK，MCSD， MCT. ASP应用开发指南[M].李博，于骞，译.北京：科学出版社，2000.
（责任编辑：孙 娟）
随便看

　

科学优质学术资源、百科知识分享平台，免费提供知识科普、生活经验分享、中外学术论文、各类范文、学术文献、教学资料、学术期刊、会议、报纸、杂志、工具书等各类资源检索、在线阅读和软件app下载服务。

　

Copyright © 2004-2023 puapp.net All Rights Reserved
更新时间：2024/12/22 23:23:34