浏览器之家


巧妙运用PPT制作演讲比赛评分系统

  

准备工作:
在C盘新建一文件夹,命名为“考试评分”。用于存放参赛人员的相关信息,其中Name.txt中保存着各参赛人员名字(事先准备好Name.txt,每位参赛人员占一行)。

制作过程:
1.界面设置
打开PowerPoint 2003新建一幻灯片,点击“视图→工具栏→控件工具箱”打开“控件工具箱”。在工具箱中使用“图像控件”来插入八位语文教师的照片,分数可以用“文本框”来表示,再插入两个“命令按钮”进行操作,分别为“清空”和“最终得分”按钮。放置好控件之后再调整各控件的属性并美化界面(见图1)。

评委打分的文本框名称为Text1,Text2,……,Text8,“最终得分”按钮的名称为CommandTotal,第二张幻灯片用来显示最后得分,名称为TotalScore。

2.全局变量设置
打开VBA编辑器(见图2)输入如下代码:
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

评论

没安装畅言模块