1、启动WPS演示并新建一演示文稿，在右侧的幻灯片版式任务窗格下面的版式列表中选择内容版式/空白。单击插入菜单，然后依次选择文本框/横向命令，在幻灯片编辑区单击出现一文本框，输入小测验并设置好字体、字号、位置等属性。利用相同的方法再次插入一个文本框，输入请输入您的姓名：并设置好其属性。
2、选中控件工具箱中的文本框工具(若控件工具箱没有打开，可通过菜单视图/工具栏/控件工具箱打工)，这时鼠标变成一个十字形，在请输入您的姓名：右边按下鼠标左键并拖出一适当矩形;选中命令按钮工具，在文本框的下面拖出一命令按钮并右击，在弹出的快捷菜单中选择属性，打开属性对话框，把Caption属性改为确定，其它为默认。如图1所示。
图1
3、在菜单栏单击插入/新幻灯片命令，根据步骤1的方法，把新幻灯片的版式设为空白，然后插入一文本框，在文本框中输入试题，例如：1+1=?。在试题的下面插入3个文本框，分别输入A、1、B、2、C、3。
根据需要重复上面的步骤直到添加完所有的试题。
4、选中第一张幻灯片，双击命令按钮打开VBA编辑窗口，删除窗口中的所有内容，然后输入以下完整代码：
Dim uname As String
Sub ss()
uname = TextBox1.Text
End Sub
Sub right()
ss
MsgBox "恭喜您答对了!" & uname
ActivePresentation.SlideShowWindow.View.Next
End Sub
Sub endright()
ss
MsgBox "恭喜您全答对了!" & uname
End Sub
Sub wrong()
（本文来源于图老师网站，更多请访问https://m.tulaoshi.com/diannaorumen/）MsgBox "您答错了，请再来一次!" & uname
End Sub
Private Sub CommandButton1_Click()
ss
If uname = "" Then
MsgBox "请输入您的姓名："
Else
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub
5、选中试题页，对选项进行设置，右击选项，在弹出的快捷菜单中选择动作设置命令，打开动作设置对话框，选择单击鼠标选项卡，选中 运行宏，单击运行宏下面的按钮，在弹出的菜单中选择right(若选项错误选择wrong)，如图2所示，然后单击确定按钮退出对话框。
图2
用相同的方法对其它选项进行设置。最后一题的正确选项的运行宏选择endright。
6、单击菜单栏幻灯片放映/幻灯片切换命令，打开幻灯片切换任务窗格，在换片方式区，去掉单击鼠标时前面的勾选，然后单击应用于所有幻灯片按钮。如图3所示。
图3
现在，整个小测验演示文稿就制作完成了。按下F5快捷键体验一下吧。
