用PPT制作填空题教程
2013-08-23 09:52 责任编辑:PPT模板收集者
题目同单选题,填空的地方用文本框。选中该文本输入框,右击打开代码编辑窗口。点击右上方的下拉按钮,在弹出的下拉列表中选择“LostFocus”。目的是:当文本输入完成、鼠标离开这个文本框的时候,就会出现在下面设置
题目同单选题,填空的地方用文本框。
选中该文本输入框,右击打开代码编辑窗口。点击右上方的下拉按钮,在弹出的下拉列表中选择“LostFocus”。
目的是:当文本输入完成、鼠标离开这个文本框的时候,就会出现在下面设置好的反馈信息。
找到这两行代码:Private Sub TextBox1_LostFocus()和End Sub
在这两行文本中间插入如下代码:
If TextBox1.Value = "正确的文本" Then
MsgBox("不错,你填对了。恭喜您!"),vbOKOnly,"填空题"
Else MsgBox("不对吧?再想想。") , vbOKOnly,"填空题"
TextBox1.Text = ""
End If
如果有多个填空题,那么需要将上面代码中的TextBox1替换为TextBox2、TextBox3等,依此类推。
说明:表示答对或答错时课件的反馈信息,制作中可以根据实际自行更改。
注意:“正确的文本”一定要用半角双引号括起来,如几个空一起判断,方法同多选题。
PowerPoint中利用VBA制作课堂小测验
PowerPoint附带的VBA功能使其具有了制作智能课件的能力。本文就是基于 PowerPoint中的VBA来制作智能的课堂小测验的一个例子。
一、基本构想
本例很简单,就两道题:界面如图1所示,就是题目、选项和一个按钮,在最后一道题所在的页面上把“下一题”按钮改成“得分”按钮。由界面可知,我们需要一个文本框,四个选项按钮和一个命令按钮。功能方面我希望在单击“下一题”按钮时,界面能够转到下一题;单击“得分”按钮时,在成绩文本框中能够显示出这次测验的成绩就可以了。本例的两道题的正确选项分别为“B”、“C”。
二、制作过程
1、运行PowerPoint2003,单击“文件”-“保存”命令,弹出“另存为”对话框,文件名设为“测验”,单击“保存”命令。
2、单击“插入”-“文本框”-“水平”命令,这时鼠标变成“1”字型,在编辑区内单击鼠标左键拖动鼠标拉出一个方框,在框内输入第一题的题目“1.人造地球卫星的轨道半径越大,则”。
3、下面我们来制作选项。单击“视图”-“工具栏”-“控件工具箱”命令,弹出“控件工具箱”,单击“控件工具箱”上的“选项按钮”控件,鼠标变成十字型,按下鼠标左键拖动鼠标拉出一个方框。单击“控件工具箱”上的“属性”命令,弹出“属性”对话框,把“名称”改为“ti1”,把“caption”改为“A.速度越小,周期越小”,其它设为默认。如图2所示。
其余的三个选项的名称分别为“ti2”、“ti3”、“ti4”,“caption”分别为“B.速度越小,周期越大”、“C.速度越大,周期越小”、“D.速度越大,周期越大”。
4、“下一题”按钮的制作。单击“控件工具箱”中“命令按钮”控件,这时鼠标变成十字型,如前在编辑区内拖拉出一个方框,松开鼠标方框会变成一个按钮。选中它,单击鼠标右键,在弹出的快捷菜单中选择“属性”命令,把“命令按钮”属性中的“caption”设为“下一题”。
这样,第一题的界面就制作完成了。第二题我们可以按照第2-4步做出来,只是要把题目、各个选项值换一下,另外需要添加一个文本框命令,其名称设为“sum”,命令按钮的名称改为“得分”。
三、添加代码
1、单击“控件工具箱”上“查看代码”控件,弹出“Microsoft visual
basic”编辑器,单击“插入”-“模块”命令,弹出“模块”编辑窗口,在“模块”编辑窗口输入“public fen(2) as integer”。
2、选中第一题中“下一题”按钮,单击“控件工具箱”上“查看代码”控件,弹出“Microsoft visual basic”编辑器,在“Private Sub CommandButton1_Click()”和“End Sub”之间输入
If ti2.Value = True Then
fen(0) = 2
Else
fen(0) = 0
End If
With SlideShowWindows(1).View
.GotoSlide (2)
End With
3、选中最后一题中“得分“按钮,单击“控件工具箱”上“查看代码”控件,弹出“Microsoft visual basic”编辑器,在“Private Sub CommandButton1_Click()”和“End Sub”之间输入
If ti3.Value = True Then
fen(1) = 2
Else
fen(1) = 0
End If
Dim i, s
s = 0
For i = 0 To 2
s = s + fen(i)
Next
sum = s
好了,退出“Microsoft visual basic”编辑器,按F5试一下效果吧,怎么样,是不是和原来设计的一样呢。
热门标签更多
相关推荐
-
学前教育的课件ppt模板教学设计,学前教育的课件ppt模板内容怎么做?
本文介绍了学前教育课件PPT模板的制作方法和技巧,包括如何选取合适的模板、设计页面布局、添加图片、文字和动画等元素,帮助学生提升表达能力和创新思维。.........
2023-06-01
-
观潮ppt课件免费制作教学设计,观潮ppt课件免费制作内容怎么做?
本文介绍了观潮ppt课件免费制作教学,帮助学生掌握制作ppt课件的基本技能和制作要点,能够快速高效地制作出高质量的ppt课件。.........
2023-05-28
-
大班微笑ppt课件教案教学设计,大班微笑ppt课件教案内容怎么做?
本篇文章以老师的角度,详细介绍了大班微笑ppt课件教案的教学目标、重点、方法、过程和总结。学生通过本课的学习,能够掌握微笑ppt的制作技巧以及如何运用这些技巧来设计精美的课件。.........
2023-05-16
-
八下平行四边形ppt课件ppt教学设计,八下平行四边形ppt课件ppt内容怎么做?
本文介绍了八年级数学课程中,以平行四边形为主题的ppt课件教学内容。包括教学目标、教学重点、教学方法、教学过程和教学总结等方面,帮助学生掌握该知识点。.........
2023-05-20
-
小班数学ppt课件教学设计,小班数学ppt课件内容怎么做?
本文介绍了基于PPT课件的小班数学教学,包括教学目标、教学重点、教学方法、教学过程和教学总结,以培养学生的数学思维和逻辑推理能力,提高解决实际问题的能力。.........
2023-05-12
-
小学ppt课件免费下载教学设计,小学ppt课件免费下载内容怎么做?
这篇文章介绍了小学PPT课件的制作教程及免费下载方法,并详细解释了教学目标、教学重点、教学方法、教学过程和教学总结。.........
2023-05-12
-
书愤ppt课件教学设计,书愤ppt课件内容怎么做?
本文从老师的角度出发,介绍了如何进行书愤ppt的教学。文章分别从教学目标、教学重点、教学方法、教学过程和教学总结这五个方面来详细阐述该课程的内容和要求,旨在帮助学生更好地掌握书愤ppt的制作技巧。.........
2023-05-17
-
心电图机培训ppt课件教学设计,心电图机培训ppt课件内容怎么做?
本文介绍了心电图机培训ppt课件的教学目标、教学重点、教学方法、教学过程和教学总结内容,帮助学员掌握心电图机的基本原理、使用方法和技能,并能熟练地操作心电图机进行心电图检查,具备基本的心电图解读能力。.........
2023-06-09
-
幼儿园布料课件ppt教学设计,幼儿园布料课件ppt内容怎么做?
本篇文章是关于幼儿园布料课件PPT的教学目标、教学重点、教学方法、教学过程和教学总结的详细介绍。通过本课件,孩子们将能够理解布料的分类和特点,了解不同布料的用途和适用范围,并掌握基本的布料辨识和选购技巧。.........
2023-06-16
-
日语教程课件ppt模板教学设计,日语教程课件ppt模板内容怎么做?
本文介绍了以日语教程课件ppt模板为主题的教学目标、教学重点、教学方法、教学过程和教学总结,帮助初学者掌握日语基础知识和词汇,理解日语语法和句型结构,并能够初步运用日语进行简单的交流。.........
2023-05-28