郑州电脑维修 Win7粉丝 网站地图
您的位置:IT服务网办公软件WPS浏览正文

巧用WPP制作课堂小测验

2011-11-15 14:03:58 浏览次数:0 评论 0

巧用WPP制作课堂小测验这篇文章的内容如下:

WPS独家约稿文章,严禁任何网站或刊物转载

1、启动WPS演示并新建一演示文稿,在右侧的“幻灯片版式”任务窗格下面的版式列表中选择“内容版式/空白”。单击“插入”菜单,然后依次选择“文本框/横向”命令,在幻灯片编辑区单击出现一文本框,输入“小测验”并设置好字体、字号、位置等属性。利用相同的方法再次插入一个文本框,输入“请输入您的姓名:”并设置好其属性。

2、选中“控件工具箱”中的“文本框”工具(若“控件工具箱”没有打开,可通过菜单“视图/工具栏/控件工具箱”打工),这时鼠标变成一个十字形,在“请输入您的姓名:”右边按下鼠标左键并拖出一适当矩形;选中“命令按钮”工具,在文本框的下面拖出一命令按钮并右击,在弹出的快捷菜单中选择“属性”,打开“属性”对话框,把“Caption”属性改为“确定”,其它为默认。如图1所示。

\

图1

3、在菜单栏单击“插入/新幻灯片”命令,根据步骤1的方法,把新幻灯片的版式设为空白,然后插入一文本框,在文本框中输入试题,例如:1+1=?。在试题的下面插入3个文本框,分别输入“A、1”、“B、2”、“C、3”。

根据需要重复上面的步骤直到添加完所有的试题。

4、选中第一张幻灯片,双击命令按钮打开VBA编辑窗口,删除窗口中的所有内容,然后输入以下完整代码:

DimunameAsString

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

Ifuname = "" Then

MsgBox "请输入您的姓名:"

Else

ActivePresentation.SlideShowWindow.View.Next

End If

End Sub

5、选中试题页,对选项进行设置,右击选项,在弹出的快捷菜单中选择“动作设置”命令,打开“动作设置”对话框,选择“单击鼠标”选项卡,选中“运行宏”,单击“运行宏”下面的按钮,在弹出的菜单中选择“right”(若选项错误选择“wrong”),如图2所示,然后单击“确定”按钮退出对话框。

\

图2

用相同的方法对其它选项进行设置。最后一题的正确选项的运行宏选择“endright”。

6、单击菜单栏“幻灯片放映/幻灯片切换”命令,打开“幻灯片切换”任务窗格,在“换片方式”区,去掉“单击鼠标时”前面的勾选,然后单击“应用于所有幻灯片”按钮。如图3所示。

图3

现在,整个小测验演示文稿就制作完成了。按下F5快捷键体验一下吧。小测验.dps



本文地址:http://www.itfw5.com/office/WPS/10376.html
  • 郑州电脑维修,同时还提供提供郑州数据恢复,郑州硬盘数据恢复,郑州内存卡数据恢复;
    请自觉遵守相关政策法规,严禁发布色情/暴力/反动言论。

    相关广告

    WPS推荐文章