基于powerpointvba练习及测试课件制作 8页

基于PowerPointVBA练习及测试课件制作摘要：尽管PowerPoint功能强大，应用广泛，但使用其制作的CAI课件大部分都是局限于幻灯片的演示和放映，缺乏互动性。如能充分利用Office内嵌的VBA,就可制作出互动性较强的CAI课件，使课件更具灵活性和趣味性。本文就此展开讨论。关键词：CAI；VBA；交互性；控件中图分类号：TP317.4文献标识码：A文章编号：1007-9599(2012)17-0000-02随着CAI技术的不断提高，通过图片、文字、动画、视频、声音等多种媒体与各种计算机软件的有机组合，可制作出使用效果良好的课件。在教育领域，越来越多的教师在使用、制作CAI课件，CAI课件成为教学过程中不可缺少的重要的教学手段，并影响和改变着传统的教学观念与教学模式。在众多课件制作工具中，PowerPoint由于操作简单，功能齐全，成为最常用的CAI课件制作工具，但其一些潜在功能未被广泛使用。部分计算机基础稍差的教师，苦于不懂编程语言，无法制作出满意的课件，只能制作一些功能简单PPT,课堂上只是起到演示的作用、电影的效果，一节课下来，学生们看完很快便忘记了。究其原因，很大程度上是缺乏互动性，学生只是在被动地接受，难以达到教学效果。通过本文的学习，在PowerPiont环境下，计算机基础稍差的教师也能利用VBA编写制作出一套互动性较强的练习及测试\n课件，让学生可以自主学习和测试，能有效地提高教学效果。1课件设计思路1.1功能介绍：优秀的课件设计时往往能够以学生特征为依据，以教学内容为基础，通过使用教学策略，优化课件设计，达到良好的教学效果。本课件是在教师进行完课堂讲解后，以本章节学习内容为基础，以互动的方式，通过课件的复习回顾、课堂练习、随堂测试等功能，对本次教学中的重点环节及内容进行二次学习，加强对教学内容的回忆，提高教学质量。1.2模块划分：本课件是随堂使用，可嵌入到教学PPT中，作用是复习及巩固课堂内容，时间在10〜15分钟内，因此不用设计过于复杂，满足主要功能即可。模块分为复习模块、练习模块、测试模块。详见下表。2课件使用环境和开发工具2.1使用环境：PowerPoint是微软公司套装办公自动软件Office中的重要组成部分，这是在Windows平台下运行的、专门用于制作PPT演示文稿的应用软件。2.2开发工具:充分利用“寄生于”Office应用程序的VBA技术。VBA(visualBasicforApplications)是新一代标准宏语言，是MicrosoftOffice系列的内置编程语言，是非常流行的开发语言VB(VisualBasic)的子集。它功能强大，面向对象，具有更强的灵活性，可以通过编程实现交互功能。3课件功能设计\n3.1界面设计：在界面设计中，PowerPoint中模版十分丰富，可选择使用。设计时应避免繁琐，内容应力求准确、简洁明了，使界面更具整体性与美感，可利用菜单技术来实现多模块层次结构，各模块可逐步展开，直至覆盖全部教学内容。3.2模块设计：在设计时考虑到学生的特点、能力、知识水平，立足使模块操作简单，通过鼠标和键盘的几个简单操作动作即可完成。步骤：在主菜单幻灯片中通过控件工具箱建立4个命令按钮CommandButton,分别命名为CommandButtonl、CommandButton2、CommandButton3、CommandButton4；caption属性分别改为“复习回顾”、“课堂练习”、“随堂测试”、“退出”，其他属性设置默认即可，分别添加VBA代码。(1)复习模块："复习回顾”控件代码PrivateSubCommandButtonl_Click()S1ideShowWindows(1).View.GotoSliden'n为复习概括内容的幻灯片页码数EndSub在最后一张(也可以是每一张)复习内容的幻灯片中建立CommandButtonl(命令按钮)，设置成返回键，可以返回主菜单。添加如下代码：PrivateSubCommandButtonlClick()S1ideShowWindows(1).View.GotoSliden'n为主菜\n单幻灯片的页码数EndSub(1)练习模块：以单选题为主1)“课堂练习”控件代码：PrivateSubCommandBu11on2_Click()S1ideShowWindows(1)・View.GotoSlide2EndSub2)Slide2练习题1题目：诗句“床前明月光，疑是地上霜"诗是哪位诗人的作品？步骤：新建四个单选项按钮0ptionButton,分别命名为lxla、lxlb、lxlc、lxld；caption属性分别为：“A.白居易”、“B.李白”、“C.杜甫”、“D.苏轼”，新建三个命令按钮CommandButton,分别命名为Cmd_lxll>Cmd_lxl2>Cmd_lxl3；caption属性分别改为："提交答案"、"重新选择”、“下一题”。3)“提交答案”控件代码：PrivateSubCmd_lxll_Click()DimexIflxlb.Value=TrueThen:ex=MsgBox(“做对了，你真棒！”,vbOKOnly,"提示”)Elseex二MsgBox(“做错了，认真想想！再重新选择。”，vbOKOnly,”提示”)\nEndIfEndSub当用户做完题点击"提交答案”按钮后，计算机自动执行这一段代码，判断用户输入的是否符合要求，这是一段判断语句，因为B选项是正确的，只做了一种全对的判断，全对了，就会弹出“做对了，你真棒！”的对话框；如果不对,则会弹出'‘做错了，认真想想！再重新选择。”的对话框。1)“重新选择”控件代码：PrivateSubCmd_lxl2_Click()lxla・Value=False:lxlb・Value=False:lxlc・Value=False：lxld・Value=FalseEndSub当用户点击''重新选择”按钮后，所有选项内容清空，可进行重新选择。2)“下一题”控件代码：PrivateSubCmd_lxl3_Click()WithS1ideShowWindows(1)・View・NextEndWithEndSub点击'‘下一题”按钮后，进下页，在最后一题的幻灯片设置返回键，方法如前所述。\n(1)测试模块：以单选题、多选题等客观题为主“随堂测试”的进入方式与“练习模块”的“课堂练习”控件代码类似，不再复述。测试的第1题为单选题，设置方法与“练习模块"大致相同，增加了计算分数。第2题为多选题,现以完成了第1题单选题，做第2题多选题(Slide1)为例说明，题目为：下列世界著名的河流中属于中国的是()o步骤:新建四个复选项按钮CheckBox,分别命名为Csla、Cslb、CSlc^Csld,caption属性分别为："A.刚果河"、•长江”、“C.黄河”、“D.尼罗河”，新建三个命令按钮CommandButton,分别命名为Cmd_Cs21、Cmd_CS22、Cmd_CS23,caption属性分别改为：“提交答案"、“重新选择”、“返回主菜单”。“提交答案”控件代码：PrivateSubCind_cs21_Click()Ifcs2b.Value=TrueAndcs2c.Value二TrueAndcs2a.Value=FalseAndcs2d.Value=FalseThenex=MsgBox(”恭喜您，答对了”&Chr(10)&Chr(10)&“测试题目已全部完成，按查看成绩。”，vbOKOnly,“提示”)Ifarr(2)二0Then：MySum二MySum+10EndIf\nElseex二MsgBox(”选择错误，答案为B>C”&Chr(10)&Chr(10)&'‘测试题目已全部完成，按查看成绩。”，vbOKOnly,"提示”)EndIfIf(cs2b・Value=TrueOrcs2c・Value=TrueOrcs2a・Value二TrueOrcs2d・Value二True)Andarr(2)=0Thenarr(2)二1：ts二ts+1EndIfMsgBox“得分是：“&MySum&“分(每题10分)共做了“&ts&“题”，vbOKOnly,“提示”Slide6.cs2a・Value=False:Slide6・cs2b・Value=False：Slide6.cs2c.Value=False：Slide6・cs2d・Value=FalseEndSub代码中用了3个全局变量arr(i)、MySum、ts分别作为题目是否已做记录、得分记录、做题数记录，当用户做完题点击“提交答案”按钮后，计算机自动判断用户输入的是否符合要求，这是一段判断语句，因为B、C选项是都正确的，如果选对了就会弹出'‘恭喜您，答对了。测试题目已全部完成，按查看成绩。”的对话框，系统会自动加分；如果不对，则会弹出“选择错误，答案为B、Co测试题目已全部完成，按查看成绩。”\n的对话框，此题不得分。本功能是不允许重回上一页重做以获得重新加分的。做完题后无论对错只能按"确定”查看所做题目数量及最终得分。4结束语PowerPoint在CAI制作时，加上VBA的协助，岂不功能将更加强大。VEA与PowerPoint相结合制作出的幻灯片界面交互性强，还可以实现许多用PowerPoint无法实现的功能。因此可以说VBA是实现PowerPoint高级应用必不可少的利器。参考文献：[1]许江林编著•揭秘优秀PPT这样制作[M].电子工业出版社.[2]宋翔编著.商务演示文稿制作专家范例导航[M].科学出版社.