巧用WPP制作课堂小测验

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()

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快捷键体验一下吧。