利用vba在WPS演示中制作单项选择题

来源:岁月联盟 编辑:zhu 时间:2009-12-19
利用vba在WPS演示中制作单项选择题内容简介:利用vba在WPP中制作单项选择题 蒋海东 利用vba在WPP制作单项选择题,在教学中具有一定的应用价值,现举例制作单项选择题如下: 1.2008年奥运会在哪个国家召开: A.美国 B.中国 C.德国 D.英国 一、用插入文本框

利用vba在WPP制作单项选择题,在教学中具有一定的应用价值,现举例制作单项选择题如下:

1.2008年奥运会在哪个国家召开:

A.美国

B.中国

C.德国

D.英国

一、用插入文本框的方法输入题干部分:“1.2008年奥运会在哪个国家召开”,设置为楷体40黑。

调用控件工具箱,单击选项按钮利用vba在WPS演示中制作单项选择题【图】_,在幻灯片上左击拖出一个选择项按钮。右键单击OptionButton1,在弹出菜单中选择“属性”,修改“Caption”为“A.美国”,“font”为“楷体”、“一号”,“Enable”为“ture”,“ForeColor”为黑色,其余属性默认。如图一所示:

利用vba在WPS演示中制作单项选择题【图】_

图一

二、做好第一个选项以后,通过复制得到其它三个选项。全选四个单选选项,单击“绘图”—“对齐与分布”,分别执行“左端对齐”和“垂直居中”命令,进行对齐的设置。如图二所示:

利用vba在WPS演示中制作单项选择题【图】_

图二

三、右键单击OptionButton2,在弹出菜单中选择“属性”,修改“Caption”为“B.中国”,“font”为楷体、一号,其余属性默认。

右键单击OptionButton3,在弹出菜单中选择“属性”,修改“Caption”为“C.德国”,“font”为楷体、一号,其余属性默认。

右键单击OptionButton4,在弹出菜单中选择“属性”,修改“Caption”为“D.英国”,“font”为楷体、一号,其余属性默认。

如图三所示:

利用vba在WPS演示中制作单项选择题【图】_

图三

四、输入代码

1、右 键 单 击 OptionButton1 , 在 弹 出 菜 单 中 选 择 “查 看 代 码 ” , 在 “ Private Sub OptionButton1_Click()”和“End Sub”两段代码中间插入:

MsgBox ("对不起,答错了!")

2、右 键单击OptionButton2,在弹出菜单中选择“查看代码” ,在打开的窗口中出现“Private Sub OptionButton2_Click()”和“End Sub”两段代码中间插入:

MsgBox ("你真棒,答对了!")

3、右键单击OptionButton3,在弹 出 菜 单 中 选 择“查看代码” ,在打 开 的 窗 口 中 出 现“Private Sub OptionButton3_Click()”和“End Sub”两段代码中间插入:

MsgBox ("对不起,答错了!")

4、右键 单 击 OptionButton4,在 弹 出 菜 单 中 选 择“查看代码” ,在打 开 的 窗 口 中 出 现“Private Sub OptionButton4_Click()”和“End Sub”两段代码中间插入:

MsgBox ("对不起,答错了!")

如图四所示:

利用vba在WPS演示中制作单项选择题【图】_

图四

再复制出若干张幻灯片,修改一下题干和每一项中的属性中的“Caption”和四个选项中的代码就可以了。

注:退出vba设计模式,把宏设为低既可以实现交互效果。

最终效果:

利用vba在WPS演示中制作单项选择题【图】_