powerpoint制作.docx
- 文档编号:29622169
- 上传时间:2023-07-25
- 格式:DOCX
- 页数:11
- 大小:299.66KB
powerpoint制作.docx
《powerpoint制作.docx》由会员分享,可在线阅读,更多相关《powerpoint制作.docx(11页珍藏版)》请在冰豆网上搜索。
powerpoint制作
如何在PowerPoint制作单多项选择题、是非判断题及填空
Powerpoint/ppt"ppt使用技巧"——用PowerPoint2007可以方便迅速地做出演示型课件。
但上课是需要交互的,即使是简单的单项选择题或者是非判断题也应该要根据学生们的选择在课件中做出相应的反应的。
下面我们用PowerPoint2007制作简单的交互式练习题。
一、用到的控件属性
先点击PowerPoint左上角“Office选项”按钮,在弹出的菜单中点击右下角“PowerPoint选项”按钮,在打开的对话框中选中“在功能区显示“开发工具”选项卡”复选项。
完成后就可以在功能区添加“开发工具”选项卡了。
点击“开发工具”选项卡,“控件”功能组中相关按钮就是我们要用的主要控件了,如图1所示。
以单选框为例,点击该单选框按钮,然后在幻灯片上单击,就可以产生一个单选项。
选中它,点击右键,在弹出菜单中选择“属性”命令,或者点击“开发工具”选项卡“控件”功能组中“属性”按钮,可以打开“属性”对话框。
在其中的“Caption”输入框中输入我们所需要的内容,就可以做出适合我们的单选项了。
单击“BackStyle”项目,然后在右侧的下拉列表中选择“0-fmBackStyleTransparent”,可以使做出的单选项背景透明。
点击“Font”输入框,然后单击出现的按钮,可以设置字体、字号等格式。
点击“Forecolor”输入框,则可以设置颜色。
如图2所示。
其它几个控件“属性”设置基本与此类似,不再罗嗦。
二、单项选择题
题目的题干部份可以用插入文本框的方法输入。
然后用单选框做好四个选项。
可以在做好一个以后,复制得到其它三个。
只需要修改属性中的“Caption”即可。
完成后,按住“Shift”键依次选中它们,然后点击功能区“开始”选项卡“绘图”功能组中“排列”按钮下的小三角形,在弹出的菜单中选择相应命令将它们对齐并分布均匀,如图3所示。
现在我们选中代表正确答案的那个单选项“B:
矛盾分析的方法”,点击右键,在弹出菜单中选择“查看代码”命令,在打开的窗口中找到“PrivateSubOptionButton2_Click()”和“EndSub”两段代码。
在这两段代码中间插入代码:
MsgBox("恭喜您,答对了!
")
OptionButton1.Value=FalseAndOptionButton3.Value=FalseAndOptionButton4.Value=False
关闭窗口,然后运行一下幻灯片,点击选项B试试,结果不错吧?
如图4所示。
代码的第一句是设置提示框及提示信息的。
而第二句代码则是在单击B选项后使其它各选项恢复到未选中状态。
“OptionButton*”(*为1、2、3、4)分别表示我们制作出的四个单选项。
它是以单选项制作顺序排列的。
在“属性”对话框的“名称”处可以查到它。
我们可以照着葫芦画瓢,给其它的三个选项也设置上类似的提示框。
要注意提示信息及第二句代码中相应数字的调整。
三、是非判断题
是非判断题可以看成只有两个选项的单项选择题。
所以,其做法与单项选择题是一样的。
只是在最后添加的代码稍加修改即可。
四、多项选择题
多选题需要用到复选框。
假定有四个选项,其中只有A、B、D三项全选才为正确,多选或少选均为错误。
用前面的方法插入四个复选框,调整好位置。
再插入一个命令按钮,打开“属性”对话框,将“Caption”值设为“答案”。
选中“答案”按钮,在右键菜单中选择“查看代码”命令,打开代码编辑窗口。
在窗口中找到如下两句代码:
PrivateSubCommandButton1_Click()
EndSub
在这两句代码中间插入以下代码:
IfCheckBox1.Value=TrueAndCheckBox2.Value=TrueAndCheckBox4.Value=TrueAndCheckBox3.Value=FalseThen
MsgBox"厉害,答对了!
",vbOKOnly,"多项选择题"
Else
MsgBox"不好意思,您做错了。
再仔细想想?
",vbOKOnly,"多项选择题"
CheckBox1.Value=False
CheckBox2.Value=False
CheckBox3.Value=False
CheckBox4.Value=False
EndIf
如图5所示。
放映幻灯片试试,如果出错,呵呵,那就如图6所示效果,弹出一提示框进行提示。
仔细读一下代码不难发现,其实是做了一个判断:
如果第1、2、4个复选框均为选中状态的话,就弹出一个表示答对的提示框,否则就弹出一个答错的提示框,并将所有复选框的选中状态消除,以便再次选择。
五、填空题
先做好题目,制作一条短横线表示填空区。
点击“开发工具”选项卡中的“文本框”控件,然后拖出一个大小合适的文本框。
调整其位置至合适。
仍然打开其“属性”对话框,设置其相关的属性,比如字体格式等。
这与前面的介绍基本一致,可参照操作。
选中做好的文本框,打开代码编辑窗口,还是先找到这两句代码:
PrivateSubTextBox1_Change()
EndSub
在两句中间插入如下代码:
IfTextBox1.Value="电脑"Then
MsgBox"不错,你填对了!
",vbOKOnly,"填空题"
Else
MsgBox"不对吧?
再想想!
",vbOKOnly,"填空题"
TextBox1.Text=""
EndIf
其中“电脑”是正确的答案。
如果在文本框中填入了“电脑”,那么就会弹出正确的提示,反之会弹出错误提示并清除已填写内容。
这就是这段代码的含义。
放映一下试试,是不是可以填入答案并做出相应的反馈啊?
效果如图7所示。
好了,先这么多吧。
好好利用控件和VBA代码,可以完成一些看起来不那么容易完成的事情呢
Word实例教程:
轻松制作多项选择题
教师在每节课结束前,习惯留几道习题让学生们自行练习,以巩固当堂课所学的知识。
如果只是用Word或PowerPoint展示给同学们,那是不是显得过于呆板呢?
同学们也兴趣不高,其实我们完全可以利用Word的VBA功能,让这些练习具有交互功能,从而提高同学们的兴趣。
下面,我们就来看一下如何制作可以判断答案正确与否的多项选择题的过程。
1.启动Word,新建一空白文档,输入如图1所示的“计算机的软件系统包括()”并根据情况设置好字体、字号和颜色。
2.依次单击菜单栏中的“视图→工具栏→控件工具箱”命令,在弹出的控件工具箱中选中“复选框”按钮,然后在文档拖拉出一个复选框。
3.在拖拉出的复选框(checkbox1)上单击鼠标右键选择属性,打开“属性”对话框,将其中“名称”修改为“duoxt11”,“Caption”后面的字符修改为题目相应选项字符 (如“系统软件”),然后再设置“font”选项设置合适的字体、字号等。
其他属性可采用默认值。
4.将上面设置好的复选框复制三个,分别将“名称”修改为“duoxt12”、“duoxt13”、“duoxt14”,“Caption”属性分别修改为“应用软件”、“杀毒软件”和“工具软件”。
5.选择“控件工具箱”的“命令按钮”,在文档中添加一个按钮,和上面3中的操作一样将其“名称”修改为“duopd11”,“caption”属性修改为“判断”(也可以修改“font”属性来设置字体、字号等)。
然后双击该按钮,进入“VisualBasic编辑器”状态,将下述代码输入到PrivateSubPrivateSubduopd11_Click()和EndSub代码中间,输入完成后,关闭窗口返回。
Ifduoxt11.Value=TrueAndduoxt12.Value=TrueAndduoxt13.Value=FalseAndduoxt14.Value=FalseThen
MsgBox"恭喜你,选择正确。
",vbOKOnly,"结果"
Else
Ifduoxt11.Value=TrueAndduoxt12.Value=FalseAndduoxt13.Value=FalseAndduoxt14.Value=FalseOrduoxt11.Value=FalseAndduoxt12.Value=TrueAndduoxt13.Value=FalseAndduoxt14.Value=FalseThen
MsgBox"选对了一个,还有一个,再努力一下就胜利了。
",vbOKOnly,"提示"
Else
MsgBox"选择错误!
还需要继续努力啊!
",vbOKOnly,"提示"
EndIf
EndIf
上述代码含义是如果选择第一项和第二项并且第三和第四项不选时,按下判断按钮则弹出“恭喜你,选择正确”消息框,如果仅仅选择了第一项或第二项则弹出“选对了一个,还有一个再努力一下就胜利了。
”消息框,如果选择了第三或第四项中的任何一项都会弹出“选择错误!
还需要继续努力啊!
”消息框。
6.将命令按钮复制一份,将其“名称”修改为“duopd12”,“caption”属性修改为“重选”,双击该按钮,进入“VisualBasic编辑器”状态,将下述代码输入到PrivateSubduopd12_Click()和EndSub代码中间,输入完成后,关闭窗口返回。
duoxt11.Value=False
duoxt12.Value=False
duoxt13.Value=False
duoxt14.Value=False
现在单击“控件工具箱”中的“退出设计模式”按钮关闭“控件工具箱”。
(可一定要记住啊,否则不会出现效果的。
)
一个多项选题就做好了,同学们这样就可以在做题的过程中随时来查看做题的结果了。
PowerPoint制作自动交互问答课件
2005年07月05日 18:
42电脑报
作者:
陈孝强
教师在每节课结束前,习惯留几道习题让学生们自行练习,以巩固当堂课所学的知识。
如果用PowerPoint来做相应的演示文稿,可以利用其VBA功能,让这些练习具有交互功能。
如图1,这是一个答题界面示例,可以判断答案正确性的多项选择题,下面我们来看看具体的实现过程。
图1
1.启动PowerPoint2003(其他版本操作相似),打开相应的课件演示文稿,定位到制作练习题幻灯片中,输入题干字符。
2.执行“视图→工具栏→控件工具箱”命令,展开“控件工具箱”,点击一下其中的“复选框”按钮,然后在幻灯片中拖拉出一个复选框来。
图2
3.选中上述复选框(CheckBox1),单击“控件工具箱”上的“属性”按钮,打开“属性”对话框,切换到“按分类序”标签下,展开“外观”选项,将其中的“Caption”后面的字符修改为题目相应的选项字符(如“水”),再展开“字体”选项,点击右侧的“省略号”按钮,打开“字体”对话框,设置好字体、字号等。
小贴士:
控件的其他属性可以直接采用默认的属性。
4.将上述复制框复制三份(根据备选项的多少确定复制数量),分别将“Caption”属性修改为题目其他选项字符(如“纯碱、熟石灰、干冰”)。
5.再用“控件工具箱”的“命令按钮”在幻灯片上添加一个按钮,并将其“Caption”属性修改为“判断”(或其他字符)。
再双击该按钮,进入“VisualBasic编辑器”状态(如图4),将下述代码输入到出现的一组代码中间,输入完成后,关闭窗口返回。
IfCheckBox1.Value=TrueAndCheckBox4.Value=TrueThen
MsgBox"选择正确。
",vbOKOnly,"结果"
Else
IfCheckBox1.Value=TrueOrCheckBox4.Value=TrueThen
MsgBox“选对了一个。
”,vbOKOnly,“提示”
Else
MsgBox"选择错误!
正确答案是“水和干冰”!
",vbOKOnly,"提示"
EndIf
EndIf
小贴士:
上述代码的含义是,如果(If)选择了第1和第4项(CheckBox1.Value=TrueAndCheckBox4.Value=True),按下“判断”按钮,则弹出如图3所示界面和消息(MsgBox)框(选择错误!
正确答案是“水和干冰”!
——消息内容;vbOKOnly——消息框中仅显示出一个“确定”按钮;提示——消息框标题)。
如果只选择了第1项或第4项,则会弹出如图所示的消息框;
图3
其他选择均会弹出如图所示的消息框。
图4
6.将上述命令按钮复制一份,将“Caption”属性修改为“重选”),再双击该按钮,将下述代码输入到出现的一组代码中间,输入完成后,关闭窗口返回。
CheckBox1.Value=False
CheckBox2.Value=False
CheckBox3.Value=False
CheckBox4.Value=False
7.在演示过程中,学生进行相应的选择后,按下“判断”按钮,即可作出相应判断;如果认为选择有误,按一下“重选”按钮,即可重新选择。
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- powerpoint 制作