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

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

2、| 控件工具箱控件工具箱】选项按钮：选项按钮：主要用于单项选择题主要用于单项选择题复选框复选框 ：主要用于多项选择题主要用于多项选择题文本框文本框 ：主要用于填空题主要用于填空题命令按钮：命令按钮： 主要用于制作命令按钮主要用于制作命令按钮标签标签 ：主要用于文字编辑主要用于文字编辑 控件概述之属性和事件控件概述之属性和事件控件具备描述自身信息的属性属性：如控件的名称、具有的值、大小等控件具备响应外界消息的事件事件：如当鼠标单击控件时，控件的值会发生变化制作具有交互功能的课件就是基于控件的属性和事件，只要掌握常见控件的重要属性和事件，再了解一些编写程序的基本技巧，就可轻松完成交互式课件的制作。

3、请务必掌握以下技巧：请务必掌握以下技巧：鼠标右键单击某控件，选择【属性属性】可以编辑该控件的属性鼠标右键单击某控件，选择【查看代码查看代码】可以编辑该控件的事件代码选项按钮的属性和事件选项按钮的属性和事件名称：名称：默认是OptionButton1 是该控件的标志，可改名Caption：默认是OptionButton1 可以在此编辑题目Value：默认是FalseFont：控件文本的字体、字型和字号注意：注意：选项按钮有两种状态即两种Value值，默认是False即未选中状态，当鼠鼠标单击标单击选项按钮时，表示选中该按钮，控件状态会发生变化，如OptionButton2所示，而其Value属性

4、也由默认的False转变为True，这个性质千万要记住。选项按钮在程序中的表示选项按钮在程序中的表示在程序中表示选项按钮的方法：在程序中表示选项按钮的方法：OptionButton1在程序中表示选项按钮属性的方法：在程序中表示选项按钮属性的方法：OptionButton1.ValueOptionButton1的的Value为为false，表示为：，表示为：OptionButton1.Value=FalseOptionButton2的的Value为为true，表示为，表示为：OptionButton2.Value=True命令按钮的属性和事件命令按钮的属性和事件CommandButton1名称：

5、名称：默认是CommandButton1 是该控件的标志，可改名Caption：默认是CommandButton1 可以在此编辑按钮标题Font：控件文本的字体、字型和字号命令按钮最常用的事件响应是：Click在程序中的表示方法是：CommandButton1_Click命令按钮和消息框命令按钮和消息框CommandButton1现在有一个命令按钮，我们希望鼠标单击鼠标单击命令按钮时，屏幕上会弹出一个提示框，这个技巧只需要右键单击CommandButton1按钮，选择【查看代码】进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：Private Sub CommandButton1_Cli

6、ck()MsgBox (测试成功！)End Sub命令按钮和选项按钮一命令按钮和选项按钮一CommandButton1现在有一个命令按钮，还有一个选项按钮，我们希望鼠标单击鼠标单击命令按钮时，选项按钮的标题即Caption由OptionButton1变为“中国苏州”，这个技巧只需要右键单击CommandButton1按钮，选择【查看代码】进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：Private Sub CommandButton1_Click()OptionButton1.Caption = 中国苏州End Sub注意：注意：程序中的”要用半角标点符号半角标点符号思考：思考：怎样

7、通过程序将OptionButton1的Caption改回OptionButton1?命令按钮和选项按钮二命令按钮和选项按钮二现在有一个命令按钮，还有两个选项按钮，我们希望鼠标单击鼠标单击命令按钮时，程序能进行以下判断判断：如果OptionButton1的Value为True则显示“答对了”的消息框，否则，显示“答错了，重新选择！”的消息框。进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：CommandButton1Private Sub CommandButton1_Click()If OptionButton1.Value = True ThenMsgBox (答对了“)ElseMs

8、gBox (答错了，重新选择！“)End IfEnd Sub提示：提示：程序执行时，请回忆选项按钮的Value状态是通过什么事件变化的？命令按钮和选项按钮的初步小结命令按钮和选项按钮的初步小结消息框的程序代码：消息框的程序代码：MsgBox(“”)进入控件属性的方法：鼠标右键单击某控件进入控件属性的方法：鼠标右键单击某控件，选择【属性属性】进入控件事件代码的方法：鼠标右键单击某控件进入控件事件代码的方法：鼠标右键单击某控件，选择【查看代码查看代码】选项按钮的选项按钮的Value值的表示方法：值的表示方法： OptionButton1.Value=False程序中用于判断的语句：程序中用于判断的

9、语句：IfThenElseEndif命令按钮命令按钮Click事件的表示方法：事件的表示方法：CommandButton1_Click利用命令按钮和选项按钮制作单项选择题利用命令按钮和选项按钮制作单项选择题1、利用、利用【插入插入|文本框文本框】制作题目制作题目2、利用选项按钮制作答案，同时完成控件的属性设置、控件的对齐等、利用选项按钮制作答案，同时完成控件的属性设置、控件的对齐等3、利用命令按钮制作判断答案正确与否的程序部分、利用命令按钮制作判断答案正确与否的程序部分现在可以利用学过的技巧制作交互式的单项选择题了：现在可以利用学过的技巧制作交互式的单项选择题了：复选框的属性和事件复选框的属性

10、和事件C Ch he ec ck kB Bo ox x1 1C Ch he ec ck kB Bo ox x2 2名称：名称：默认是CheckBox1 是该控件的标志，可改名Caption：默认是CheckBox1 可以在此编辑题目Value：默认是FalseFont： 控件文本的字体、字型和字号注意：注意：复选框具有两种状态即两种Value值，默认是False即未选中状态，当鼠鼠标单击标单击选项按钮时，表示选中该按钮，控件状态会发生变化，如CheckBox2所示，而其Value属性也由默认的False转变为True，这个性质非常重要。复选框在程序中的表示复选框在程序中的表示在程序中表示复选框

11、的方法：在程序中表示复选框的方法：CheckBox1在程序中表示复选框属性的方法：在程序中表示复选框属性的方法：CheckBox1.ValueCheckBox1的的Value为为false，表示为：，表示为：CheckBox1.Value=FalseCheckBox2的的Value为为true，表示为，表示为：CheckBox2.Value=TrueC Ch he ec ck kB Bo ox x1 1CheckBox2CheckBox2命令按钮和复选框命令按钮和复选框CommandButton1CheckBox1CheckBox2CheckBox3现在有一个命令按钮，还有三个复选框，我们希望

12、鼠标单击鼠标单击命令按钮时，程序能进行以下判断判断：如果CheckBox1和CheckBox3的Value都为True而且CheckBox2的Value为False时则显示“答对了”的消息框，否则，显示“答错了,重新选择”的消息框。进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：Private Sub CommandButton1_Click()If CheckBox1.Value = True And CheckBox3.Value = True AND CheckBox2.Value = False ThenMsgBox (答对了)ElseMsgBox (答错了，重新选择！)End

13、 IfEnd Sub注意：注意：这个程序有点小问题，即在重新选择时，原先的选择状态还保留着。命令按钮和复选框之改良命令按钮和复选框之改良如果程序在弹出“答错了，重新选择！”的对话框后，能将复选框的Value值恢复到False，则问题就可以解决了。进入代码编辑区，在前面代码的基础上，填写下列红色代码即可：CommandButton1CheckBox1CheckBox2CheckBox3Private Sub CommandButton1_Click()If CheckBox1.Value = True And CheckBox3.Value = True AND CheckBox2.Value

14、= False ThenMsgBox (答对了)ElseMsgBox (答错了，重新选择！)CheckBox1.Value = FalseCheckBox2.Value = FalseCheckBox3.Value = FalseEnd IfEnd Sub复选框的初步小结复选框的初步小结程序中判断多个复选框的程序中判断多个复选框的Value同时为真的方法：同时为真的方法：If CheckBox1.Value=True and CheckBox2.Value=True then.Else.Endif在弹出出错消息框后，程序自动恢复多个复选框的在弹出出错消息框后，程序自动恢复多个复选框的Value

15、值为值为False：If thenElse.CheckBox1.Value=FalseCheckBox2.Value=FalseEndif复选框的复选框的Value值表示方法：值表示方法：CheckBox1.Value=True利用命令按钮和复选框制作多项选择题利用命令按钮和复选框制作多项选择题1、利用、利用【插入插入|文本框文本框】制作题目制作题目2、利用复选框制作答案，同时完成控件的属性设置、控件的对齐等、利用复选框制作答案，同时完成控件的属性设置、控件的对齐等3、利用命令按钮制作判断答案正确与否的程序部分、利用命令按钮制作判断答案正确与否的程序部分现在可以利用学过的技巧制作交互式的多项选

16、择题了：现在可以利用学过的技巧制作交互式的多项选择题了：请利用命令按钮和复选框，将以下素材制作一道多项选择题：请利用命令按钮和复选框，将以下素材制作一道多项选择题：埃尼奥莫里康内(ENNIO MORRICONE)创作过的电影音乐有：Cinema Paradiso、Once Upon A Time-The RevolutionLegend Of 1900 、Once Upon A Time in the West 文本框的属性和事件文本框的属性和事件Value： 文本框接收到的输入数据名称：名称：默认是TextBox1 是该控件的标志，可改名Font： 文本的字体、字型和字号TextAlign：

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

18、：CommandButton1Private Sub CommandButton1_Click()If TextBox1.Value = 苏州 ThenMsgBox (答对了)ElseMsgBox (答错了，重新填写！)End IfEnd Sub思考：思考：怎样在出错信息出现后，清空文本框内的内容？命令按钮和文本框之改良命令按钮和文本框之改良CommandButton1这个问题可以仿照之前复选框的思路来解决，只需修改TextBox1的Value为空即可。进入代码编辑区，在前面代码的基础上，填写下列红色代码即可：Private Sub CommandButton1_Click()If TextBox1.Value = 苏州 ThenMsgBox (答对了)ElseMsgBox (答错了，重新填写！)TextBox1.Value=“”End IfEnd Sub思考：思考：如果填空的内容可以包容多个正确答案，应该怎样修改程序呢？文本框的初步小结文本框的初步小结文本框的文本框的Value值的表示方法：值的表示方法：TextBox1.Value=“”程序中判断文本框的程序中判断文本框的Value满足某个特定值