联系我们- 天天加油 >> 电脑教程 >> PowerPoint教程 >> 用VBA实现课件中的智能交互 >> 教程正文
可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签，插入后双击该标签启动VBA，修改Caption属性为“5X-15=0的解是：”，再根据需要修改其他属性（如颜色等）。
2． 选项
插入一单选框，修改其Caption属性为“0”，其他属性可自行修改。其他的单选项可复制制作好的单选框，然后再修改它们的Caption属性。
3． 查看答案命令按钮
在此使用命令按钮，我们可根据单选框的Value属性的值来判断答案，如正确选项（单选框）的Value的值为True，则为该题选择正确，否则为选择错误，我们还可根据选择正误来给出信息，有两种方法。
（1）方法一
用MsgBox（），如果选择正确，显示信息“Very Good!请继续！”，错误则显示“Sorry,你选错了！正确答案是3，请继续努力。”
操作步骤：双击单选框进入VBA，在编辑窗口中完成以下操作。
A. 在编辑窗口中找到如下两条语句：
Private Sub OptionButton3_Click()
End Sub
然后在上面这两条语句中间插入以下语句：
If OptionButton3.Value=True Then ex=MsgBox("Very Good!请继续努力。",VBokonly)
B. 同理，找到如下两条语句：
Private Sub OptionButton1_Click()
End Sub
在这两条语句中间插入语句：
If OptionButton1.Value=True Then ex=MsgBox（"正确答案是3 ，请继续努力。",VBokonly）
C. 找到如下两条语句
Private Sub OptionButton2_Click()
End Sub
在这两条语句中间插入语句
If OptionButton2.Value=True Then ex=MsgBox（"正确答案是 3，请继续努力。",VBokonly）
说明：ex为自定义变量
（2）方法二
在幻灯片合适的地方插入一标签，修改其Caption属性为空，其他设置同方法一，只要把正确选项中的“then”后的语名改为“label2.caption="Very Good!"请继续！"”，错误选项的改为“label2.caption="正确答案是3 ，请继续努力。"”即可
4． 重新选择命令按钮
在幻灯片适当的地方插入一命令按钮，修改其Caption属性为“重新选择”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入：
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
Label2.Caption =""如判断正误用的是方法一，此语句不要）
5． 下一题命令按钮
在幻灯片适当地方插入一命令按钮，修改其Caption属性为“下一题”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入
If MsgBox("是否继续", vbYesNo + vbQuestion, “下一题”)=VBYes Then
.GotoSlide 2
End With（2为第2张幻灯片，此语句表示转到第2张幻灯片）
End if
如果要根据条件的不同转到不同的幻灯片，可用下面语句：
if 条件 then
.GotoSlide 2
End With
End if
说明：条件可以是Caption属性或value属性，书写方法为：控件名称（在VBA中的名称）.属性=（value属性为True或False，Caption属性为具体文本，注意文本要加双引号），例如下面的语句：
if optionbutton1.value=true then
表示如果单选框1的value值为True，那么运行then后的语句，一直到end if。
判断题的制作所有的设置与单选题
返回 PowerPoint教程 教程列表排行
- Excel：单列表格的打印方法
- Excel：轻松查看数据记录
- 第七课 如何在Excel里使用定时器
- Excel中“多排表”帮你省钱又美容
- 第五课 利用VBA设置工作表使用权
- 用Excel实现定时提醒
- 第三课 学习控件
- 第二课 处理录制的宏
- 第一课 VBA是什么
- Word中分节符的奇妙用法
- 避免安装Office2003时假死
- 用Word制作真实试卷模板
- 真正经典的十个Word实用技巧
- 教你给Office Word 2003文档添个
- Word学习之八：文件操作技巧
- Word试卷王-教师出卷的好帮手
最近更新
用VBA实现课件中的智能交互