1.单选题的题目是:5X-15=0的解是0、5或3。
本题可用文本框，也可用标签。如果用文本框，直接输入文本即可。如果用标签，插入后双击该标签启动VBA，修改Caption属性为“5X-15=0的解是:”再根据需要修改其他属性（如颜色等）。
2.选项
插入一单选框，修改其Caption属性为“0”，其他属性可自行修改。其他的单选项可复制制作好的单选框，然后再修改它们的Caption属性。
3.“查看答案”命令按钮
在此使用命令按钮，我们可根据单选框的Value属性的值来判断答案，如正确选项（单选框）的Value的值为True，则为该题选择正确，否则为选择错误。根据选择正误来给出信息，有两种方法。
（1）方法一
用MsgBox（），如果选择正确，显示信息"VeryGood!请继续！"，错误则显示"Sorry,你选错了！正确答案是3，请继续努力。"
文章内容由强国说-WPS之家(wps.qiangguoshuo.com)收集于网络，希望能为您提供帮助。
操作步骤：双击单选框进入VBA，在编辑窗口中完成以下操作。
A.在编辑窗口中找到如下两条语句：
PrivateSubOptionButton3_Click()
EndSub
然后在上面这两条语句中间插入以下语句：
IfOptionButton3.Value=TrueThenex=MsgBox("VeryGood!请继续努力。",Vbokonly)
B.同理，找到如下两条语句：
PrivateSubOptionButton1_Click()
EndSub
在这两条语句中间插入语句：
IfOptionButton1.Value=TrueThenex=MsgBox（"正确答案是3，请继续努力。",Vbokonly）
C.找到如下两条语句
PrivateSubOptionButton2_Click()
EndSub
在这两条语句中间插入语句
IfOptionButton2.Value=TrueThenex=MsgBox（"正确答案是3，请继续努力。",Vbokonly）
说明：ex为自定义变量
（2）方法二
在幻灯片合适的地方插入一标签，修改其Caption属性为空,其他设置同方法一,只要正确选项中的“then”后的语名改为“label2.caption="VeryGood!"请继续！"”，错误选项的改为“label2.caption="正确答案是3，请继续努力。"”即可。
（3）方法三
在编辑窗口中找到如下两条语句：
PrivateSubOptionButton3_Click()
EndSub
然后在上面这两条语句中间插入以下语句：
MsgBox("恭喜您，答对了!")
4.“重新选择”命令按钮
在幻灯片适当的地方插入一命令按钮，修改其Caption属性为“重新选择”，
在编辑窗口中的PrivateSubCommandButton1_Click()和EndSub语句间插入：
OptionButton1.Value=False
OptionButton2.Value=False
OptionButton3.Value=False
OptionButton4.Value=False
Label2.Caption=""
//如判断正误用的是方法一，此语句不要
5.“下一题”命令按钮
在幻灯片适当地方插入一命令按钮，修改其Caption属性为“下一题”，
在编辑窗口中的PrivateSubCommandButton1_Click()和EndSub语句间插入：
IfMsgBox("是否继续",vbYesNo+
vbQuestion,"下一题")=vbYesThen
WithSlideShowWindows(1).View
.GotoSlide2
EndWith
Endif
//2为第2张幻灯片,表示转到第2张幻灯片
如果要根据条件的不同转到不同的幻灯片，可用下面语句：
if条件then
WithSlideShowWindows(1).View
.GotoSlide2
EndWith
Endif
说明：条件可以是Caption属性或value属性，书写方法为：
控件名称（在VBA中的名称）.属性=（value属性为True或False，Caption属性为具体文本，注意文本要加双引号）。
例如下面的语句：
ifoptionbutton1.value=truethen
表示如果单选框1的value值为True，那么运行then后的语句，一直到endif。
多选题
题目同前，用复选框（CheckBox),其他设置同单选题。
[查看答案]按钮：因是多选题，答案有多个，所以有多个条件。例如第一、三的选项是正确的，则需要输入如下语句：
IfCheckBox1.Value=TrueAndCheckBox2.Value=
TrueAndCheckBox4.Value=TrueAndCheckBox3.Value=FalseThen
MsgBox("厉害，答对了!"),vbOKOnly,"多项选择题"
Else
MsgBox("不好意思，您做错了。再仔细想想?"),vbOKOnly
EndIf
是非判断题
是非判断题其实就是只有两个选项的单项选择题。完全可以放两个单选按钮，分别代表“是”和“非”。
只不过是设计两个选项“√”和“×”，这两个符号可先在Word中插入，然后再复制过来。
所有的设置与单选题类似，然后按前面单项选择题的制作方法操作。
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
