用PowerPoint中的VBA实现课件中的智能交互(3) 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 ，请继续努力。"”即可。 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("是否继续", vbYesNo + vbQuestion, “下一题”)=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中插入，然后再复制过来。
