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