如何利用PowerPoint幻灯片交互功能制作单选题

1.如何利用ppt交互功能制作单选题

1，选择“工具”菜单中“宏”项里的“安全性”。

2，将“安全级”设为“中”或“低”。

3，在“工具栏”的空白处，点击右键，在弹出的菜单中选择“控件工具箱”。

4，首先利用文本框将单选题的题目输入上去，再选择“控件工具箱”中的“选项按钮”，在幻灯片上按住左键添加一个选项。

5，在该选项上击右键，在弹出的菜单中选择“属性”。记住选项的名称并将Caption项中的内容修改成选项内容，完成后即添加了一个选项，重复4-5步骤再添加两三个选项。

6，在“控件工具箱”中选择“命令按钮”，添加到幻灯片上，将命令按钮重新命名为“查看结果”，方法与“选项按钮”命名相同。

7，双击“命令按钮”或右击在弹出的菜单中选择“查看代码”，在弹出的代码框中输入

Dim no1If OptionButton1.Value = True Then no1 = "正确" Else no1 = "错误"MsgBox no1, vbOKOnly， "查看结果"

其中OptionButton1要修改为正确选项的名称。

2.关于PPT怎么制作下拉菜单

1、打开ppt后，用绘图工具绘制一个矩形，然后在该矩形上点击右键，选择“添加文本”，输入“目录”。

2、在刚才的矩形1下方，再绘制一个矩形2，这个就是子菜单，你可以在里面放置几个文本链接。

3、选中“矩形2”，选择“自定义动画”，选择“添加效果”→“进入”→“渐变”效果。

4、双击自定义动画面板中效果栏里面刚才添加的效果，出现对话框，选择“计时”选项卡。

5、点击“触发器”按钮，选择“单击下列对象时启动效果”，在下拉框中选择“矩形1”。

7、使用同样的方法，给“矩形2”再添加一个“退出”→“消失”效果，并设置“触发器”为“矩形1”。

8、效果制作完成，预览文件：用鼠标点击“矩形1”，子菜单出来，再点击，子菜单消失，依此反复。

9、技巧：如果需要多个这样的菜单，只需要选中两个矩形，复制、粘贴，修改文字内容就可以了。

3.如何在powerpoint中使用vba做交互单项选择题课件

一、基本构想

图1

本例很简单，就两道题：界面如图1所示，就是题目、选项和一个按钮，在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。由界面可知，我们需要一个文本框，四个选项按钮和一个命令按钮。功能方面我希望在单击“下一题”按钮时，界面能够转到下一题；单击“得分”按钮时，在成绩文本框中能够显示出这次测验的成绩就可以了。本例的两道题的正确选项分别为“B”、“C”。

二、制作过程

1、运行PowerPoint2003，单击“文件”-“保存”命令，弹出“另存为”对话框，文件名设为“测验”，单击“保存”命令。

2、单击“插入”-“文本框”-“水平”命令，这时鼠标变成“1”字型，在编辑区内单击鼠标左键拖动鼠标拉出一个方框，在框内输入第一题的题目“1.人造地球卫星的轨道半径越大，则”。

3、下面我们来制作选项。单击“视图”-“工具栏”-“控件工具箱”命令，弹出“控件工具箱”，单击“控件工具箱”上的“选项按钮”控件，鼠标变成十字型，按下鼠标左键拖动鼠标拉出一个方框。单击“控件工具箱”上的“属性”命令，弹出“属性”对话框，把“名称”改为“ti1”，把“caption”改为“A.速度越小，周期越小”，其它设为默认。如图2所示。

图2

其余的三个选项的名称分别为“ti2”、“ti3”、“ti4”,“caption”分别为“B.速度越小，周期越大”、“C.速度越大，周期越小”、“D.速度越大，周期越大”。

4、“下一题”按钮的制作。单击“控件工具箱”中“命令按钮”控件，这时鼠标变成十字型，如前在编辑区内拖拉出一个方框，松开鼠标方框会变成一个按钮。选中它，单击鼠标右键，在弹出的快捷菜单中选择“属性”命令，把“命令按钮”属性中的“caption”设为“下一题”。

这样，第一题的界面就制作完成了。第二题我们可以按照第2-4步做出来，只是要把题目、各个选项值换一下，另外需要添加一个文本框命令，其名称设为“sum”，命令按钮的名称改为“得分”。

三、添加代码

1、单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，单击“插入”-“模块”命令，弹出“模块”编辑窗口，在“模块”编辑窗口输入“public fen(2) as integer”。

2、选中第一题中“下一题”按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，在“Private Sub CommandButton1_Click（)”和“End Sub”之间输入

If ti2.Value = True Then

fen(0) = 2

Else

fen(0) = 0

End If

With SlideShowWindows(1).View

.GotoSlide (2)

End With

3、选中最后一题中“得分“按钮，单击“控件工具箱”上“查看代码”控件，弹出“Microsoft visual basic”编辑器，在“Private Sub CommandButton1_Click（)”和“End Sub”之间输入

If ti3.Value = True Then

fen(1) = 2

Else

fen(1) = 0

End If

Dim i, s

s = 0

For i = 0 To 2

s = s + fen(i)

Next

sum = s

好了，退出“Microsoft visual basic”编辑器，按F5试一下效果