用ppt制作评分系统
5星 · 超过95%的资源 需积分: 31 65 浏览量
2013-11-22
16:46:49
上传
评论
收藏 25KB DOC 举报 
用 ppt 制作评分系统
用 ppt 制作评分系统比赛形式
由学生上台进行朗诵，由八位语文教师进行现场打分。通过比赛评分系统即时评比。
学校组织了一次朗诵比赛，我用 PowerPoint 内嵌的 VBA 功能制作即时评分系统，现场活
动开展的热火朝天。我总结了一下成功的经验，除了组织得力外，我还有个秘密武器——
比赛评分系统，先将秘密武器的制作过程与大家分享。在开始之前，我们先来学前班对
PPT 内嵌的控件工具箱进行简单的学习。
准备工作
在 C 盘新建一文件夹。命名为“考试评分”。用于存放参赛人员的相关信息，其中
Name.txt 中保存参赛人员名字（事先准备好 Name.txt，每位参赛选手人员占一行）。
制作过程
1、界面设置
打开 PowerPoint 2003 新建一幻灯片，点击“视图—工具栏—控件工具箱”打开“控件工具
箱”。在工具箱中使用“图像控件”来插入八位语文老师的照片，分数可以用“文本框”来表示，
再插入两个“命令按钮”来进行操作，分别为：清空“和”最终得分“按钮。放置好控件之后再
调整各控件的属性美化界面。
评委打分的文本框名称为 Text1,Text2,.......Text8,“最终得分”按钮的名称为
CommandTotal,第二张幻灯片用来显示最后得分，名称为 Tota1Score.
2、全局变量设置
打开 VBA 编辑器输入代码。
Const Path$ = "C:\考试评分\"
'指定得分的统计文件路径
Dim sum As Single
'全局变量总分
Dim AverageScore As Single
'全局变量平均得分
Dim GroupNum As Integer
'全局变量记录组次
Private Sub CommandButton1_Click()
'清空得分
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Slide2.TotalScore.Caption = ""
'清空下一张幻灯片的最后总分
End Sub
评论2
最新资源