搜索
使用PowerPoint控件制作交互式课件北京奥运会的吉祥物是交互式课件示例单选题示例：多选题示例：填空题示例：判断题示例：数据结构就是研究数据库结构的课程。英雄十面埋伏世界上第一台计算机ENIAC诞生在：著名导演张艺谋执导的电影有：红高粱三枪拍案惊奇提交答案提交答案确定请判断查看结果控件概述之基本使用二、控件的生成：鼠标点选某控件，在编辑区拖曳即可一、控件工具箱的启动：【视图|工具栏|控件工具箱】选项按钮：主要用于单项选择题复选框：主要用于多项选择题文本框：主要用于填空题命令按钮：主要用于制作命令按钮标签：主要用于文字编辑控件概述之属性和事件控件具备描述自身信息的属性：如控件的名称、具有的值、大小等控件具备响应外界消息的事件：如当鼠标单击控件时，控件的值会发生变化制作具有交互功能的课件就是基于控件的属性和事件，只要掌握常见控件的重要属性和事件，再了解一些编写程序的基本技巧，就可轻松完成交互式课件的制作。请务必掌握以下技巧：鼠标右键单击某控件，选择【属性】可以编辑该控件的属性鼠标右键单击某控件，选择【查看代码】可以编辑该控件的事件代码选项按钮的属性和事件名称：默认是OptionButton1是该控件的标志，可改名Caption：默认是OptionButton1可以在此编辑题目Value：默认是FalseFont：控件文本的字体、字型和字号注意：选项按钮有两种状态即两种Value值，默认是False即未选中状态，当鼠标单击选项按钮时，表示选中该按钮，控件状态会发生变化，如OptionButton2所示，而其Value属性也由默认的False转变为True，这个性质千万要记住。选项按钮在程序中的表示在程序中表示选项按钮的方法：OptionButton1在程序中表示选项按钮属性的方法：OptionButton1.ValueOptionButton1的Value为false，表示为：OptionButton1.Value=FalseOptionButton2的Value为true，表示为：OptionButton2.Value=True命令按钮的属性和事件名称：默认是CommandButton1是该控件的标志，可改名Caption：默认是CommandButton1可以在此编辑按钮标题Font：控件文本的字体、字型和字号命令按钮最常用的事件响应是：Click在程序中的表示方法是：CommandButton1_ClickCommandButton1命令按钮和消息框现在有一个命令按钮，我们希望鼠标单击命令按钮时，屏幕上会弹出一个提示框，这个技巧只需要右键单击CommandButton1按钮，选择【查看代码】进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：PrivateSubCommandButton1_Click()MsgBox(测试成功！)EndSubCommandButton1命令按钮和选项按钮一现在有一个命令按钮，还有一个选项按钮，我们希望鼠标单击命令按钮时，选项按钮的标题即Caption由OptionButton1变为“中国苏州”，这个技巧只需要右键单击CommandButton1按钮，选择【查看代码】进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：PrivateSubCommandButton1_Click()OptionButton1.Caption=中国苏州EndSub注意：程序中的””要用半角标点符号思考：怎样通过程序将OptionButton1的Caption改回OptionButton1?CommandButton1命令按钮和选项按钮二现在有一个命令按钮，还有两个选项按钮，我们希望鼠标单击命令按钮时，程序能进行以下判断：如果OptionButton1的Value为True则显示“答对了”的消息框，否则，显示“答错了，重新选择！”的消息框。进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：PrivateSubCommandButton1_Click()IfOptionButton1.Value=TrueThenMsgBox(答对了“)ElseMsgBox(答错了，重新选择！“)EndIfEndSub提示：程序执行时，请回忆选项按钮的Value状态是通过什么事件变化的？CommandButton1命令按钮和选项按钮的初步小结消息框的程序代码：MsgBox(“”)进入控件属性的方法：鼠标右键单击某控件，选择【属性】进入控件事件代码的方法：鼠标右键单击某控件，选择【查看代码】选项按钮的Value值的表示方法：OptionButton1.Value=False程序中用于判断的语句：If……Then……Else……Endif命令按钮Click事件的表示方法：CommandButton1_Click利用命令按钮和选项按钮制作单项选择题1、利用【插入|文本框】制作题目2、利用选项按钮制作答案，同时完成控件的属性设置、控件的对齐等3、利用命令按钮制作判断答案正确与否的程序部分现在可以利用学过的技巧制作交互式的单项选择题了：复选框的属性和事件名称：默认是CheckBox1是该控件的标志，可改名Caption：默认是CheckBox1可以在此编辑题目Value：默认是FalseFont：控件文本的字体、字型和字号注意：复选框具有两种状态即两种Value值，默认是False即未选中状态，当鼠标单击选项按钮时，表示选中该按钮，控件状态会发生变化，如CheckBox2所示，而其Value属性也由默认的False转变为True，这个性质非常重要。CheckBox1CheckBox2复选框在程序中的表示在程序中表示复选框的方法：CheckBox1在程序中表示复选框属性的方法：CheckBox1.ValueCheckBox1的Value为false，表示为：CheckBox1.Value=FalseCheckBox2的Value为true，表示为：CheckBox2.Value=TrueCheckBox1CheckBox2命令按钮和复选框现在有一个命令按钮，还有三个复选框，我们希望鼠标单击命令按钮时，程序能进行以下判断：如果CheckBox1和CheckBox3的Value都为True而且CheckBox2的Value为False时则显示“答对了”的消息框，否则，显示“答错了,重新选择”的消息框。进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：PrivateSubCommandButton1_Click()IfCheckBox1.Value=TrueAndCheckBox3.Value=TrueANDCheckBox2.Value=FalseThenMsgBox(答对了)ElseMsgBox(答错了，重新选择！)EndIfEndSub注意：这个程序有点小问题，即在重新选择时，原先的选择状态还保留着。CommandButton1CheckBox1CheckBox2CheckBox3命令按钮和复选框之改良如果程序在弹出“答错了，重新选择！”的对话框后，能将复选框的Value值恢复到False，则问题就可以解决了。进入代码编辑区，在前面代码的基础上，填写下列红色代码即可：PrivateSubCommandButton1_Click()IfCheckBox1.Value=TrueAndCheckBox3.Value=TrueANDCheckBox2.Value=FalseThenMsgBox(答对了)ElseMsgBox(答错了，重新选择！)CheckBox1.Value=FalseCheckBox2.Value=FalseCheckBox3.Value=FalseEndIfEndSubCommandButton1CheckBox1CheckBox2CheckBox3复选框的初步小结程序中判断多个复选框的Value同时为真的方法：IfCheckBox1.Value=TrueandCheckBox2.Value=Truethen…….Else…….Endif在弹出出错消息框后，程序自动恢复多个复选框的Value值为False：If……then……Else…….CheckBox1.Value=FalseCheckBox2.Value=False……Endif复选框的Value值表示方法：CheckBox1.Value=True利用命令按钮和复选框制作多项选择题1、利用【插入|文本框】制作题目2、利用复选框制作答案，同时完成控件的属性设置、控件的对齐等3、利用命令按钮制作判断答案正确与否的程序部分现在可以利用学过的技巧制作交互式的多项选择题了：请利用命令按钮和复选框，将以下素材制作一道多项选择题：埃尼奥·莫里康内(ENNIOMORRICONE)创作过的电影音乐有：CinemaParadiso、OnceUponATime--TheRevolutionLegendOf1900、OnceUponATimeintheWest文本框的属性和事件Value：文本框接收到的输入数据名称：默认是TextBox1是该控件的标志，可改名Font：文本的字体、字型和字号TextAlign：文本的对齐方式在程序中表示文本框的方法：TextBox1在程序中表示文本框属性的方法：TextBox1.ValueTextBox1的Value值为“苏州”，则表示为：TextBox1.Value=“苏州”命令按钮和文本框现在有一个命令按钮，还有一个文本框，我们希望在文本框内输入文字，然后当鼠标单击命令按钮时，程序能进行以下判断：如果输入的文字内容是“苏州”，则显示“答对了”的消息框，否则，显示“答错了,重新填写!”的消息框。进入代码编辑区，在给出的默认代码中填写下列兰色代码即可：PrivateSubCommandButton1_Click()IfTextBox1.Value=苏州ThenMsgBox(答对了)ElseMsgBox(答错了，重新填写！)EndIfEndSub思考：怎样在出错信息出现后，清空文本框内的内容？CommandButton1命令按钮和文本框之改良这个问题可以仿照之前复选框的思路来解决，只需修改TextBox1的Value为空即可。进入代码编辑区，在前面代码的基础上，填写下列红色代码即可：PrivateSubCommandButton1_Click()IfTextBox1.Value=苏州ThenMsgBox(答对了)ElseMsgBox(答错了，重新填写！)TextBox1.Value=“”EndIfEndSub思考：如果填空的内容可以包容多个正确答案，应该怎样修改程序呢？CommandButton1文本框的初步小结文本框的Value值的表示方法：TextBox1.Value=“……”程序中判断文本框的Value满足某个特定值的方法：IfTextBox1.Value=“……”then…….Else…….Endif在弹出出错消息框后，程序自动恢复文本框的Value值为空：If……then……Else…….TextBox1.Value=“”……Endif利用命令按钮和文本框制作填空题1、利用【插入|文本框】制作题目2、利用文本框制作填写答案区域，同时完成控件的属性设置、对齐等3、利用命令按钮制作判断答案正确与否的程序部分现在可以利用学过的技巧制作交互式的填空题了：小结1、掌握开启控件工具箱、修改控件属性、编辑控件代码的基本方法2、掌握OptionButton、CheckBox、TextBox的Value属性3、掌握Command的Click事件4、MsgBox(“”)5、掌握If……Then……Else……Endif的用法6、了解关键字And、False、True的用法思考、练习1、怎样通过程序将OptionButton1的Caption在两个值之间切换？2、如果需要文本框的内容可以包容多个正确答案，应该怎样修改程序呢？3、复选框能否用于设计单项选择题？尝试将选项按钮制作的单项选择题改用复选框制作。