| 用VBA实现课件中的智能交互（二） |
| 副标题： |
| 作者：张宝红 文章来源：中国电脑教育报 点击数：
更新时间：2005-5-20 23:34:53 |
|
| |
（2）文本框
AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框；Value：文本框的值，用来保存输入的文本；TextAlign：设置文本对齐方式。
（3）单选框
属性设置同复选框。
（4）标签
除Value外，其他同复选框。
（5）命令按钮
同标签。
6． 消息框MsgBox的功能
我们常用消息框显示一些交互的信息，如图2所示的消息框用下面的语句可实现：
Msgbox("这是一个例题",VbYesNo,"示例")
多选题的制作
1. 题目的设计同单选题
2. 选项：用复选框（CheckBox)，其他设置同单选题。
3. [查看答案]命令按钮：因为是多选题，答案有多个，所以要书写多个条件，条件之间用and连接，表示同时满足这几个条件，例如第一、三、五的选项是正确的，则需要输入如下语句：
If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True Then
给出正确的提示信息同单选题
else
给出错误的提示信息同单选题
end if
填空题的制作
1. 题目的设置同单选题，填空的地方用文本框。
2. 判断正误：因为是填空题，所填答案是文本，所以条件书写为：
if TextBox1.value="正确的文本" then 给出正确的提示信息同单选题
else
给出错误的提示信息同单选题
end if
注意：正确的文本一定要用半角双引号括起来，如几个空一起判断，方法同多选题。
|
| 脚本录入：潜龙在野 责任编辑：潜龙在野
|
|
上一篇脚本： 用VBA实现课件中的智能交互（一）
下一篇脚本： 用VBA实现课件中的智能交互（三） |
| 【字体：小
大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
|
（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）