交互填空题技巧PPT(选择题
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
在PowerPoint中使用VBA制作课件实现 高级交互功能 PowerPoint中的VBA可 以实现很多复杂的交互，其强大的编 程能力让课件的制作简单快捷。制作 出来的PPT课件具有交互性和灵活性， 并且使课程教学富有生动性和趣味性.
VBA是什么?
直到90年代早期,使应用程序自动化还是充满 挑战性的领域.对每个需要自动化的应用程序, 人们不得不学习一种不同的自动化语言.例如: 可以用EXCEL的宏语言来使EXCEL自动化,使用 WORD BASIC使WORD自动化,等等.微软决定让 它开发出来的应用程序共享一种通用的自动化 语言----VisualBasic For Application(VBA),可以认为VBA是非常流行 的应用程序开发语言VISUAL BASIC的子集.实 际上VBA是寄生于VB应用程序的版本.
2.用VBA法做一多选题
第二步：先右击题目的正确答案
“2008年8月8日”，选择“自定义 动画”命令，接着在打开“自定义 动画”面板中，单击“添加效果” 按钮右边的下拉箭头，选择“进 入”→“盒状”（也可以选择自己 所喜欢的其它动画效果)。
第三步：右击“自定义动画”面板“速度” 下边第一道题目的正确答案——“2008年8月8 日”，选择“计时”，打开“盒状”对话框 并切换到“计时”选项卡，接着单击“触发 器”按钮，勾选触发器下边的“单击下列对 象时启动效果”单选按钮，最后单击该单选 按钮右边的下拉箭头，选择第一道题的题目 作为第一道题目答案的“触发器”，如图。
3.添加答案：插入“标注”图片，
并输入“正确、错误”及相关提示 的字符（如“回答错误！再想一 想。”
“回答正确！祝贺你！”），并
设置好字体、字号、字符颜色等。
4.设置交互：
选中这个文本框，执行“幻灯片放映→自 定义动画”命令，展开“自定义动画”任 务窗格，单击“添加效果”右侧的下拉按 钮，在下拉列表中选择“进入→飞入”选 项；再按“方向”右侧的下拉按钮，在列 表中选择“自左侧”选项，在“自定义动 画”选择“飞入”，打开“飞入”对话框.
这样当幻灯片放映时，单击第一道题 的题目时，题目的正确答案就会以先 前设定的盒状动画效果出现。 设置“触发器”时，“触发器”的对 象选择要有一定的规律，否则就会乱 七八糟了，造成题目的正确答案该出 来的没有出来，不该出来的出来了， 从而影响讲课效果。
北京奥运时间
2008年8月8日
2.触发器做单选题
第一个命令按纽
But1.Value = False But2.Value = False But3.Value = False But4.Value = False
第二个命令按纽
If MsgBox("是否继续", vbYesNo + vbQuestion, 下一 题) = vbYes Then With SlideShowWindows(1).View .GotoSlide 2 End With End If
下列关于分子、原子、离子叙述正确的是：
回答错误！ 再想一想。
A. 原子是一种不能再分的微粒。
回答错误！ 再想一想。
B. 阳离子得到电子后一定变成原子。
回答正确！ 祝贺你！
C. 离子是构成物质的一种微粒。 回答错误！
再想一想。
D. 分子是化学变化中的最小微粒。
操作要点
1.选种文本（被触发对象）——右键——自 定义动画——添加效果——进入——出现 单击有小鼠标的任务格，会在该格右侧出现 下拉按钮，单击，在弹出的下拉列表中选择 “计时”命令 2.计时——触发器——单击下列对象时启动 效果——选定触发对象——确定 3.再次选种文本——右键——自定义动画— —添加效果——退出——消失 （如有多个被触发对象，可重复操作，可参 看效果）
选项按纽
名称:BUTI,BUT2,BUT3,BUT4 CAPTION:改为A、B、C、D 第一个命令按纽（CommandButton）： “重新选择” 第二个命令按纽“CommandButton”： “下一题”
第一个选项按纽 If But1.Value = True Then ex = MsgBox("选择 正确！恭喜你！", vbOKOnly) 第二个选项按纽 If But2.Value = True Then ex = MsgBox("选择 错误！请再想想！", vbOKOnly) 第三个选项按纽 If But3.Value = True Then ex = MsgBox("选择 错误！请再想想！", vbOKOnly) 第四个选项按纽 If But4.Value = True Then ex = MsgBox("选择 错误！请再想想！", vbOKOnly)
1.制作试题：用文本框输入填空题的 题目题干内容。再点击“视图→工 具栏→控件工具箱”展开“控件工 具箱”工具条。单击工具条上的 “文本框”按钮，在填空题的空格 处拖拉出一个控件文本框（供写答 案）。
交互式课件示例
单选题示例：
世界上第一台计算机ENIAC诞生在：
确定
多选题示例：
著名导演张艺谋执导的电影有 ：
Powerpoint制作选 择、填空题技巧
教师在课堂教学时，往往会在课堂 的最后给学生留下几道练习题，让 学生们练习。如何用PPT制作好的 练习题呢？如何利用 PowerPoint2003的动画触发器和 VBA功能来实现？
1.触发器做填空题
第一步：打开PowerPoint 2003（其它 版本操作类似），先建立一个空白幻 灯片，然后单击“插入”→“文本 框”→“水平”命令，插入一个文本 框，接着在文本框中输入第一道题的 题目，按照同样的方法再插入一个文 本框，输入题目的正确答案并设计好 字体的颜色。
3.插入代码：双击插入的命令按钮打开 VBA编辑窗口，在“PrivateSub CommandButton1_Click()”和“EndSub” 语句之间输入如下代码：（Sub是方法的 开始 EndSub是方法的结束）
If
TextBox1.Text="物理"Then dd=MsgBox("你填对了 ",vbOKCancel,"结果") Else dd=MsgBox("你填错了 ",vbOKCancel,"结果") EndIf
4.效果预览：制作完成了，赶快按下F5功 能键来看一下效果吧（播放时需启用宏）
小提示:VBA文本框属性的修改选中文本框， 单击工具条上的“属性”，打开“文本框” 属性对话框，选中“font”选项，然后点击 后面的“…”号，即可打开“字体”对话框 设置字体等。
MsgBox是弹出对话框的命令， 而代码中的“dd”和相应的其他 文字为自定义变量，可以用其他 字母代码和文字代替。
切换到“计时”标签卡，单击 “触发器”按钮，选中“单击下列 对象时启动效果”选项，并在下拉 列表中选择“形状”选项（即第一 个备选答案对应的“形状”项）， “确定”返回。
5.制作完成：按此文本框的操作， 设置好另外3个文本框的动画及 触发器，制作完成。
3.VBA法来做填空题
（VBA,
Visual Basic for application一种编程语言）
（播放时需启用宏---单击“视图”选项卡，
在工具栏的VB最左边有一个“运行宏”的 图标。选择运行即可。 若没有宏，则创建 一个，再运行 ，另存为加载宏）
4.VBA法来做选择题
题干(一般用普通文本框)
选项按纽（optionButton一般有
ABCD四个选项） 命令按纽（commandButton一般有 “查看结果”和“进入下一张”两 个） 都可以添加代码 （不能正常播放时需启用宏）
具体操作
以一道选择题为例，启动
PowerPoint2003，新建一空白幻灯 片，利用文本框，输入题干内容。
1.制作模板：插入文本框,添加第一 个备选答案,并设置好字体、字号、 字符颜色，调整“动作按钮”的大 小和位置。 (动作按钮亦可) 2.复制答案：选中这个按着Ctrl拖 拉鼠标，快速复制一个按钮（共操 作3次，复制3个），并修改字符为 其他备选项答案。
1.奠定今天我国版图基础的朝代是：
唐朝 元朝 秦朝 清朝
重新选择 下一题
练习题
1．上级主管部门派了专家组来我校指 导学科建设工作，在欢迎仪式上需欢 迎的字幕，请同学们协助制作完成。 要求：（1）分别用PPT和Flash软件 制作；（2）欢迎字幕为“热烈欢迎各 位专家莅临我校指导工作！” ；（3） 文字从左至右不停滚动；（4）字幕要 有背景；（5）整体协调美观。
红高粱
英雄
十面埋伏
提交答案
三枪拍案惊奇
填空题示例： 北京奥运会Hale Waihona Puke Baidu吉祥物是
122
提交答案
判断题示例：
查看结果
数据结构就是研究数据库结构的课程。
请判断
2.设置命令：单击“命令按钮”按钮并 画一个按钮来。选中此按钮，单击 “属性”，展开“命令按钮”属性对 话框，将其中的“标题Caption ”修 改为“查看正确答案”（具体修改内 容，请根据需要确定），并关闭属性 窗口。 命令按纽（commandButton）
VBA是什么?
直到90年代早期,使应用程序自动化还是充满 挑战性的领域.对每个需要自动化的应用程序, 人们不得不学习一种不同的自动化语言.例如: 可以用EXCEL的宏语言来使EXCEL自动化,使用 WORD BASIC使WORD自动化,等等.微软决定让 它开发出来的应用程序共享一种通用的自动化 语言----VisualBasic For Application(VBA),可以认为VBA是非常流行 的应用程序开发语言VISUAL BASIC的子集.实 际上VBA是寄生于VB应用程序的版本.
2.用VBA法做一多选题
第二步：先右击题目的正确答案
“2008年8月8日”，选择“自定义 动画”命令，接着在打开“自定义 动画”面板中，单击“添加效果” 按钮右边的下拉箭头，选择“进 入”→“盒状”（也可以选择自己 所喜欢的其它动画效果)。
第三步：右击“自定义动画”面板“速度” 下边第一道题目的正确答案——“2008年8月8 日”，选择“计时”，打开“盒状”对话框 并切换到“计时”选项卡，接着单击“触发 器”按钮，勾选触发器下边的“单击下列对 象时启动效果”单选按钮，最后单击该单选 按钮右边的下拉箭头，选择第一道题的题目 作为第一道题目答案的“触发器”，如图。
3.添加答案：插入“标注”图片，
并输入“正确、错误”及相关提示 的字符（如“回答错误！再想一 想。”
“回答正确！祝贺你！”），并
设置好字体、字号、字符颜色等。
4.设置交互：
选中这个文本框，执行“幻灯片放映→自 定义动画”命令，展开“自定义动画”任 务窗格，单击“添加效果”右侧的下拉按 钮，在下拉列表中选择“进入→飞入”选 项；再按“方向”右侧的下拉按钮，在列 表中选择“自左侧”选项，在“自定义动 画”选择“飞入”，打开“飞入”对话框.
这样当幻灯片放映时，单击第一道题 的题目时，题目的正确答案就会以先 前设定的盒状动画效果出现。 设置“触发器”时，“触发器”的对 象选择要有一定的规律，否则就会乱 七八糟了，造成题目的正确答案该出 来的没有出来，不该出来的出来了， 从而影响讲课效果。
北京奥运时间
2008年8月8日
2.触发器做单选题
第一个命令按纽
But1.Value = False But2.Value = False But3.Value = False But4.Value = False
第二个命令按纽
If MsgBox("是否继续", vbYesNo + vbQuestion, 下一 题) = vbYes Then With SlideShowWindows(1).View .GotoSlide 2 End With End If
下列关于分子、原子、离子叙述正确的是：
回答错误！ 再想一想。
A. 原子是一种不能再分的微粒。
回答错误！ 再想一想。
B. 阳离子得到电子后一定变成原子。
回答正确！ 祝贺你！
C. 离子是构成物质的一种微粒。 回答错误！
再想一想。
D. 分子是化学变化中的最小微粒。
操作要点
1.选种文本（被触发对象）——右键——自 定义动画——添加效果——进入——出现 单击有小鼠标的任务格，会在该格右侧出现 下拉按钮，单击，在弹出的下拉列表中选择 “计时”命令 2.计时——触发器——单击下列对象时启动 效果——选定触发对象——确定 3.再次选种文本——右键——自定义动画— —添加效果——退出——消失 （如有多个被触发对象，可重复操作，可参 看效果）
选项按纽
名称:BUTI,BUT2,BUT3,BUT4 CAPTION:改为A、B、C、D 第一个命令按纽（CommandButton）： “重新选择” 第二个命令按纽“CommandButton”： “下一题”
第一个选项按纽 If But1.Value = True Then ex = MsgBox("选择 正确！恭喜你！", vbOKOnly) 第二个选项按纽 If But2.Value = True Then ex = MsgBox("选择 错误！请再想想！", vbOKOnly) 第三个选项按纽 If But3.Value = True Then ex = MsgBox("选择 错误！请再想想！", vbOKOnly) 第四个选项按纽 If But4.Value = True Then ex = MsgBox("选择 错误！请再想想！", vbOKOnly)
1.制作试题：用文本框输入填空题的 题目题干内容。再点击“视图→工 具栏→控件工具箱”展开“控件工 具箱”工具条。单击工具条上的 “文本框”按钮，在填空题的空格 处拖拉出一个控件文本框（供写答 案）。
交互式课件示例
单选题示例：
世界上第一台计算机ENIAC诞生在：
确定
多选题示例：
著名导演张艺谋执导的电影有 ：
Powerpoint制作选 择、填空题技巧
教师在课堂教学时，往往会在课堂 的最后给学生留下几道练习题，让 学生们练习。如何用PPT制作好的 练习题呢？如何利用 PowerPoint2003的动画触发器和 VBA功能来实现？
1.触发器做填空题
第一步：打开PowerPoint 2003（其它 版本操作类似），先建立一个空白幻 灯片，然后单击“插入”→“文本 框”→“水平”命令，插入一个文本 框，接着在文本框中输入第一道题的 题目，按照同样的方法再插入一个文 本框，输入题目的正确答案并设计好 字体的颜色。
3.插入代码：双击插入的命令按钮打开 VBA编辑窗口，在“PrivateSub CommandButton1_Click()”和“EndSub” 语句之间输入如下代码：（Sub是方法的 开始 EndSub是方法的结束）
If
TextBox1.Text="物理"Then dd=MsgBox("你填对了 ",vbOKCancel,"结果") Else dd=MsgBox("你填错了 ",vbOKCancel,"结果") EndIf
4.效果预览：制作完成了，赶快按下F5功 能键来看一下效果吧（播放时需启用宏）
小提示:VBA文本框属性的修改选中文本框， 单击工具条上的“属性”，打开“文本框” 属性对话框，选中“font”选项，然后点击 后面的“…”号，即可打开“字体”对话框 设置字体等。
MsgBox是弹出对话框的命令， 而代码中的“dd”和相应的其他 文字为自定义变量，可以用其他 字母代码和文字代替。
切换到“计时”标签卡，单击 “触发器”按钮，选中“单击下列 对象时启动效果”选项，并在下拉 列表中选择“形状”选项（即第一 个备选答案对应的“形状”项）， “确定”返回。
5.制作完成：按此文本框的操作， 设置好另外3个文本框的动画及 触发器，制作完成。
3.VBA法来做填空题
（VBA,
Visual Basic for application一种编程语言）
（播放时需启用宏---单击“视图”选项卡，
在工具栏的VB最左边有一个“运行宏”的 图标。选择运行即可。 若没有宏，则创建 一个，再运行 ，另存为加载宏）
4.VBA法来做选择题
题干(一般用普通文本框)
选项按纽（optionButton一般有
ABCD四个选项） 命令按纽（commandButton一般有 “查看结果”和“进入下一张”两 个） 都可以添加代码 （不能正常播放时需启用宏）
具体操作
以一道选择题为例，启动
PowerPoint2003，新建一空白幻灯 片，利用文本框，输入题干内容。
1.制作模板：插入文本框,添加第一 个备选答案,并设置好字体、字号、 字符颜色，调整“动作按钮”的大 小和位置。 (动作按钮亦可) 2.复制答案：选中这个按着Ctrl拖 拉鼠标，快速复制一个按钮（共操 作3次，复制3个），并修改字符为 其他备选项答案。
1.奠定今天我国版图基础的朝代是：
唐朝 元朝 秦朝 清朝
重新选择 下一题
练习题
1．上级主管部门派了专家组来我校指 导学科建设工作，在欢迎仪式上需欢 迎的字幕，请同学们协助制作完成。 要求：（1）分别用PPT和Flash软件 制作；（2）欢迎字幕为“热烈欢迎各 位专家莅临我校指导工作！” ；（3） 文字从左至右不停滚动；（4）字幕要 有背景；（5）整体协调美观。
红高粱
英雄
十面埋伏
提交答案
三枪拍案惊奇
填空题示例： 北京奥运会Hale Waihona Puke Baidu吉祥物是
122
提交答案
判断题示例：
查看结果
数据结构就是研究数据库结构的课程。
请判断
2.设置命令：单击“命令按钮”按钮并 画一个按钮来。选中此按钮，单击 “属性”，展开“命令按钮”属性对 话框，将其中的“标题Caption ”修 改为“查看正确答案”（具体修改内 容，请根据需要确定），并关闭属性 窗口。 命令按纽（commandButton）