PPT教案利用控件制作选择题_在中制作选择题

PPT教案利用控件制作选择题由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“在中制作选择题”。

巧用控件实现交互 在课堂教学活动中，教师希望能够在课件中展示选择题的选择结果。并在进行选择的时候可以即时显示评语。例如选择错误就会给出“错了”的提示，正确就给出鼓励的评语。这些通过采用控件并设置相应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”和四个选项中的代码就可以了。