用PowerPoint中的VB实现课件中的智能交互
http://www.duxiushan.net/index.asp?xAction=xReadNews&NewsID=294
我们使用PPT的目的只有一个，即更好地达成“沟通、演说、汇报、讲解、展示等”的预期效果，而非“秀”这个工具本身，尽管PPT可以做的看上去地很花哨。 既然使用PPT的目标并非PPT本身，而是其背后的沟通呈现目的，因此，我们更愿意定义这门为“管理沟通”课程，属“沟通呈现技能”的分支之一。
一名合格的教师，必须要具备熟练的PPT使用技能，方能在需要呈现的关键时刻一显身手。联想柳传志说，“能练会说才是好把式”，而PPT正是帮助教师在诸多场合完美表达的致胜利器。
然而，效率低下、制作呆板、千篇一律的PPT随处可见，成功的、能够充分协助工作、的PPT却非常难得。不会应用模板、不会应用母版、无法实现智能互动等等，使得PPT的使用变得低效。
PowerPoint中的VB可以实现很多复杂的交互，但很多老师面对VB编程，都会觉得无从下手。因此使的我们用PPT进行课件制作就没有什么交互，制作出来的课件也就水平低下，所以本期我为大家安排了一个关于PowerPoint中VB的小专题，以后在课件中实现交互就不会那么费劲了。
1、VB基础
说到VB编程，就不得不提到控件工具箱，我们需要利用其中的控件搭建需要的环境。并且使用前需将“工具”／宏／安全性／选择低 这样我们才能正常使用控健
1． 显示控件工具箱
在PowerPoint中选择菜单“视图/工具栏/控件工具箱”。
2． 控件工具箱（如图1）中常用控件的介绍
（1）复选框（CheckBox）：可以选择多个选项，常用来设计多选题；
（2）文本框（TextBox）：可以输入文本，常用来设计填空题或者用来显示文字信息；
（3）命令按钮（CommandButton）：用来确定选择或输入；
（4）单选框（OptionButton）：只能选中一个选项，常用来设计单选题或判断题；
3． PPT中插入控件的方法
单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可。
4． 进入VB进行编写代码的方法
双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VB编程状态。
5． 控件的主要属性及设置方法
进入VB后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口，按F4键即可调出该窗口。下面我们就不同的控件，来说明常用属性的设置方法。
（1）复选框
AutoSize：有两个值，True表示根据字的多少调整复选框的大小，False表示复选框为固定大小；
BackColor：设置复选框的背景颜色，单击该属性框出现下拉按钮，选择“调色板”选项卡后选择颜色；
Caption：控件的名称，把默认值删除再重新输入新名称；
Font：设置字体、字号及字形，单击该属性框出现按钮，单击该按钮出现字体对话框，再在对话框中设置；
Forecolor：设置字的颜色，设置方法同BackColor；
Height：复选框的高度，直接输入数字即可；
Width：复选框的宽度，直接输入数字即可；
Value：复选框的值，True复选框为选中，False复选框没被选中。
（2）文本框
AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框；Value：文本框的值，用来保存输入的文本；
TextAlign：设置文本对齐方式。
（3）单选框
属性设置同复选框。其中常用的是value：单选框的值，True为选中，False没被选中。
（4）命令按钮
主要用Caption：控件的名称，把默认值删除再重新输入新名称；
（5）设置控件属性的两种方法
l 在属性窗口中修改相应的数值
l 在程序代码中修改，格式是：控件名称.属性名＝值，如checkbox1.value=true 表示复选框被选中。
6、条件语句
如果你学过任何一种编程的话，都会知道在程序里控制其流程的有两种语句，条件与循环，VB自然也不例外，其实不管哪种语言，条件和循环的样子都差不多，只不过各有各的规矩罢了。
在条件语句里，我们先来学习“If……Then……”语句。
它的一般语法是：
If <条件成立> Then
<语句1>
<语句2>
………
End If
有时我们还会用到
If <条件成立> Then
<语句1>
Else
<语句2>
End If
7、消息框MsgBox的功能
我们常用消息框显示一些交互的信息，如图2所示的消息框用下面的语句可实现：
Msgbox("这是一个例题")
8、单选题的制作
例如我们要设计PPT所示的单选选择题。
1． 输入题目
用文本框，直接输入文本即可。再根据需要修改其他属性（如颜色等）。
2． 单选框选项
插入1个单选框，修改其Caption属性为“A”，其他属性可自行修改。其他的单选项可复制制作好的单选框，粘贴，然后再修改它们的Caption属性，依次是BCD。
3． 编写控件程序代码
我们可根据单选框的Value属性的值来判断答案，因为正确选项（单选框）的Value的值为True，则为该题选择正确，否则为选择错误，我们根据选择正误来给出信息，有两种方法。
（1）方法1
用MsgBox（），如果选择正确，显示信息“Very Good!请继续！”，错误则显示“Sorry,你选错了！请继续努力。”
操作步骤：双击单选框进入VB，在编辑窗口中完成以下操作：
A. 在编辑窗口中找到如下两条语句：／／以下两条语句是自动生成的，只要找到相应的控件就可以了。
Private Sub OptionButton2_Click()
End Sub
然后在上面这两条语句中间插入以下语句：
MsgBox("Very Good!请继续努力。")
B. 同理，找到如下两条语句：
Private Sub OptionButton1_Click()
End Sub
在这两条语句中间插入语句：
MsgBox（" Sorry,你选错了！请继续努力。"）
C. 找到如下两条语句
Private Sub OptionButton3_Click()
End Sub
在这两条语句中间插入语句
MsgBox（" Sorry,你选错了！请继续努力。"）
D. 找到如下两条语句
Private Sub OptionButton4_Click()
End Sub
在这两条语句中间插入语句
MsgBox（" Sorry,你选错了！请继续努力。"）
（2）方法2
在幻灯片适当的地方插入一命令按钮，修改其CAPTION属性为“提交答案”，
双击命令按钮，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入：
If OptionButton1.Value = False And OptionButton2.Value = True And OptionButton3.Value = False And OptionButton4.Value = False Then
MsgBox ("选择正确。")
Else
MsgBox ("Sorry,你选错了！请继续努力。")
End If
其中：Private Sub CommandButton1_Click()表示命令按钮被单击后要做的事情，这里要做的是判断答案是否正确。
4、重新选择命令按钮
在幻灯片适当的地方插入一命令按钮，修改其Caption属性为“重新选择”，在编辑窗口中的Private Sub CommandButton1_Click()和End Sub语句间插入：
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
2、 多选题的制作
1. 题目的设计同单选题
2. 多选框选项：用复选框（CheckBox)，其他设置同单选题。
3. [查看答案]命令按钮：因为是多选题，答案有多个，所以要书写多个条件，条件之间用and连接，表示同时满足这几个条件，例如第一、三、四的选项是正确的，则需要输入如下语句：
Private Sub CommandButton1_Click()
If CheckBox1.Value=True And CheckBox3.Value=True And CheckBox5.Value=True Then
Msgbox(“恭喜你！答对了，哈哈”) 给出正确的提示信息
else
msgbox(“答错了，请继续努力，按“重置”按钮继续答题！”)
end if
end sub
4、重置命令按钮代码
在幻灯片适当的地方插入一命令按钮，修改其Caption属性为“重置”，在编辑窗口中的Private Sub CommandButton2_Click()和End Sub语句间插入：
OptionButton1.Value = False
OptionButton2.Value = False
OptionButton3.Value = False
OptionButton4.Value = False
3、填空题的制作
1. 题目的设置同单选题，填空的地方用文本框。
2. 判断正误：因为是填空题，所填答案是文本，正确的文本一定要用半角双引号括起来，如几个填空一起判断，则条件书写为：
l ［提交答案］命令按钮需要完成如下语句的设置：
Private Sub CommandButton1_Click( )
If TextBox1.Value = "寻常" And TextBox2.Value = "花针" And TextBox3.Value = "慢慢" And TextBox4.Value = "小路" Then
MsgBox ("恭喜同学们答对了！")
Else
MsgBox ("其中有答错了噢，再想想，然后按订正错误按钮！")
End If
End Sub
l [订正错误]命令按钮需要完成如下语句的设置：
Private Sub CommandButton2_Click()
If TextBox1.Value <> "寻常" Then
TextBox1.Value = "请双击后填入你的答案！"
End If
If TextBox2.Value <> "花针" Then
TextBox2.Value = "请双击后填入你的答案！"
End If
If TextBox3.Value <> "慢慢" Then
TextBox3.Value = "请双击后填入你的答案！"
End If
If TextBox4.Value <> "小路" Then
TextBox4.Value = "请双击后填入你的答案！"
End If
End Sub
l 双击文本框后输入答案代码
Private Sub TextBox1_dbclick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.Value = ""
End Sub
Private Sub TextBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.Value = ""
End Sub
Private Sub TextBox3_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.Value = ""
End Sub
Private Sub TextBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox4.Value = ""
End Sub
9、判断题的制作
所有的设置与单选题类似，只不过是设计两个选项“√”和“×”，这两个符号可先在Word中插入，然后再复制过来。
10、互动地图制作示范
1、先在图形处放上文本框控件，然后可以修改其backcolor属性即背景色，再在代码编辑窗口中进行编写代码。
鼠标单击地图相应位置后显示地名，因此执行的过程是文本框单击所要执行的事件，其程序代码如下：
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox1.Text = "乌鲁木齐"
End Sub
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox2.Text = "海南"
End Sub
Private Sub TextBox3_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox3.Text = "湖南"
End Sub
Private Sub TextBox4_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
TextBox4.Text = "四川"
End Sub
