使用PowerPoint控件制作交互式课件

1、使用PowerPoint控件制作交互式课件交互式课件示例单选题示例：确定世界上第一台计算机ENIAC诞生在：1936年1942年 1946 年 1979 年多选题不例：提交答案著名导演张艺谋执导的电影有:厂红高粱 厂英雄厂十面埋伏厂三枪拍案惊奇提交答案填空题示例：北京奥运会的吉祥物是判断题示例：查看结果 数据结构就是研究数据库结构的课程。请判断控件概述之基本使用一、控件工具箱的启动：【视图I工具栏I控件工具箱】二、控件的生成：鼠标点选某控件，在编辑区拖曳即可复选框文本框- 命令按钮- 单选按钮标签选项按钮：主要用于单项选择题复选框:主要用于多项选择题文本框:主要用于填空题命令按钮：主要用于制作

2、命令按钮标签 :主要用于文字编辑控件概述之属性和事件控件具备描述自身信息的属性：如控件的名称、具有的值、大小等控件具备响应外界消息的事件：如当鼠标单击控件时，控件的值会发生变化务必掌握以下技巧: 鼠标右键单击某控件，选择【属性】可以编辑该控件的属性 鼠标右键单击某控件，选择【查看代码】可以编辑该控件的事件代码 制作具有交互功能的课件就是基于控件的属性和事件，只要掌握常见控件的 重要属性和事件，再了解一些编写程序的基本技巧，就可轻松完成交互式课 件的制作。选项按钮的属性和事件OptionButtonle OptionButton2名称：默认是OptionButtonl是该控件的标志，町改名Val

3、ue：默认是FalseCaption：默认是OptionButtonl iJ以在此编辑题冃Font：控件文本的字体、字型和字号注意：选项按钮有两种状态即两种Value值，默认是False即未选中状态，当鼠 标单击选项按钮时，表示选中该按钮，控件状态会发生变化，如OptionButton2 所示，而其Value属性也由默认的False转变为True,这个性质千万要记住。OptionButtonlOptionButton2在程序中表示选项按钮的方法：OptionButtonl 在程序中表示选项按钮属性的方法：OptionButtonl .ValueOptionButtonl 的Value为fals

4、e,表示为：OptionButtonl .Value=FalseOptionButton2的Value为true,表示为：OptionButton2.Value=TrueCommandButtonl名称：默认是CommandButtonl是该控件的标志，可改名Caption：默认是CommandButtonl对以在此编辑按钮标题Font：控件文本的字体、字型和字号命令按钮最常用的事件响应是：Click在程序中的表示方法是：CommandButton1 Click命令按钮和消息框CommandBut tonl现在有一个命令按钮，我们希望鼠标单击命令按钮时，屏幕上会弹出一个提示 框，这个技巧只需要

5、右键单击CommandButtonl按钮，选择【查看代码】进入 代码编辑区，在给出的默认代码中填写下列兰色代码即可：Private Sub CommandButton1_Click()MsgBox (H测试成功！ ”)End Sub命令按钮和选项按钮CommandBut tonlOptionB lit tonl现在有一个命令按钮，还有一个选项按钮，我们希望鼠标单击命令按钮时，选 项按钮的标题即Caption由0ptionButtonl变为“中国苏州”,这个技巧只需要 右键单击CommandButtonl按钮，选择【查看代码】进入代码编辑区，在给出 的默认代码中填写下列兰色代码即可：Privat

6、e Sub CommandButton1_Click() OptionButtonl .Caption = ”中国苏州” End Sub注意：程序中的要用半角标点符号思考：怎样通过程序将OptionButtonl的Caption改回0ptionButtonl ?銅删按無二二CommandBut ton1广OptionButton1广0ptionButton2现在有一个命令按钮，还有两个选项按钮，我们希望鼠标单击命令按钮时，程 序能进行以下判断：如果OptionButtonl的Value为True则显示“答对了”的消 息框，否则，显示“答错了，重新选择！”的消息框。进入代码编辑区，在给 出的默认

7、代码中填写下列兰色代码即可：Private Sub CommandButton1_Click() If OptionButtonl.Value = True Then MsgBox (”答对T)ElseMsgBox (答错了，重新选择！ JEnd IfEnd Sub提示：程序执行时，请回忆选项按钮的Value状态是通过什么事件变化的?命令按钮和选项按钮的初涉小结进入控件属性的方法：鼠标右键单击某控件，选择【属性】进入控件事件代码的方法：鼠标右键单击某控件，选择【査看代码】消息框的程序代码：MsgBox() 选项按钮的Value值的表示方法：OptionButtonl .Value=False程

8、序中用于判断的语句：IfThenElseEndif命令按钮Click事件的表示方法：CommandButton1 Click利用命令按钮和选项按钮制作单项选择题现在可以利用学过的技巧制作交互式的单项选择题了 ：1、利用【插入I文本框】制作题目2、利用选项按钮制作答案，同时完成控件的属性设置、控件的对齐等3、利用命令按钮制作判断答案正确与否的程序部分复选框的属性和事件厂 CheckBoxl旺 CheckBox2名称：默认是CheckBoxl是该控件的标志，可改名Value：默认是FalseCaption：默认是CheckBoxl可以在此编辑题目Font：控件文本的字体、字型和字号注意：复选框具有

9、两种状态即两种Value值，默认是False即未选中状态，当鼠 标单击选项按钮时，表示选中该按钮，控件状态会发生变化，如CheckBox2所 示，而其Value属性也由默认的False转变为True,这个性质非常重要。复选框在程序中的表示厂 CheckBoxl CheckBox2复选框在程序中的表示复选框在程序中的表示在程序中表示复选框的方法：CheckBoxl在程序中表示复选框属性的方法：CheckBoxl .ValueCheckBoxl 的Value为false,表示为：CheckBoxl.Value=FalseCheckBox2的Value为true,表示为：CheckBox2.Valu

10、e=TrueCommandButtonl0 CheckBoxl厂 CheckBox27 CheckBox3CommandButtonl0 CheckBoxl厂 CheckBox27 CheckBox3CommandButtonl厂 CheckBoxlP CheckBox2P CheckBox3CommandButtonl0 CheckBoxl厂 CheckBox27 CheckBox3CommandButtonl0 CheckBoxl厂 CheckBox27 CheckBox3现在有一个命令按钮，还有三个复选框，我们希望鼠标单击命令按钮时，程序 能进行以下判断：如果CheckBoxl和Chec

11、kBox3的Value都为True而且CheckBox2的Value为False时则显示“答对了”的消息框，否则，显示“答错 了，重新选择”的消息框。进入代码编辑区，在给出的默认代码中填写下列兰 色代码即可：Private Sub CommandButton1_Click（）If CheckBoxl Value = True And CheckBox3.Value = True AND CheckBox2.Value = False Then MsgBox （”答对了“）ElseMsgBox （答错了，重新选择！ ”）End IfEnd Sub注意：这个程序有点小问题，即在重新选择时，原先的选

12、择状态还保留着。如果程序在弹出“答错了，重新选择！”的对话框后，能将复选框的Value 值恢复到False,则问题就可以解决了。进入代码编辑区，在前面代码的基 础上，填写下列红色代码即可：Private Sub CommandButton1_Click（）If CheckBoxl Value = True And CheckBox3.Value = True AND CheckBox2.Value = False Then MsgBox （”答对了”）ElseMsgBox （”答错了，重新选择！ ”）CheckBoxl .Value = FalseCheckBox2.Value = False

13、CheckBox3.Value = FalseEnd IfEnd Sub复选框的Value值表示方法：CheckBoxI .Value=True程序中判断多个复选框的Value同时为真的方法：If CheckBoxI .Value=True and CheckBox2.Value=True thenElseEndif在弹出出错消息框后，程序自动恢复多个复选框的Value值为False：thenElseCheckBoxI .Value=FalseCheckBox2.Value=FalseEndif利用命令按钮和复选框制作多项选择题现在可以利用学过的技巧制作交互式的多项选择题了：1、利用【插入I文

14、本框】制作题目2、利用复选框制作答案，同时完成控件的属性设置、控件的对齐等3、利用命令按钮制作判断答案正确与否的程序部分请利用命令按钮和复选框，将以下素材制作一道多项选择题:埃尼奥莫里康内(ENNIO MORRICONE)创作过的电影音乐有:Cinema Paradiso Once Upon ATime-The Revolution Legend Of 1900、Once Upon A Time in the West名称：默认是TextBoxI是该控件的标志，可改名Value：文本框接收到的输入数据Font：文本的字体、字型和字号TextAlign：文本的对齐方式在程序中表示文本框的方法：T

15、extBoxI在程序中表示文本框属性的方法：TextBoxI-ValueTextBoxI的Value值为苏州”，则表示为：TextBoxI.Value=u苏州”命令按钮和文本框CommandBu11on1现在有一个命令按钮，还有一个文本框，我们希望在文本框内输入文字，然后 当鼠标单击命令按钮时，程序能进行以下判断：如果输入的文字内容是“苏 州”,则显示“答对了”的消息框，否则，显示“答错了，重新填写！”的消息框。 进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：Private Sub CommandButton1_Click（） IfTextBoxI. Value = ”苏州” The

16、n MsgBox （”答对了”）ElseMsgBox （答错了，重新填写！ ”）End IfEnd Sub思考：怎样在出错信息出现后，清空文本框内的内容?CommandButtonl这个问题可以仿照之前复选框的思路来解决，只需修改TextBoxI的Value为空 即可。进入代码编辑区，在前面代码的基础上，填写下列红色代码即可：Private Sub CommandButton1_Click（） If TextBoxI. Value = ”苏州” Then MsgBox （”答对了”）ElseMsgBox （H答错了，重新填写！ ”）TextBoxI. Value 二宀End IfEnd Sub思考：如果填空的内容可以包容多个正确答案，应该怎样修改程序呢?文本框的Value值的表示方法：TextBox1.Value=u,J程序中判断文本框的Value满足某个特定值的方法：If TextBoxl.Value = u” thenElseEndif在弹岀出错消息框后，程序自动恢复文本框的Value值为空:IfthenElseTextBoxl .Value=UJ,Endif利用命令按钮和文本框制作填空题现在可以利用学过的技巧制作交互式的填空题了 ：1、利用【插入I文本框】制作题目2、利用文本框制作填写答案区域，同时完成控件的属性设置、对齐等3、利用命令按钮制作判断答案正确与否的程序部