PowerPoint制作试卷教程
2017-11-15 11:49 责任编辑:佚名
作为教师,我们经常使用PowerPoint做课件进行教学,而要对学生进行测验和考试又要打字排版印试卷,考完试还要改卷,要做的功夫很多,其实,在PowerPoint中使用VBA制作简易的电子考卷并不难。下面我们就在PowerPoint中
作为教师,我们经常使用PowerPoint做课件进行教学,而要对学生进行测验和考试又要打字排版印试卷,考完试还要改卷,要做的功夫很多,其实,在ppt模板(www.pptjia.com)中使用VBA制作简易的电子考卷并不难。下面我们就在PowerPoint中制作电子考卷。更多PPT教程尽在PPT家园,快来关注吧。
第一步:新建一个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()函数记录考生输入的姓名,输入代码: ppt模板(www.pptjia.com)
Private Sub CommandButton1_Click()
xm = InputBox("输入考生姓名...")
End Sub
第三步:为每题目的各个答案输入记录答案和得分代码,双击答案A选项按钮,输入代码,如图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 & ".txt" For Append As nf ’用输入的姓名作文件名,在当前文件夹中建立一个文本文件。
For j = 1 To 50 ’把各个题号和所选择的答案按顺序写入到这个文本文件中去。
Print #nf, Str(j) & aw(j);
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键放映浏览各题的幻灯片,点选各题所选择的答案按钮,完成后按“交卷”按钮。考生交卷后,教师打开上述Open语句指定文件夹中以考生姓名作文件名的文本文件,其中记录有考生的各题答案和考试得分。
更多免费精彩的PPT模板尽在PPT家园。
热门标签更多
相关推荐
-
宏观经济学课件ppt教学设计,宏观经济学课件ppt内容怎么做?
本文介绍了宏观经济学课程的教学目标、重点、教学方法、教学过程和教学总结,旨在帮助学生掌握宏观经济学的基本概念、理论框架和分析方法。.........
2023-05-16
-
PPT幻灯片非全屏播放设置方法
在实际使用PowerPoint的演示文稿过程中,往往需要与其它程序窗口的数据配合使用以增强演示的效果,但是如果用鼠标点击PowerPoint幻灯片放映菜单中的“观看幻灯片”选项,或者直接按下“F5”快捷键,将启动默认的全屏......
2013-08-23
-
ppt山背景图怎么设计?ppt山背景图风格大全
本文介绍了PPT山背景图的设计方案、色彩搭配和推荐风格,包括整体风格、传统和品牌色彩搭配以及自然风光、卡通山峰和抽象形状三种推荐风格。.........
2023-04-27
-
Powerpoint一劳永逸解决声音视频的路径问题教程
有网友留言问到PPT中声音和视频绝对路径和相对路径的问题,这也不是两三句话就能讲清楚的,索性写一篇吧。 首先我没有研究过2007,不知道新版本有否解决这个问题,所以2007版我没有发言权。在2003及以前,很抱歉,是没有办法自己设定是否为相对路径或绝对路径。但是,一般这个做法是没有问题的。 1.新建的PPT先保存在某一文件夹下。 2.将需要的声音和视频文件保存在PPT的同一文件夹内。 3.再在P......
2018-03-10
-
高校财务培训课件ppt教学设计,高校财务培训课件ppt内容怎么做?
本文主要介绍了以高校财务培训课件ppt为主题的教学目标、教学重点、教学方法、教学过程、教学总结,通过本课程的学习,学生能够了解高校财务的基本概念和原则、掌握高校财务管理的重要原则和方法、了解高校财务管理中的风险和应对措施、掌握高校财务报表的编制和分析方法。.........
2023-06-13
-
少年中国说ppt课件教学设计,少年中国说ppt课件内容怎么做?
本文以老师的角度,以少年中国说ppt课件为主题,详细介绍了教学目标、教学重点、教学方法、教学过程和教学总结。通过学习,期望能够让学生了解少年中国运动的历史背景和意义,掌握其主要内容及影响,并培养对祖国和民族的热爱和责任感。.........
2023-05-16
-
电气安全操作培训ppt课件教学设计,电气安全操作培训ppt课件内容怎么做?
本文介绍了电气安全操作培训PPT课件的教学目标、重点、方法、过程和总结,帮助学员全面了解电气安全操作的基本知识,掌握正确的操作方法,避免电气事故的发生。.........
2023-06-15
-
看戏ppt课件教学设计,看戏ppt课件内容怎么做?
本文介绍了如何制作具有吸引力和信息量的看戏PPT课件,包括看戏PPT课件的基本概念和特点、制作PPT课件的关键技巧和步骤、运用合适的色彩和排版设计来展现演示文稿的内容以及提高学生的演讲和表达能力等方面。.........
2023-05-16
-
ppt党背景素材怎么设计?ppt党背景素材风格大全
本文介绍了PPT党背景素材的设计方案、颜色搭配和推荐风格,旨在帮助读者制作出高质量、具有吸引力的PPT背景素材。.........
2023-05-02
-
如何用PPT绘制二代旁系血亲图解
怎样用结构图的方法制作直系或旁系血亲呢?今天小编和大家分享一下二代旁系血亲图解的制作方法。ppt模板文章推荐:如何用ppt制作左右两侧同时进场的动画如何用PPT制作阶梯式减法表如何用PPT绘制螺母榕横截面1、插入—......
2021-05-10