利用vba在Wpp中制作单项选择题贡献者:0421 日期:2009-12-08 阅读:1478
利用vba在WPP制作单项选择题,在教学中具有一定的应用价值,现举例制作单项选择题如下: 1.2008年奥运会在哪个国家召开: A.美国 B.中国 C.德国 D.英国 一、用插入文本框的方法输入题干部分:“1.2008年奥运会在哪个国家召开”,设置为楷体40黑。 调用控件工具箱,单击选项按钮,在幻灯片上左击拖出一个选择项按钮。右键单击OptionButton1,在弹出菜单中选择“属性”,修改“Caption”为“A.美国”,“font”为“楷体”、“一号”,“Enable”为“ture”,“ForeColor”为黑色,其余属性默认。如图一所示: 图一 二、做好第一个选项以后,通过复制得到其它三个选项。全选四个单选选项,单击“绘图”—“对齐与分布”,分别执行“左端对齐”和“垂直居中”命令,进行对齐的设置。如图二所示: 图二 三、右键单击OptionButton2,在弹出菜单中选择“属性”,修改“Caption”为“B.中国”,“font”为楷体、一号,其余属性默认。 右键单击OptionButton3,在弹出菜单中选择“属性”,修改“Caption”为“C.德国”,“font”为楷体、一号,其余属性默认。 右键单击OptionButton4,在弹出菜单中选择“属性”,修改“Caption”为“D.英国”,“font”为楷体、一号,其余属性默认。 如图三所示: 图三 四、输入代码 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 ("对不起,答错了!") 如图四所示: 图四 再复制出若干张幻灯片,修改一下题干和每一项中的属性中的“Caption”和四个选项中的代码就可以了。 注:退出vba设计模式,把宏设为低既可以实现交互效果。 最终效果: 单选题.dps |
|