下面的是PPT教程网给你带来的相关内容：

ppt课件的制作教程:ppt课件制作之交互式操作实例教程

在课件制作中常常要制作单选题、多选题、填空题和判断题，下面这个实例就是制作这几类题目。

1、启动，将幻灯片版式设为“空白版式”。单击菜单中的“插入”--“文本框”--“水平”，在插入的文本框中输入“交互演示文稿”，同理插入其他文本框并输入相应的内容及相应格式化，最后结果如下图所示(注意，有十一个文本框哦！）：

接下来单击“视图”菜单--“工具栏”--“控件工具箱”，出现如下图所示的控件工具箱：

控件解释如下:

2、制作单选题选项

单击控件工具箱中的“选项按钮”，将鼠标标移至第1题下面（此时鼠标指针为细十字），拖动出一个合适大小的矩形框。此时你应该会看到一个单选按钮，并且选项内容为。接着右击这个单选按钮，选择弹出的快捷菜单中的“属性”，打开属性对话框并做如下图所示的设置：

解释一下：这里我分别对名称、和项进行设置。

①名称：即该单选按钮的名字，默认为，为了方便，我改为Optb1；

②即标题，它是指显示在单选按钮后的文字，默认为，在第一个选项中，我按题目将其改为“美国”；

③即分组名，因为若干个单选项中我们只能选择其中之一，这样我们就需要将第一题的四个单选按钮分成一组，第二题的四个选项分成另一组，这样就不会出现八个单选按钮只能选择一个的现象了。

再接下来，用同样的方法，再制作其他七个单选项到相应位置，分别取名为Optb2---Optb8，并将前四个划为第一组，属性为，后四个划为一组，属性为。项分别设为相应的选择内容。此时的两道单选题的选项添加完成，如下图：

单击控件工具箱中的“复选框”，将鼠标移至第3题下面，拖动鼠标，画出一个矩形框，此时我们会看到一个复选按钮，并且在后面有。然后单击控件箱中的“属性”也会打开属性设置窗口，分别将其（名称）设为Chkb1、设为“单击开始中的程序查找”、设为（注意不要与两组单选题的组名同名哦）。

3、制作多选题的选项

用同样的方法制作并设置其他多选项，名字分别为Chkb2---Chkb8，设为相应的选择项，将前四个复选按钮的设置为，其他四个设为。此时已完成单选项、多选项的添加，如下图所示：

单击控件工具箱中的“文本框”，将鼠标移至第5题空位置，拖动出合适的大小，这样就会看到一个空的文字框。然后单击控件箱中的“属性”，将其（名称）设为Txb1，同理制作其他两个文本框，名称分别为Txb2和Txb3。完成后的填空如下图所示：

4、制作填空题的空

单击控件工具箱中的“切换按钮”，将鼠标移至第7题后面，拖动鼠标，我们会看到一个按钮。然后单击控件箱中的“属性”，将其（名称）属性设置为Tgb1,值设为“判断”。如图所示：

5、制作判断题的判断按钮

单南控件工具箱中的“命令按钮”，在合适的位置拖动鼠标，我们会看到一个命令按钮。然后单击控件箱中的“属性”，在属性窗口中将其（名称）属性设置为Cmb1和Cmb2，分别设为“开始答题”和“查看成绩”即可。

6、制作开始答题和查看答案两个命令按钮

OK！到这里为止，我们的界面设计就全部结束了。最后界面如下图所示：

那是不是到这里就真的全部完成了呢？当然不是！还有最精华的部分还没做，即还要对相应的判断、答题按钮编写代码。这个较难，有些老师可能有难度，耐心看一下，其实这些代码只是一些很简单的程序，有学过VB的老师就相对较容易了。

7、对判断题按钮编写代码

大击判断按钮，就会出现其单击事件的代码窗口，在 Sub ()和之间写入一句代码

If tgb1.value=true .="√" Else tgb1.="×"

如下图所示：

双击“开始答题”按钮，在 Sub ()和之间写入如下绿色代码：

Optb1.Value = False

Optb2.Value = False

Optb3.Value = False

Optb4.Value = False

Optb5.Value = False

Optb6.Value = False

Optb7.Value = False

Optb8.Value = False

Chkb1.Value = False

Chkb2.Value = False

Chkb3.Value = False

Chkb4.Value = False

Chkb5.Value = False

Chkb6.Value = False

Chkb7.Value = False

Chkb8.Value = False

Txb1.Text = ""

Txb2.Text = ""

Txb3.Text = ""

Tgb1. = "判断"

这是一些初始化代码,单击"开始答题"按钮时可以将各题的答题信息清除,然后重新答题。

8、为两个命令按钮写代码

再双击“查看成绩”按钮，在 Sub ()和之间写入如下绿色代码：

Dim no1, no2, no3, no4, no5, no6, no7

If Optb1.Value = True Then no1 = "正确" Else no1 = "错误，答案应为第一项"

If Optb7.Value = True Then no2 = "正确" Else no2 = "错误，答案应为第三项"

If Chkb1.Value = True And Chkb3.Value = True And Chkb4.Value = no3 = "正确" Else no3 = "错误，答案应为第一、三、四项"

If Chkb5.Value = True And Chkb6.Value = True And Chkb8.Value = no4 = "正确" Else no4 = "错误，答案应为第一、二、四项"

If Txb1.Text = "运算器" Then no5 = "正确" Else no5 = "错误，答案应为运算器"

If (Txb2.Text = "硬件" And Txb3.Text = "软件") Or (Txb2.Text = "软件" .Text = "硬件") Then no6 = "正确" Else no6 = "错误ppt课件的制作教程，答案应为硬件和软件"

If Tgb1.Value = False And Tgb1. "判断" Then no7 = "正确" Else no7 ="错误，答案应为错误"

"第1题答案" & no1 & Chr(13)& "第2题答案" & no2 &Chr(13) & "第3题答案" & no3& Chr(13) & "第4题答案"& no4 & Chr(13) &"第5题答案" & no5 & Chr(13)& "第6题答案" & no6 &Chr(13) & "第7题答案" & no7, ,"查看答案"

这些代码是用来判断各题的答题对错，并将对错情况存储在七个变量当中ppt课件的制作教程:ppt课件制作之交互式操作实例教程，最后显示出做题结果。如下图：

感谢你支持pptjcw.com网，我们将努力持续给你带路更多优秀实用教程！

上一篇：ppt如何加入音乐背景:如何在ppt中加入能从头到尾的音乐？ 下一篇：没有了

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。