用powerpoint制作单选题和填空题

Powerpoint中很多控件用得恰当有很好的交互效果，比如教师在ppt中设置单选题、多选题或填空题，能提高教学效果，加强互动，使得教学更生动活泼！具体步骤如下：

1． 显示控件工具箱
    在PowerPoint中选择菜单“视图/工具栏/控件工具箱”，如图。
    2. 插入控件的方法
    单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可。

3. 进入VBA的方法
    双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VBA编程状态。

4． 控件的主要属性及设置方法
    进入VBA后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口，按F4键即可调出该窗口。

   单选题的制作：

在幻灯片中插入文本框或标签输入好题目如2008年奥运会在哪个城市举办；利用控件工具箱插入四个单选按钮，修改每个按钮的caption属性为A. 上海   B.北京  C.深圳  D. 香港；双击单选按钮进入编程环境

如A，输入以下代码：

Private Sub OptionButton1_Click()
       OptionButton2.Value = False
       OptionButton3.Value = False
       OptionButton4.Value = False
       dd = MsgBox("请继续努力！", vbYesNo, "答案")
    End Sub

如B，输入以下代码：

Private Sub OptionButton1_Click()
       OptionButton1.Value = False
       OptionButton3.Value = False
       OptionButton4.Value = False
       dd = MsgBox("正确！", vbYesNo, "答案")
    End Sub

填空题的制作：

在幻灯片中插入文本框或标签输入好题目如2008年奥运会举办城市；利用控件工具箱插入一个文本框、一个标签和一个按钮，修改文本框的text属性为“空”，标签的caption属性为“空”，按钮的caption属性为“答案”；双击按钮进入编程环境

 Private Sub CommandButton1_Click()
        If TextBox1.Text = "北京" Then
           Label1.Caption = "正确"
        Else
           Label1.Caption = "错误"
           TextBox1.Text = ""
        End If
     End Sub

当我把程序编好了在ppt中却运行不起来，这时，我们可以修改“工具栏/宏/安全性”级别选“中”或“低”，最终实现了交互功能！