分享
 
 
 

用PowerPoint做多种类型的交互练习题

王朝other·作者佚名  2008-05-31
窄屏简体版  字體: |||超大  

用Powerpoint 2007可以方便迅速地做出演示型课件。但上课是需要交互的,即使是简单的单项选择题或者是非判断题也应该要根据学生们的选择在课件中做出相应的反应的。下面我们用PowerPoint 2007制作简单的交互式练习题。

一、用到的控件属性

先点击PowerPoint左上角“Office选项”按钮,在弹出的菜单中点击右下角“PowerPoint选项”按钮,在打开的对话框中选中“在功能区显示“开发工具”选项卡”复选项。完成后就可以在功能区添加“开发工具”选项卡了。

点击“开发工具”选项卡,“控件”功能组中相关按钮就是我们要用的主要控件了,如图1所示。

以单选框为例,点击该单选框按钮,然后在幻灯片上单击,就可以产生一个单选项。选中它,点击右键,在弹出菜单中选择“属性”命令,或者点击“开发工具”选项卡“控件”功能组中“属性”按钮,可以打开“属性”对话框。在其中的“Caption”输入框中输入我们所需要的内容,就可以做出适合我们的单选项了。

单击“BackStyle”项目,然后在右侧的下拉列表中选择“0-fmBackStyleTransparent”,可以使做出的单选项背景透明。点击“Font”输入框,然后单击出现的按钮,可以设置字体、字号等格式。点击“Forecolor”输入框,则可以设置颜色。如图2所示。

其它几个控件“属性”设置基本与此类似,不再罗嗦。

二、单项选择题

题目的题干部份可以用插入文本框的方法输入。然后用单选框做好四个选项。可以在做好一个以后,复制得到其它三个。只需要修改属性中的“Caption”即可。完成后,按住“Shift”键依次选中它们,然后点击功能区“开始”选项卡“绘图”功能组中“排列”按钮下的小三角形,在弹出的菜单中选择相应命令将它们对齐并分布均匀,如图3所示。

现在我们选中代表正确答案的那个单选项“B:矛盾分析的方法”,点击右键,在弹出菜单中选择“查看代码”命令,在打开的窗口中找到“PRivate Sub OptionButton2_Click()”和“End Sub”两段代码。在这两段代码中间插入代码:

MsgBox ("恭喜您,答对了!")

OptionButton1.Value = False And OptionButton3.Value = False And OptionButton4.Value = False

关闭窗口,然后运行一下幻灯片,点击选项B试试,结果不错吧?如图4所示。

代码的第一句是设置提示框及提示信息的。而第二句代码则是在单击B选项后使其它各选项恢复到未选中状态。“OptionButton*”(*为1、2、3、4)分别表示我们制作出的四个单选项。它是以单选项制作顺序排列的。在“属性”对话框的“名称”处可以查到它。

我们可以照着葫芦画瓢,给其它的三个选项也设置上类似的提示框。要注意提示信息及第二句代码中相应数字的调整。

三、是非判断题

是非判断题可以看成只有两个选项的单项选择题。所以,其做法与单项选择题是一样的。只是在最后添加的代码稍加修改即可。

四、多项选择题

多选题需要用到复选框。假定有四个选项,其中只有A、B、D三项全选才为正确,多选或少选均为错误。

用前面的方法插入四个复选框,调整好位置。再插入一个命令按钮,打开“属性”对话框,将“Caption”值设为“答案”。选中“答案”按钮,在右键菜单中选择“查看代码”命令,打开代码编辑窗口。在窗口中找到如下两句代码:

Private Sub CommandButton1_Click()

End Sub

在这两句代码中间插入以下代码:

If CheckBox1.Value = True And CheckBox2.Value = True And CheckBox4.Value = True And CheckBox3.Value = False Then

MsgBox "厉害,答对了!", vbOKOnly, "多项选择题"

Else

MsgBox "不好意思,您做错了。再仔细想想?", vbOKOnly, "多项选择题"

CheckBox1.Value = False

CheckBox2.Value = False

CheckBox3.Value = False

CheckBox4.Value = False

End If

如图5所示。放映幻灯片试试,如果出错,呵呵,那就如图6所示效果,弹出一提示框进行提示。

仔细读一下代码不难发现,其实是做了一个判断:如果第1、2、4个复选框均为选中状态的话,就弹出一个表示答对的提示框,否则就弹出一个答错的提示框,并将所有复选框的选中状态消除,以便再次选择。

五、填空题

先做好题目,制作一条短横线表示填空区。点击“开发工具”选项卡中的“文本框”控件,然后拖出一个大小合适的文本框。调整其位置至合适。仍然打开其“属性”对话框,设置其相关的属性,比如字体格式等。这与前面的介绍基本一致,可参照操作。

选中做好的文本框,打开代码编辑窗口,还是先找到这两句代码:

Private Sub TextBox1_Change()

End Sub

在两句中间插入如下代码:

If TextBox1.Value = "电脑" Then

MsgBox "不错,你填对了!", vbOKOnly, "填空题"

Else

MsgBox "不对吧?再想想!", vbOKOnly, "填空题"

TextBox1.Text = ""

End If

其中“电脑”是正确的答案。如果在文本框中填入了“电脑”,那么就会弹出正确的提示,反之会弹出错误提示并清除已填写内容。这就是这段代码的含义。

放映一下试试,是不是可以填入答案并做出相应的反馈啊?效果如图7所示。

好了,先这么多吧。好好利用控件和VBA代码,可以完成一些看起来不那么容易完成的事情呢!

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有