PPT教案利用控件制作选择题.docVIP

巧用控件实现交互 在课堂教学活动中，教师希望能够在课件中展示选择题的选择结果。并在进行选择的时候可以即时显示评语。例如选择错误就会给出“错了”的提示，正确就给出鼓励的评语。这些通过采用控件并设置相应VBA代码来实现。现以下述课堂交互练习为例来说明其制作方法。 单选题：第一台计算机诞生于（ ）：A．德国 B. 美国 C. 日本 D. 英国 正确答案是：B 用PowerPoint2003的制作方法如下； (1)输入题目 ①启动PowerPoint程序，打开需要输入题目的幻灯片（空白版式） ②插入一个文本框输入题目：“第一台计算机诞生于哪个国家（ ）”，并设置其字体大小。 (2)添加单选按钮并设置属性 本例中单项选择题所用到的控件为“单选按钮”，添加方法是：选择“视图”菜单→“工具栏”→“控件工具箱”中的单选按钮，依次在练习题目下方所示的位置上，拖绘出四个单选按钮，调整好位置。 (3)设置控件属性 先选中第一个按钮，单击鼠标右键，在出现的菜单框中选择“属性”，然后在属性框中选择“Caption”项，将其右边框中的内容改为“A.德国”，如要改变字体及字的大小，可以选择属性表中的“Font”（字体）属性，点击右边的 按钮，设置字体。依次添加其余3个单选按钮，进行相应的属性设置，（比如“Caption”属性分别设置为“B.美国、C.日本、D.英国”）。 (4)在单选按钮中写入对应的VBA代码： 分别双击4个单选按钮，进入代码编辑窗口，根据答案的正确和错误，为各个按钮分别输入相应的VBA代码： Private Sub OptionButton1_Click ( ) MsgBox (对不起，答错了!) End Sub Private Sub OptionButton2_Click ( ) MsgBox (你真棒，答对了!) End Sub Private Sub optionbutton3_Click ( ) MsgBox (对不起，答错了!) End Sub Private Sub Private Sub OptionButton4_Click ( ) MsgBox (对不起，答错了!) End Sub 注：其中（Private Sub OptionButton1_Click ( ) 和End Sub这两行是程序开始和结束的标志，它自动产生的，你只需输入MsgBox (对不起，答错了!)这一行就可以了 如果继续，那么再复制出若干张幻灯片，修改一下题干和每一项中的属性中的“Caption”和四个选项中的代码就可以了。