PowerPoint制作交互式多、单选题

1、课件单选题制作（方法二）Powerpoint中用VBA实现课件中的智能交互（实现单选等）PowerPoint中的VBA可以实现很多复杂的交互，但很多老师面对VBA编程，都会觉得无从下手。所以本期我们为大家安排了一个关于PowerPoint中VBA的小专题，以后在课件中实现交互就不会那么费劲了。VBA基础说到VBA编程，就不得不提到控件工具箱，我们需要利用其中的控件搭建需要的环境。1 显示控件工具箱在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。2 控件工具箱（如图1）中常用按钮的介绍（1）复选框（CheckBox）：可以选择多个选项，常用来设计多选题；（2）文本框（TextBox

2、）：可以输入文本，常用来设计填空题；（3）命令按钮（CommandButton）：用来确定选择或输入，也可设计超级链接；（4）单选框（OptionButton）：只能选中一个选项，常用来设计单选题或判断题；（5）标签（Label）：用来显示文字信息。3 插入控件的方法单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可。4 进入VBA的方法双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VBA编程状态。5 控件的主要属性及设置方法进入VBA后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口，按F4键即可调出该窗口。下面我们就不同的控

3、件，来说明常用属性的设置方法。（1）复选框AutoSize：有两个值，True表示根据字的多少调整复选框的大小，False表示复选框为固定大小；BackColor：设置复选框的背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色；Caption：控件的名称，把默认值删除再重新输入新名称；Font：设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中设置；Forecolor：设置字的颜色，设置方法同BackColor；Height：复选框的高度，直接输入数字即可；Width：复选框的宽度，直接输入数字即可；Value：复选框的值，True为选中，Fal

4、se则相反。（2）文本框AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框；Value：文本框的值，用来保存输入的文本；TextAlign：设置文本对齐方式。（3）单选框属性设置同复选框。（4）标签除Value外，其他同复选框。（5）命令按钮同标签。6 消息框MsgBox 的功能我们常用消息框显示一些交互的信息，如图2所示的消息框用下面的语句可实现：Msgbox("这是一个例题",VbYesNo,"示例")多选题的制作1. 题目的设计同单选题2. 选项：用复选框（CheckBox)，其他设

5、置同单选题。3. 查看答案命令按钮：因为是多选题，答案有多个，所以要书写多个条件，条件之间用and连接，表示同时满足这几个条件，例如第一、三、五的选项是正确的，则需要输入如下语句：If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True Then给出正确的提示信息同单选题else给出错误的提示信息同单选题end if 填空题的制作1. 题目的设置同单选题，填空的地方用文本框。2. 判断正误：因为是填空题，所填答案是文本，所以条件书写为：if TextBox1.value="正确的文本"

6、 then 给出正确的提示信息同单选题else给出错误的提示信息同单选题end if 注意：正确的文本一定要用半角双引号括起来，如几个空一起判断，方法同多选题。3. 重新填空命令按钮：需要完成如下语句的设置：Private Sub CommandButton2_Click()TextBox1.Value = "请双击后填入你的答案！"End SubPrivate Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)TextBox1.Value = " "End Sub单选题的制作例如我们

7、要设计如图1所示的选择题。1 题目可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签，插入后双击该标签启动VBA，修改Caption属性为“5X-15=0的解是：”，再根据需要修改其他属性（如颜色等）。2 选项插入一单选框，修改其Caption属性为“0”，其他属性可自行修改。其他的单选项可复制制作好的单选框，然后再修改它们的Caption属性。3 查看答案 命令按钮在此使用命令按钮，我们可根据单选框的Value属性的值来判断答案，如正确选项（单选框）的Value的值为True，则为该题选择正确，否则为选择错误，我们还可根据选择正误来给出信息，有两种方法。（1）方法一用MsgB

8、ox（），如果选择正确，显示信息“Very Good!请继续！”，错误则显示“Sorry,你选错了！正确答案是3，请继续努力。”操作步骤：双击单选框进入VBA，在编辑窗口中完成以下操作。A. 在编辑窗口中找到如下两条语句：Private Sub OptionButton3_Click()End Sub然后在上面这两条语句中间插入以下语句：If OptionButton3.Value=True Then ex=MsgBox("Very Good!请继续努力。",Vbokonly)B. 同理，找到如下两条语句：Private Sub OptionButton1_Click()E

9、nd Sub在这两条语句中间插入语句：If OptionButton1.Value=True Then ex=MsgBox（"正确答案是3 ，请继续努力。",Vbokonly）C. 找到如下两条语句Private Sub OptionButton2_Click()End Sub在这两条语句中间插入语句If OptionButton2.Value=True Then ex=MsgBox（"正确答案是 3，请继续努力。",Vbokonly）说明：ex为自定义变量（2）方法二在幻灯片合适的地方插入一标签，修改其Caption属性为空，其他设置同方法一，只要把正

10、确选项中的“then”后的语名改为“label2.caption="Very Good!"请继续！"”，错误选项的改为“label2.caption="正确答案是3 ，请继续努力。"”即可。4 重新选择 命令按钮在幻灯片适当的地方插入一命令按钮，修改其Caption属性为“重新选择”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入：OptionButton1.Value = FalseOptionButton2.Value = FalseOptionButton3.Value = F

11、alseLabel2.Caption =""如判断正误用的是方法一，此语句不要）5 下一题 命令按钮在幻灯片适当地方插入一命令按钮，修改其Caption属性为“下一题”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入If MsgBox("是否继续", vbYesNo + vbQuestion, “下一题”)=vbYes Then With SlideShowWindows(1).View.GotoSlide 2End With（2为第2张幻灯片，此语句表示转到第2张幻灯片）End if 如果要

12、根据条件的不同转到不同的幻灯片，可用下面语句：if 条件then With SlideShowWindows(1).View.GotoSlide 2End WithEnd if 说明：条件可以是Caption属性或value属性，书写方法为：控件名称（在VBA中的名称）.属性=（value属性为True或False，Caption属性为具体文本，注意文本要加双引号），例如下面的语句：if optionbutton1.value=true then 表示如果单选框1的value值为True，那么运行then后的语句，一直到end if。判断题的制作所有的设置与单选题类似，只不过是设计两个选项“”

13、和“×”，这两个符号可先在Word中插入，然后再复制过来。课件单选题制作（方法二）1、编辑单选按钮：       点击“视图工具栏控件工具箱”，单击“选项按钮”在灯片上拖出四个单选按钮。分别在单选按钮上单击右键选“属性”设置属性。Autosize“True”表示根据字的多少调整单选按钮大小，“False”表示单选按钮为固定大小；“Backcolor”设置单选按钮的背景颜色；“Backstyle”右侧下拉列表中选择“0-fmBackstyleTransparent”使用单选按钮的背景透明；“Caption”按钮名称；“Font

14、”设置字体、字号和字形；“Forecolor”设置字的颜色。2、进入VBA编辑器编程：     双击任意按钮进入VBA编辑器，在编辑窗口中找到对应的“选项按钮”名称，分别将语句MsgBox  ("答对了")和MsgBox  ("不对")插入以下两条语句中间private sub optionButtonl_click()End  SubPowerpoint中很多控件用得恰当有很好的交互效果，比如教师在ppt中设置单选题、多选题或填空题，能提高教学效果，加强互动，使得教学更生动活泼！具体

15、步骤如下：1 显示控件工具箱    在PowerPoint中选择菜单“视图/工具栏/控件工具箱”，如图。    2. 插入控件的方法    单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可。3. 进入VBA的方法    双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VBA编程状态。4 控件的主要属性及设置方法    进入VBA后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性

16、”窗口，按F4键即可调出该窗口。   单选题的制作：在幻灯片中插入文本框或标签输入好题目如2008年奥运会在哪个城市举办；利用控件工具箱插入四个单选按钮，修改每个按钮的caption属性为A. 上海   B.北京  C.深圳  D. 香港；双击单选按钮进入编程环境如A，输入以下代码：Private Sub OptionButton1_Click()       OptionButton2.Value = False     &

17、#160; OptionButton3.Value = False       OptionButton4.Value = False       dd = MsgBox("请继续努力！", vbYesNo, "答案")    End Sub如B，输入以下代码：Private Sub OptionButton1_Click()      

18、 OptionButton1.Value = False       OptionButton3.Value = False       OptionButton4.Value = False       dd = MsgBox("正确！", vbYesNo, "答案")    End Sub课件单选题制作（方法三）在我们教师平时的教学生活中，使用

19、信息技术手段进行教学已经越来越多的应用其中，而powerpoint是教师们制作课件的主要工具之一，但现在教师们在制作课件时，更多的只是停留在单向的演示应用中，其实作为微软office办公软件的组件之一，powerpoint在交互方面也具有十分强大的功能，利用powerpoint的交互功能，我们可以给自己的powerpoint课件增加许多多样化的元素，以下就从平时我在制作powerpoint课件时，能使用到的试题形式，为大家提供一些使用powerpoint交互功能的技巧与思路。注：以下使用版本为学校普遍使用的powerpoint2003单选题，“点击鼠标，答案只有一个”这是我们制作交互式单选题的

20、一个思路，就是用鼠标点击选项，当正确时，给出正确的提示，当错误时，给出错误的提示，这种方式我们主要应用的技巧就是“自定义动画”，“计时”中的“触发器”功能。制作过程：第一步：新建一张PPT，在页面中插入题目文本，在插入正确答案的字母文本：如图一所示    图一 第二步：在题目下插入四个选项，使用“自选图形”中的“自定义动作按钮”，然后在按钮文本框中输入选项文字，如图二所示：               &#

21、160;             图二  第三步：点击答案，那个红色的“A”，制作自定义动画进入效果，动画效果我们可以根据自己需要添加，这里我加入一个“随机线条”效果，然后点击动画效果下拉菜单，选择“计时”选项，如图三： 图三第四步：这时会弹出一个窗口，窗口中，我们点击“触发器”按钮，在出现的选项中，选择“单击下列对象时启动效果”，在后边的下拉框中我们找到A答案的动作按钮，选择完毕点击“确定”，如图四： 图四 好了，点一下sh

22、ift+F5，我们看一下效果吧：当点击B，C，D几个选项时，都不会有反映，只有当点击A选项时，正确的答案才会出现在括号中。 扩展应用：我们可以给答案加上声音效果，右键点击选择项动作按钮，在弹出选项中选择“动作设置”，如图五 图五 然后选择“播放声音”，为选择正确和选择错误时，加入不同的声音效果，如图六： 图六如果有我们自己准备好的声音文件，就选择最后的“其他声音”，然后在浏览窗口中找到我们的声音文件即可。 我们还可以为选择正确或错误答案是插入动画的效果，就是插入几个文字或图片的自定义动画，让选择不通选项时使用“触发器”播放，这些扩展性的内容就由

23、我们智慧的老师们自己发掘了。用PowerPoint制作交互式多选题张甸中学属于哪个地区（多选题）：（）A.江苏省 B.上海市C.姜堰市D.南京市如上，多选题在多媒体课堂教学中十分实用。我们不需要使用其他软件就可以制作单选题、多选题。适合于学生在自主学习的多媒体课件中使用。操作步骤：1、 用插入文本框的方法输入题目的题干 “张甸中学属于哪个地区（多选题）：（ ）”，设置为宋体24磅红色，2、用控件工具箱中的复选框做好四个选项。先做好第一个以后，复制得到其它三个再修改。）.执行“视图工具栏控件工具箱”命令，展开“件工具箱”点击一下其中的“复选框”按钮，然后在幻灯片中拖拉出一个复选框“CckBox1”。右键单击“