级链接；（4）单选框（OptionButton）：只能选中一个选项，常用来设计单选题或判断题；（5）标签（Label）：用来显示文字信息。 3． 插入控件的方法
单击控件工具箱上的工具按钮，然后在幻灯片中拖动到适当大小即可。 4． 进入VBA的方法
双击幻灯片中的控件或用菜单命令“工具/宏/Visual basic编辑器”即可进入VBA编程状态。 5． 控件的主要属性及设置方法
进入VBA后，需要在“属性”窗口中对控件的属性进行设置。如果没有出现“属性”窗口，按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）单选框 属性设置同复选框。 （4）标签
除Value外，其他同复选框。 （5）命令按钮 同标签。
6． 消息框MsgBox??的功能
我们常用消息框显示一些交互的信息，如图2所示的消息框用下面的语句可实现： Msgbox(\这是一个例题\示例\ 多选题的制作
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=\正确的文本\给出正确的提示信息同单选题 else
给出错误的提示信息同单选题 end if
注意：正确的文本一定要用半角双引号括起来，如几个空一起判断，方法同多选题
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(\请继续努力。\ B. 同理，找到如下两条语句： Private Sub OptionButton1_Click() End Sub
在这两条语句中间插入语句：
If OptionButton1.Value=True Then ex=MsgBox（\正确答案是3 ，请继续努力。\） C. 找到如下两条语句
Private Sub OptionButton2_Click() End Sub
在这两条语句中间插入语句
If OptionButton2.Value=True Then ex=MsgBox（\正确答案是 3，请继续努力。\） 说明：ex为自定义变量 （2）方法二
在幻灯片合适的地方插入一标签，修改其Caption属性为空，其他设置同方法一，只要把正确选项中的“then”后的语名改为“label2.caption=\请继续！\”，错误选项的改为“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(\是否继续\“下一题”)=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中插入，然后再复制过来。
PowerPoint制作自动交互问答课件
教师在每节课结束前，习惯留几道习题让学生们自行练习，以巩固当堂课所学的知识。如果用PowerPoint来做相应的演示文稿，可以利用其VBA功能，让这些练习具有交互功能。
如图1，这是一个答题界面示例，可以判断答案正确性的多项选择题，下面我们来看看具体的实现过程。
图1
1．启动PowerPoint2003（其他版本操作相似），打开相应的课件演示文稿，定位到制作练习题幻灯片中，输入题干字符。
2．执行“视图→工具栏→控件工具箱”命令，展开“控件工具箱”，点击一下其中的“复选框”按钮，然后在幻灯片中拖拉出一个复选框来。
图2
3．选中上述复选框（CheckBox1），单击“控件工具箱”上的“属性”按钮，打开“属性”对话框，切换到“按分类序”标签下，展开“外观”选项，将其中的“Caption”后面的字符修改为题目相应的选项字符（如“水”），再展开“字体”选项，点击右侧的“省略号”按钮，打开“字体”对话框，设置好字体、字号等。
小贴士：控件的其他属性可以直接采用默认的属性。
4．将上述复制框复制三份（根据备选项的多少确定复制数量），分别将“Caption”属性修改为题目其他选项字符（如“纯碱、熟石灰、干冰”）。
5．再用“控件工具箱”的“命令按钮”在幻灯片上添加一个按钮，并将其“Caption”属性修改为“判断”（或其他字符）。再双击该按钮，进入“Visual