| 用VBA实现课件中的智能交互（三） |
| 副标题： |
| 作者：张宝红 文章来源：中国电脑教育报 点击数：
更新时间：2005-5-20 23:35:36 |
|
| |
3. [重新填空]命令按钮：需要完成如下语句的设置：
Private Sub CommandButton2_Click()
TextBox1.Value = "请双击后填入你的答案！"
End Sub
Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = " "
End Sub
单选题的制作
例如我们要设计如图1所示的选择题。
1． 题目
可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签，插入后双击该标签启动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 ，请继续努力。"”即可。
|
| 脚本录入：潜龙在野 责任编辑：潜龙在野
|
|
上一篇脚本： 用VBA实现课件中的智能交互（二）
下一篇脚本： 用VBA实现课件中的智能交互（四） |
| 【字体：小
大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
|
（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）