| 用VBA实现课件中的智能交互（四） |
| 副标题： |
| 作者：张宝红 文章来源：中国电脑教育报 点击数：
更新时间：2005-5-20 23:36:16 |
|
| |
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
With SlideShowWindows(1).View
.GotoSlide 2
End With（2为第2张幻灯片，此语句表示转到第2张幻灯片）
End if
如果要根据条件的不同转到不同的幻灯片，可用下面语句：
if 条件 then
With SlideShowWindows(1).View
.GotoSlide 2
End With
End if
说明：条件可以是Caption属性或value属性，书写方法为：控件名称（在VBA中的名称）.属性=（value属性为True或False，Caption属性为具体文本，注意文本要加双引号），例如下面的语句：
if optionbutton1.value=true then
表示如果单选框1的value值为True，那么运行then后的语句，一直到end if。
判断题的制作
所有的设置与单选题类似，只不过是设计两个选项“√”和“×”，这两个符号可先在Word中插入，然后再复制过来。
|
| 脚本录入：潜龙在野 责任编辑：潜龙在野
|
|
上一篇脚本： 用VBA实现课件中的智能交互（三）
下一篇脚本： PPT交互处理自动生成试题的解决方法 |
| 【字体：小
大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
|
（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）