PowerPoint中利用VBA制作课堂小测验
2018-03-10 22:32 责任编辑:砕月
PowerPoint附带的VBA功能使其具有了制作智能课件的能力。本文就是基于PowerPoint中的VBA来制作智能的物理课堂小测验的一个例子。一、基本构想图1本例很简单,就两道题:界面如图1所示,就是题目、选项和一个按钮,在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。由界面可知,我们需要一个文本框,四个选项按钮和一个命令按钮。功能方面
一、基本构想
图1
本例很简单,就两道题:界面如图1所示,就是题目、选项和一个按钮,在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。由界面可知,我们需要一个文本框,四个选项按钮和一个命令按钮。功能方面我希望在单击“下一题”按钮时,界面能够转到下一题;单击“得分”按钮时,在成绩文本框中能够显示出这次测验的成绩就可以了。本例的两道题的正确选项分别为“B”、“C”。
二、制作过程
1、运行PowerPoint2003,单击“文件”-“保存”命令,弹出“另存为”对话框,文件名设为“测验”,单击“保存”命令。
2、单击“插入”-“文本框”-“水平”命令,这时鼠标变成“1”字型,在编辑区内单击鼠标左键拖动鼠标拉出一个方框,在框内输入第一题的题目“1.人造地球卫星的轨道半径越大,则”。
3、下面我们来制作选项。单击“视图”-“工具栏”-“控件工具箱”命令,弹出“控件工具箱”,单击“控件工具箱”上的“选项按钮”控件,鼠标变成十字型,按下鼠标左键拖动鼠标拉出一个方框。单击“控件工具箱”上的“属性”命令,弹出“属性”对话框,把“名称”改为“ti1”,把“caption”改为“A.速度越小,周期越小”,其它设为默认。如图2所示。
图2
其余的三个选项的名称分别为“ti2”、“ti3”、“ti4”,“caption”分别为“B.速度越小,周期越大”、“C.速度越大,周期越小”、“D.速度越大,周期越大”。
4、“下一题”按钮的制作。单击“控件工具箱”中“命令按钮”控件,这时鼠标变成十字型,如前在编辑区内拖拉出一个方框,松开鼠标方框会变成一个按钮。选中它,单击鼠标右键,在弹出的快捷菜单中选择“属性”命令,把“命令按钮”属性中的“caption”设为“下一题”。
这样,第一题的界面就制作完成了。第二题我们可以按照第2-4步做出来,只是要把题目、各个选项值换一下,另外需要添加一个文本框命令,其名称设为“sum”,命令按钮的名称改为“得分”。
三、添加代码
1、单击“控件工具箱”上“查看代码”控件,弹出“Microsoft visual basic”编辑器,单击“插入”-“模块”命令,弹出“模块”编辑窗口,在“模块”编辑窗口输入“public fen(2) as integer”。
2、选中第一题中“下一题”按钮,单击“控件工具箱”上“查看代码”控件,弹出“Microsoft visual basic”编辑器,在“Private Sub CommandButton1_Click()”和“End Sub”之间输入
If ti2.Value = True Then
fen(0) = 2
Else
fen(0) = 0
End If
With SlideShowWindows(1).View
.GotoSlide (2)
End With
3、选中最后一题中“得分“按钮,单击“控件工具箱”上“查看代码”控件,弹出“Microsoft visual basic”编辑器,在“Private Sub CommandButton1_Click()”和“End Sub”之间输入
If ti3.Value = True Then
fen(1) = 2
Else
fen(1) = 0
End If
Dim i, s
s = 0
For i = 0 To 2
s = s fen(i)
Next
sum = s
好了,退出“Microsoft visual basic”编辑器,按F5试一下
热门标签更多
相关推荐
-
PPT制作技巧:如何巧用PPT图片另存功能批量制作年会奖劵?
PPT制作技巧:如何巧用PPT图片另存功能批量制作年会奖劵? 到了年底各种年会活动都要开始筹备了,QQ群的小伙伴有些开始用PS做起了年会抽奖劵等设计工作,抽奖劵设计好了,但发现要在抽奖劵上写编号就麻烦了。公司那么多人,一个一个写编号另存为岂不是浪费时间,有没有什么好方法啊?群里的小伙伴们分分献计,有说用Word邮件合并,有说用PPT的另存成为图片功能,邮件合并功能操作比较复杂,非常适合集团公司人数......
2018-03-23
-
大班教学课件PPT模板教学设计,大班教学课件PPT模板内容怎么做?
本篇文章介绍了大班教学PPT模板的设计,包括教学目标、重点、方法、过程和总结。通过这些内容的详细阐述,可以帮助老师更好地利用PPT进行大班教学。.........
2023-06-03
-
-
政府ppt课件制作教学设计,政府ppt课件制作内容怎么做?
本篇文章为政府PPT课件制作教学指南,内容详细介绍了政府PPT课件的设计原则、技巧、流程、表现形式、审美标准等方面的知识点,并提供了案例分析和实践操作,帮助读者全面掌握政府PPT课件制作的基本方法和注意事项。.........
2023-05-25
-
散步教案ppt课件教学设计,散步教案ppt课件内容怎么做?
本文介绍了一份散步教案ppt课件,包括散步锻炼的好处、正确的散步姿势和呼吸方法、散步的时间和路线选取等方面的知识点。学生通过本节课的学习,可以更好地掌握散步锻炼的重要性和正确的散步方式,从而达到更好的身体健康效果。.........
2023-05-19
-
等差数列课件ppt教学设计,等差数列课件ppt内容怎么做?
本文介绍了以等差数列课件PPT为主题的教学目标、重点、方法、过程和总结,帮助学生掌握等差数列的概念、性质和应用。.........
2023-05-18
-
微课ppt制作课件教学设计,微课ppt制作课件内容怎么做?
本文是一篇微课PPT制作教学指南,介绍了微课PPT制作的基本概念、流程、技巧和方法,旨在帮助学生掌握独立设计并制作高质量微课PPT的能力。.........
2023-05-25
-
红包制作教学课件ppt教学设计,红包制作教学课件ppt内容怎么做?
本文详细介绍了制作红包的基本知识和技巧,通过讲授和实践相结合的教学方法,帮助学生掌握红包的折叠、粘贴和装饰等技巧。同时,本文还鼓励学生通过手工艺术发掘自己的潜能和爱好,丰富自己的生活。.........
2023-05-25
-
苏教版三下课件ppt课件ppt教学设计,苏教版三下课件ppt课件ppt内容怎么做?
本文介绍了苏教版三下课件ppt的教学目标、教学重点、教学方法、教学过程和教学总结。通过本节课的教学,学生能够轻松掌握制作ppt的基本方法和技巧,提高自己的信息技术素养。.........
2023-05-21
-
办公软件课件ppt模板教学设计,办公软件课件ppt模板内容怎么做?
本课程旨在帮助学生掌握办公软件课件ppt模板的设计技巧和规范,让学生具备基础的ppt模板设计能力,能够根据不同的需求设计出符合要求的ppt模板。.........
2023-05-28