用PowerPoint中的VBA实现课件中的智能交互(2) 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 注意：正确的文本一定要用半角双引号括起来，如几个空一起判断，方法同多选题。 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属性。
