PowerPoint中控件的使用实例(选择题的制作).doc

PowerPoint中控件的使用实例选择题的制作 电教室 秦仕鸿PowerPoint是我们常用的课件制作工具，但通常我们只是使用了它的一般功能，所以我们发现用PowerPoint制作的课件交互性不好。实际上，我们只要使用PowerPoint的控件，就能解决交互性的问题。下面就以制作选择题来介绍一下PowerPoint里控件的使用。一、准备工作打开“视图”“工具栏”“控件工具箱” 二、插入选项按钮：1、选择第三排第二个“选项按钮”，在文档中合适的位置拖出一个选项。2、右击拖出的“选项按钮”，选择属性，打开属性窗口。3、修改“Caption”右边的名称为你的第一个答案，如：“A、Windows XP”。4、用同样的方法创建其他选项按钮，分别是其他答案如下图在播放状态下，就可以单击选择想选择的答案了。如果是多选题，插入的控件要使用第二排第一个“复选框”，其他修改同上。如果要在同一张幻灯片中设置多题，则同一题的几个选项要组名要设置相同，即在属性GroupName右边起相同的名字。三、如果我们加上一些批改作业和重做的按钮，再加上正确答案显示文本框，就可以实现作业的自动批改。如图：这里假设“批改”按钮是命令按钮1（CommandButton1），“重做”按钮是命令按钮2（CommandButton2）；括号里的是文本框1（TextBox1），后面的显示答案是否正解的是文本框2（TextBox2）；A答案是选项按钮1（OptionButton1），B答案是选项按钮2（OptionButton2），C答案是选项按钮3（OptionButton3）；假设正确答案是“B”。（注：相同类型的按钮，先创建是的1，后创建的是2，以此排序）这样，我们双击“批改”按钮（CommandButton1）控件输入下面的红色部分代码：Private Sub CommandButton1_Click() If (OptionButton2.Value = True) Then TextBox2.Text = 答对了！你真捧！ TextBox2.ForeColor = &HFF& Else TextBox2.Text = 答错了，再想一想。 TextBox2.ForeColor = &H0& End If End Sub双击“重做”按钮（CommandButton2）控件输入下面的红色部分代码：Private Sub CommandButton2_Click() OptionButton1.Value = False OptionButton2.Value = False OptionButton3.Value = False TextBox1.Text = TextBox2.Text = End Sub双击“选项A”按钮（OptionButton1）控件，输入下面的红色部分代码：Private Sub OptionButton1_Click() TextBox1.Text = A TextBox2.Text = End Sub双击“选项B”按钮（OptionButton2）控件，输入下面的红色部分代码：Private Sub OptionButton2_Click() TextBox1.Text = B TextBox2.Text = End Sub双击“选项C”按钮（OptionButton3）控件，输入下面的红色部分代码：Private Sub OptionButton3_Click() TextBox1.Text = C TextBox2.Text = End Sub就能实现作业的批改。制作多选题的方法与此类似，只是控件要使用“复选框”。对于代码部分可以根据需要写入，这里不再重复，想参考的人可能双击实例中的控件看代码。这里我在“（）”里没有像上面一样使用文本框来显示选择的答案，而是使用了“标签”，主要是提供另一种显示的手段，其实两种选择题可以使用一样的方式。最后说明一点，由于PowerPoint中的安全性通常设