PPT用VBA制作简单的选择题的方法及源码2.docx
- 文档编号:16116423
- 上传时间:2023-07-10
- 格式:DOCX
- 页数:34
- 大小:379.74KB
PPT用VBA制作简单的选择题的方法及源码2.docx
《PPT用VBA制作简单的选择题的方法及源码2.docx》由会员分享,可在线阅读,更多相关《PPT用VBA制作简单的选择题的方法及源码2.docx(34页珍藏版)》请在冰点文库上搜索。
PPT用VBA制作简单的选择题的方法及源码2
PPT用VBA制作简单的选择题的方法及源码
powerpoint中的vba可以实现很多复杂的交互,但很多老师面对vba编程,都会觉得无从下手。
所以本期我们为大家安排了一个关于powerpoint中vba的小专题,以后在课件中实现交互就不会那么费劲了。
vba基础
说到vba编程,就不得不提到控件工具箱,我们需要利用其中的控件搭建需要的环境。
1.显示控件工具箱
在powerpoint中选择菜单“视图/工具栏/控件工具箱”。
2.控件工具箱(如图1)中常用按钮的介绍
(1)复选框(checkbox):
可以选择多个选项,常用来设计多选题;
(2)文本框(textbox):
可以输入文本,常用来设计填空题;(3)命令按钮(commandbutton):
用来确定选择或输入,也可设计超级链接;(4)单选框(optionbutton):
只能选中一个选项,常用来设计单选题或判断题;(5)标签(label):
用来显示文字信息。
3.插入控件的方法
单击控件工具箱上的工具按钮,然后在幻灯片中拖动到适当大小即可。
4.进入vba的方法
双击幻灯片中的控件或用菜单命令“工具/宏/visualbasic编辑器”即可进入vba编程状态。
5.控件的主要属性及设置方法
进入vba后,需要在“属性”窗口中对控件的属性进行设置。
如果没有出现“属性”窗口,按f4键即可调出该窗口。
下面我们就不同的控件,来说明常用属性的设置方法。
(1)复选框
autosize:
有两个值,true表示根据字的多少调整复选框的大小,false表示复选框为固定大小;backcolor:
设置复选框的背景颜色,单击该属性框出现下拉按钮,选择“调色板”选项卡后选择颜色;caption:
控件的名称,把默认值删除再重新输入新名称;font:
设置字体、字号及字形,单击该属性框出现按钮,单击该按钮出现字体对话框,再在对话框中设置;forecolor:
设置字的颜色,设置方法同backcolor;height:
复选框的高度,直接输入数字即可;width:
复选框的宽度,直接输入数字即可;value:
复选框的值,true为选中,false则相反。
(2)文本框
autosize、backcolor、font、forecolor、height、width等属性的设置方法同复选框;value:
文本框的值,用来保存输入的文本;textalign:
设置文本对齐方式。
(3)单选框
属性设置同复选框。
(4)标签
除value外,其他同复选框。
(5)命令按钮
同标签。
6.消息框msgbox的功能
我们常用消息框显示一些交互的信息,如图2所示的消息框用下面的语句可实现:
msgbox("这是一个例题",vbyesno,"示例")
多选题的制作
1.题目的设计同单选题
2.选项:
用复选框(checkbox),其他设置同单选题。
3.[查看答案]命令按钮:
因为是多选题,答案有多个,所以要书写多个条件,条件之间用and连接,表示同时满足这几个条件,例如第一、三、五的选项是正确的,则需要输入如下语句:
ifcheckbox1.value=trueandcheckbox3.value=trueandcheckbox5.value=truethen
给出正确的提示信息同单选题
else
给出错误的提示信息同单选题
endif
填空题的制作
1.题目的设置同单选题,填空的地方用文本框。
2.判断正误:
因为是填空题,所填答案是文本,所以条件书写为:
iftextbox1.value="正确的文本"then给出正确的提示信息同单选题
else
给出错误的提示信息同单选题
endif
注意:
正确的文本一定要用半角双引号括起来,如几个空一起判断,方法同多选题。
3.[重新填空]命令按钮:
需要完成如下语句的设置:
privatesubcommandbutton2_click()
textbox1.value="请双击后填入你的答案!
"
endsub
privatesubtextbox1_dblclick(byvalcancelasmsforms.returnboolean)
textbox1.value=""
endsub
单选题的制作
例如我们要设计如图1所示的选择题。
1.题目
可用文本框,也可用标签。
如果用文本框,直接输入文本即可。
如果用标签,插入后双击该标签启动vba,修改caption属性为“5x-15=0的解是:
”,再根据需要修改其他属性(如颜色等)。
2.选项
插入一单选框,修改其caption属性为“0”,其他属性可自行修改。
其他的单选项可复制制作好的单选框,然后再修改它们的caption属性。
3.查看答案命令按钮
在此使用命令按钮,我们可根据单选框的value属性的值来判断答案,如正确选项(单选框)的value的值为true,则为该题选择正确,否则为选择错误,我们还可根据选择正误来给出信息,有两种方法。
(1)方法一
用msgbox(),如果选择正确,显示信息“verygood!
请继续!
”,错误则显示“sorry,你选错了!
正确答案是3,请继续努力。
”
操作步骤:
双击单选框进入vba,在编辑窗口中完成以下操作。
a.在编辑窗口中找到如下两条语句:
privatesuboptionbutton3_click()
endsub
然后在上面这两条语句中间插入以下语句:
ifoptionbutton3.value=truethenex=msgbox("verygood!
请继续努力。
",vbokonly)
b.同理,找到如下两条语句:
privatesuboptionbutton1_click()
endsub
在这两条语句中间插入语句:
ifoptionbutton1.value=truethenex=msgbox("正确答案是3,请继续努力。
",vbokonly)
c.找到如下两条语句
privatesuboptionbutton2_click()
endsub
在这两条语句中间插入语句
ifoptionbutton2.value=truethenex=msgbox("正确答案是3,请继续努力。
",vbokonly)
说明:
ex为自定义变量
(2)方法二
在幻灯片合适的地方插入一标签,修改其caption属性为空,其他设置同方法一,只要把正确选项中的“then”后的语名改为“label2.caption="verygood!
"请继续!
"”,错误选项的改为“label2.caption="正确答案是3,请继续努力。
"”即可。
4.重新选择命令按钮
在幻灯片适当的地方插入一命令按钮,修改其caption属性为“重新选择”,在编辑窗口中的privatesubcommandbutton1_click()和endsub语句间插入:
optionbutton1.value=false
optionbutton2.value=false
optionbutton3.value=false
label2.caption=""如判断正误用的是方法一,此语句不要)
5.下一题命令按钮
在幻灯片适当地方插入一命令按钮,修改其caption属性为“下一题”,在编辑窗口中的privatesubcommandbutton1_click()和endsub语句间插入
ifmsgbox("是否继续",vbyesno+vbquestion,“下一题”)=vbyesthen
withslideshowwindows
(1).view
.gotoslide2
endwith(2为第2张幻灯片,此语句表示转到第2张幻灯片)
endif
如果要根据条件的不同转到不同的幻灯片,可用下面语句:
if条件then
withslideshowwindows
(1).view
.gotoslide2
endwith
endif
说明:
条件可以是caption属性或value属性,书写方法为:
控件名称(在vba中的名称).属性=(value属性为true或false,caption属性为具体文本,注意文本要加双引号),例如下面的语句:
ifoptionbutton1.value=truethen
表示如果单选框1的value值为true,那么运行then后的语句,一直到endif。
判断题的制作
所有的设置与单选题类似,只不过是设计两个选项“√”和“×”,这两个符号可先在word中插入,然后再复制过来。
一、基本构想
图1
本例很简单,就两道题:
界面如图1所示,就是题目、选项和一个按钮,在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。
由界面可知,我们需要一个文本框,四个选项按钮和一个命令按钮。
功能方面我希望在单击“下一题”按钮时,界面能够转到下一题;单击“得分”按钮时,在成绩文本框中能够显示出这次测验的成绩就可以了。
本例的两道题的正确选项分别为“B”、“C”。
二、制作过程
1、运行PowerPoint2003,单击“文件”-“保存”命令,弹出“另存为”对话框,文件名设为“测验”,单击“保存”命令。
2、单击“插入”-“文本框”-“水平”命令,这时鼠标变成“1”字型,在编辑区内单击鼠标左键拖动鼠标拉出一个方框,在框内输入第一题的题目“1.人造地球卫星的轨道半径越大,则”。
3、下面我们来制作选项。
单击“视图”-“工具栏”-“控件工具箱”命令,弹出“控件工具箱”,单击“控件工具箱”上的“选项按钮”控件,鼠标变成十字型,按下鼠标左键拖动鼠标拉出一个方框。
单击“控件工具箱”上的“属性”命令,弹出“属性”对话框,把“名称”改为“ti1”,把“caption”改为“A.速度越小,周期越小”,其它设为默认。
如图2所示。
图2
其余的三个选项的名称分别为“ti2”、“ti3”、“ti4”,“caption”分别为“B.速度越小,周期越大”、“C.速度越大,周期越小”、“D.速度越大,周期越大”。
4、“下一题”按钮的制作。
单击“控件工具箱”中“命令按钮”控件,这时鼠标变成十字型,如前在编辑区内拖拉出一个方框,松开鼠标方框会变成一个按钮。
选中它,单击鼠标右键,在弹出的快捷菜单中选择“属性”命令,把“命令按钮”属性中的“caption”设为“下一题”。
这样,第一题的界面就制作完成了。
第二题我们可以按照第2-4步做出来,只是要把题目、各个选项值换一下,另外需要添加一个文本框命令,其名称设为“sum”,命令按钮的名称改为“得分”。
三、添加代码
1、单击“控件工具箱”上“查看代码”控件,弹出“Microsoftvisualbasic”编辑器,单击“插入”-“模块”命令,弹出“模块”编辑窗口,在“模块”编辑窗口输入“publicfen
(2)asinteger”。
2、选中第一题中“下一题”按钮,单击“控件工具箱”上“查看代码”控件,弹出“Microsoftvisualbasic”编辑器,在“PrivateSubCommandButton1_Click()”和“EndSub”之间输入
Ifti2.Value=TrueThen
fen(0)=2
Else
fen(0)=0
EndIf
WithSlideShowWindows
(1).View
.GotoSlide
(2)
EndWith
3、选中最后一题中“得分“按钮,单击“控件工具箱”上“查看代码”控件,弹出“Microsoftvisualbasic”编辑器,在“PrivateSubCommandButton1_Click()”和“EndSub”之间输入
Ifti3.Value=TrueThen
fen
(1)=2
Else
fen
(1)=0
EndIf
Dimi,s
s=0
Fori=0To2
s=s+fen(i)
Next
sum=s
好了,退出“Microsoftvisualbasic”编辑器,按F5试一下效果吧,怎么样,是不是和原来设计的一样呢。
用PPT2003制作课后练习题
日期:
2010-4-9作者:
ppt5u
本文可以学到
1如何用PPT制作互动式选择题
2用VBA辅助制作填空题
教师在课堂教学时,往往会在课堂的最后给学生留下几道练习题,让学生们练习。
如何用PPT制作好的练习题呢?
看看我是如何利用Powerpoint2003的动画触发器和VBA功能来实现的吧。
我就以用触发器制作单选题和以VBA制作填空题为例给大家讲讲。
一、触发器做单选
以一道选择题为例,启动Powerpoint2003,新建一空白幻灯片,利用文本框,输入题干内容。
点击“幻灯片放映→动作按钮”,选中“动作按钮:
自定义”选项,然后在PPT中画出一个按钮。
1.制作模板:
右击插入的按钮,在弹出的快捷菜单中选择“添加文本”选项,在“动作按钮”上添加第一个备选答案(如“A、170克/摩尔”),并设置好字体、字号、字符颜色,调整“动作按钮”的大小和位置。
2.复制试题:
选中这个“动作按钮”,按着Ctrl拖拉鼠标,快速复制一个按钮(共操作3次,复制3个),并修改字符为其他备选项答案。
3.添加答案:
插入文本框,并输入“正确、错误”及相关提示的字符(如“错误!
”),并设置好字体、字号、字符颜色等。
4.设置交互:
选中这个文本框,执行“幻灯片放映→自定义动画”命令,展开“自定义动画”任务窗格,单击“添加动画”右侧的下拉按钮,在下拉列表中选择“进入→飞入”选项;再按“方向”右侧的下拉按钮,在列表中选择“自左铡”选项,在“自定义动画”选择“飞入”,打开“飞入”对话框,切换到“及时”标签卡,单击“触发器”按钮,选中“单击下列对象时启动效果”选项,并在下拉列表中选择“动作按钮:
自定义2……”选项(即第一个备选答案对应的“动作按钮”项),“确定”返回。
5.制作完成:
按此文本框的操作,设置好另外3个文本框的动画及触发器,制作完成。
二、VBA法来填空
上述用触发器只能制作选择,有的练习题需要填空形式,就用VBA来实现吧。
1.制作试题:
用文本框输入填空题的题目内容,点击“视图→工具栏→控件工具箱”展开“控件工具箱”工具条。
单击工具条上的“文本框”按钮,在填空题的空格处拖拉出一个控件文本框。
2.设置命令:
单击“命令按钮”按钮并画一个按钮来。
选中此按钮,单击“属性”,展开“命令按钮”属性对话框,将其中的“Caption”修改为“查看正确答案”(具体修改内容,请根据需要确定),并关闭属性窗口。
3.插入代码:
双击插入的命令按钮打开VBA编辑窗口,在“PrivateSub
CommandButton1_Click()”和“EndSub”语句之间输入如下代码:
IfTextBox1.Text="物理"Then
dd=MsgBox("你填对了",
vbOKCancel,"结果")
Else
dd=MsgBox("你填错了",
vbOKCancel,"结果")
EndIf
4.效果预览:
制作完成了,赶快按下F5功能键来看一下效果吧。
小提示:
VBA文本框属性的修改选中文本框,单击工具条上的“属性”,打开“文本框”属性对话框,选中“font”选项,然后点击后面的“…”号,即可打开“字体”对话框设置字体等。
MsgBox是弹出对话框的命令,而代码中的“dd”和相应的其他文字为自定义变量,可以用其他字母代码和文字代替。
第三节用VBA制作智能交互型的课件
如果课件要求智能反馈,如填空题、选择题或判断题等,可利用控件搭建环境,利用VBA编程,来实现复杂的智能交互。
一、VBA编程基础
(一)常用控件的属性设置
1.复选框(CheckBox)
可以选择多个选项,常用来设计多选题;其属性设置:
AutoSize:
有两个值,True表示根据字的多少调整复选框大小,False表示复选框为固定大小;
BackColor:
设置复选框的背景颜色,单击该属性框出现下拉按钮,选择“调色板”选项卡后选择颜色;
Caption:
控件的名称,把默认值删除后,再重新输入新名称;
Font:
设置字体、字号及字形,单击该属性框出现按钮,单击该按钮出现字体对话框,再在对话框中对字体格式设置;
ForeColor:
设置字的颜色,设置方法同BackColor;
Height:
复选框的高度,直接输入数字即可;
Width:
复选框的宽度,直接输入数字即可;
Value:
复选框的值,True为选中,相反False则为未选中。
2.文本框(TextBox)
可以输入文本,常用来设计填空题;其AutoSize、BackColor、Font、ForeColor、Height、Width等属性的设置方法同复选框;
Value:
文本框的值,用来保存输入的文本;
TextAlign:
设置文本对齐方式。
3.命令按钮(CommandButton)
用来确定选择或输入,也可设计超级链接等;属性设置同复选框。
4.单选框(OptionButton)
只能选中一个选项,常用来设计单选题或判断题;除Value外,其他同复选框。
5.标签(Label)
用来显示文字信息。
除Value外,其它同复选框。
6.消息框(MsgBox)
常用消息框显示一些交互的信息,如图10-29所示的消息框用下面的语句可实现:
MsgBox(”这是一个例题”,vbYesNo,”示例”)。
图10-29用消息框显示交互信息
(二)VBA的编程环境
双击幻灯片中的控件,或用菜单“工具”->“宏”->“Visualbasic编辑器”命令,即可进入VBA编程状态。
进入VBA后,需要在“属性”窗口中对控件的属性进行设置。
如果没有出现“属性”窗口,按F4键即可调出该窗口。
二、制作智能交互型的课件
以制作单选题、选择题、判断题和填空题为例来介绍智能课件的制作方法。
(一)单选题的制作
图10-30单选题的运行界面
1.题目
题目的输入可用文本框,也可用标签。
如果用文本框,直接输入文本即可。
如果用标签(第一个标签),插入后双击该标签启动VBA,修改Caption属性为“5X-15=0的解是:
”,再根据需要修改其他属性(如颜色等)。
如图10-30所示。
2.答案选项
插入一个单选框(第一个单选框),修改其Caption属性为“A3”,其他属性可自行修改。
其他的单选项可复制制作好的单选框(第二、三和四个单选框),然后再分别修改它们的Caption属性为“B5”、“C11”和“D18”。
3.“查看答案”命令按钮
在此插入一个命令按钮(第一个命令按钮),我们可根据单选框的Value属性的值来判断答案,如正确选项(单选框)的Value的值为True,则为该题选择正确,否则为选择错误,另外还可根据选择正误来给出提示信息,有两种方法。
(1)方法一
用MsgBox(),如果选择正确,显示信息“VeryGood!
请继续!
”,选择错误则显示“Sorry,你选错了!
正确答案是3,请继续努力。
”具体操作步骤:
双击单选框进入VBA编辑窗口,在编辑窗口中完成以下操作。
如图10-31所示。
1)在编辑窗口中找到如下两条语句:
PrivateSubOptionButton1_Click()和EndSub语句。
然后在上面这两条语句中间插入以下语句:
IfOptionButton1.Value=TrueThenex=MsgBox(“VeryGood!
请继续努力。
”,vbOKOnly)
2)同理,找到如下三组语句:
第一组语句:
PrivateSubOptionButton2_Click()和EndSub;
第二组语句:
PrivateSubOptionButton3_Click()和EndSub;
第三组语句:
PrivateSubOptionButton4_Click()和EndSub。
在这三组的两条语句中间分别插入语句:
IfOptionButton2.Value=TrueThenex=MsgBox(“正确答案是3,请继续努力。
”,vbOKOnly)
IfOptionButton3.Value=TrueThenex=MsgBox(“正确答案是3,请继续努力。
”,vbOKOnly)
IfOptionButton4.Value=TrueThenex=MsgBox(“正确答案是3,请继续努力。
”,vbOKOnly)
说明:
ex为自定义变量
图10-31方法1的代码编辑窗口
(2)方法二
在幻灯片合适的地方插入一个标签(第二个标签),修改其Caption属性为空,其他设置同方法一,只要把正确选项中的“then”后的语句名改为“Label2.Caption=”VeryGood!
请继续!
””,三个错误选项的“then”分别改为“Label2.Caption=”正确答案是3,请继续努力。
””即可。
图10-32方法2的代码编辑窗口
4.“重新选择”命令按钮
在幻灯片适当的地方插入一个命令按钮(第二个命令按钮),修改其Caption属性为“重新选择”,如图10-33所示。
在编辑窗口中的PrivateSubCommandButton2_Click()和EndSub语句间插入:
OptionButton1.Value=False
OptionButton2.Value=False
OptionButton3.Value=False
OptionButton4.Value=False
Label2.Caption=””//如判断正误用的是方法一,此语句不要
5.“下一题”命令按钮
在幻灯片适当地方插入一个命令按钮(第三个命令按钮),修改其Caption属性为“下一题”,如图10-33所示。
在编辑窗口中的PrivateSubCommandButton3_Click()和EndSub语句间插入
IfMsgBox(“是否继续”,VbYesNo+VbQuestion,“下一题”)=VbYesThen
WithSlideShowWindows
(1).View
.GotoSlide2
EndWith//2为第2张幻灯片,此语句表示转到第2张幻灯片
Endif
图10-33“重新选择”和“下一题”命令按钮代码编辑窗口
如果要根据条件的不同转到不同的幻灯片,可用下面语句:
If条件 then
WithSlideShowWindows
(1).View
.GotoSliden//n为第n张幻灯片,此语句表示转到第n张幻灯片
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- PPT VBA 制作 简单 选择题 方法 源码