使用PowerPoint中的VBA开发教学课件评分系统由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“中使用vba教程”。
使用PowerPoint中的VBA开发教学课件评分系统
[摘要]Microsoft office中的Visual Basic for Applications（VBA），是在通用办公软件中提供的二次开发工具，借助这个可视化设计平台，通过简单的编程可以解决一些特殊的应用问题。通过在PowerPoint中使用VBA开发教学课件评分系统这一实例，探讨有关VBA的应用问题。
[关键词]VBA PowerPoint 课件 评分系统
中图分类号：TP3文献标识码：A 文章编号：1671－7597(2008)0220065－01
微软嵌入其通用办公软件（Microsoft office）中，通过这类软件的“工具”、“宏”、“Visual Basic编辑器”菜单操作可以进入可视化程序设计界面，利用这个程序设计平台，普通工作人员能够有针对性地开发出满足应用要求的程序。
下面，我们就利用PowerPoint中提供的VBA制作一个多媒体课件评分系统，该系统可在比赛的同时，将参赛单位的名称和评委打分输入到计算机中，系统自动对进行加权平均，计算出每个单位的总成绩，并将参赛单位名称、评
委打分和总分以文本文件格式保存起来，数据存入到当前工作目录中，文件名为pf.txt。具体实现步骤如下：
一、启动Microsoft office PowerPoint（以下简称PPT），新建一个演示文稿
选择合适的背景，插入一文本框，在文本框中输入与系统功能和使用方法有关的提示信息。
二、在PowerPoint中，选择菜单“视图”、“工具栏”、“控件工具箱”，屏幕上出现控件工具箱
在控件工具箱选择“命令按钮”工具，并在幻灯片右下角用鼠标拖动出一个命令按钮，作为程序窗体的启动按钮。
三、在幻灯片中用鼠标双击命令按钮，打开Microsoft Visual Basic编辑器
在命令按钮（CommandButton1）的单击（Click）事件中输入启动用户窗体（UserForm1为用户窗体名称）代码：UserForm1.Show，其完整格式如下：Private Sub CommandButton1_Click()； UserForm1.Show；End Sub
四、在设计界面插入一个用户窗体，在其中添加控件，设置控件属性
在VBA编辑器中，单击菜单“插入”，“用户窗体”，添加标签、框架、文本框和命令按钮控件，其中两个框架内部各包含6个标签和6个文本框，作用是信息提示和接收用户输入信息，每个输入控件的Caption属性值见下表，控件的大小、颜色等属性可根据自己的喜好进行设定。
五、为窗体中控件添加事件代码
本窗体中有三个命令按钮，即计算总分、下一单位和关闭返回。其中“计算总分”按钮用于从文本框中接收参赛单位名称、各专家打分并加权计算总分，计算公式为zf=xspf*0.6+bmpf*0.25+jsf*0.15）；“下一单位”按钮用于清空上一单位已经填入内容；“关闭返回”按钮用于关闭用户窗口，返回幻灯片层，结束本次比赛。详细事件代码如下。
（一）“计算总分”CommandButton1_Click()按钮事件代码
Private Sub CommandButton1_Click()'计算总分按钮单击事件。
xspf=(Val(TextBox2.Text)+Val(TextBox8.Text)+Val(TextBox3.Text)+Val(TextBox4.Text)+Val(TextBox5.Text)+Val(TextBox6.Text))/6
Bmpf=(Val(TextBox9.Text)+Val(TextBox10.Text)+Val(TextBox11.Text)+Val(TextBox12.Text)+Val(TextBox13.Text)+Val(TextBox14.Text))/6
jsf = Val(TextBox15.Text)
zf = xspf * 0.6 + bmpf * 0.25 + jsf * 0.15
Label16.Caption = Format(zf, “000”)'以下为打开pf.txt文件，用来保存单位名称、学术委员会评分、参赛代表评分、技术分和总分数据代码：Open “pf.txt” For Append As #1
Write #1, TextBox1.Text, zf；Write #1, xspf, Val(TextBox2.Te
xt),Val(TextBox8.Text),Val(TextBox3.Text),Val(TextBox4.Text), Val(TextBox5.Text),Val(TextBox6.Text)；Write #1, bmpf, Val(TextBo
x9.Text),Val(TextBox10.Text),Val(TextBox11.Text), Val(TextBox12.Text),Val(TextBox13.Text),Val(TextBox14.Text)； Close #1；CommandButton3.SetFocus；End Sub.（二）双击“下一单位”按钮，输入CommandButton2_Click()事件代码
Private Sub CommandButton2_Click()'下一单位按钮单击事件，作用是清空文本框和总分标签内容，为下一个单位输入做准备。
TextBox1.Text = “”TextBox2.Text = “”
……TextBox15.Text = ””
Label16.Caption = “”TextBox1.SetFocus
End Sub
（三）双击“关闭返回”按钮，输入CommandButton3_Click()事件代码
Private Sub CommandButton3_Click()'返回按钮事件，关闭窗口，返回幻片界面。
End End Sub
六、保存设计内容放映幻灯片
在VBA设计窗口中，单击“文件”“，关闭并返回Microsoft Powerpoi
nt”,返回幻灯片设计界面,然后保存幻灯片。使用本系统时，要运行演示文稿，单击幻灯片右下角的“评分系统”按钮，调出程序主窗口。
值得注意的是：在播放幻灯片过程中，单击“评分系统”可打开自己所设计的窗口，并在课件设计大赛中即时输入参赛单位和评委的打分，通过单击“计算总分”可调事件代码计算并保存比赛信息。这是本课件的一个主要特点。由于使用了VBA工具，使演示文稿的功能大大增强。笔者曾在使用PPT制作课件的过程中，将控件工具箱中的“文本框”等控件直接加入到幻灯片中，这样教师可在播放过程随时往文本框中插入信息，又不影响幻灯片的播放流程，使讲课形式更加灵活。
作者简介：
黄伟，辽宁省朝阳市委党校（行政学院）计算机专业副教授，主要从事计算机、信息管理、电子商务等方面的教学和科研工作。
PowerPoint 课件中基于VBA的习题练习陈柳 1 （西南中文大学数学与计算机系 ，重庆634001）摘要： 主要阐述如何在PowerPoint课件中应用VBA调用数据库来设计习题。关键字： VBA ；PowerPo......
PowerPoint课件使用技巧在实际教学过程中，发现大多数教师还是比较喜欢用Powerpoint来制作一些课件，Powerpoint的使用率还是很高的，这是因为对于大多数教师制作自用教学软件来说......
刀豆文库小编为你整合推荐7篇PowerPoint课件使用技巧，也许这些就是您需要的文章，但愿刀豆文库能带给您一些学习、工作上的帮助。......
基于PowerPoint的多媒体教学课件的开发覃莉莉摘要:本文介绍了，以PowerPoint为开发平台，使用多媒体技术，结合AutoCAD、PhotoShop、Flash 等软件，开发制作高职高专课程CAI教学课件......
powerpoint中如何使用母版1.下载后的powerpoint模板怎样导入powrpoint中去菜单栏→文件→另寸为→保存类型→演示文稿设计模板(*.pot) 2.怎样更换powerpoint里的模版，使每块......
