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

巧妙运用PPT制作演讲比赛评分系统准备工作：在C盘新建一文件夹，命名为“考试评分”。用于存放参赛人员的相关信息，其中Name.txt中保存着各参赛人员名字（事先准备好Name.txt，每位参赛人员占一行）。制作过程：1.界面设置打开PowerPoint2003新建一幻灯片，点击“视图→工具栏→控件工具箱”打开“控件工具箱”。在工具箱中使用“图像控件”来插入八位语文教师的照片，分数可以用“文本框”来表示，再插入两个“命令按钮”进行操作，分别为“清空”和“最终得分”按钮。放置好控件之后再调整各控件的属性并美化界面（见图1）。评委打分的文本框名称为Text1，Text2，……，Text8，“最终得分”按钮的名称为CommandTotal，第二张幻灯片用来显示最后得分，名称为TotalScore。2.全局变量设置打开VBA编辑器（见图2）输入如下代码：ConstPath$=C:\考试评分\'指定得分的统计文件路径DimsumAsSingle'全局变量总分DimAverageScoreAsSingle'全局变量平均得分DimGroupNumAsInteger'全局变量记录组次PrivateSubCommandButton1_Click()'清空得分Text1.Text=Text2.Text=Text3.Text=Text4.Text=Text5.Text=Text6.Text=Text7.Text=Text8.Text=Slide2.TotalScore.Caption='清空下一张幻灯片的最后总分EndSubPrivateSubCommandTotal_Click()'“最终得分”按钮OnErrorGoToerDimsumAsSingle'将8个评委的分数相加得出总分sumsum=sum+CSng(Text1.Text)sum=sum+CSng(Text2.Text)sum=sum+CSng(Text3.Text)sum=sum+CSng(Text4.Text)sum=sum+CSng(Text5.Text)sum=sum+CSng(Text6.Text)sum=sum+CSng(Text7.Text)sum=sum+CSng(Text8.Text)AverageScore=Format(sum/8,#.###)'计算出最后得分（平均分），精确到小数点后3位Slide2.TotalScore.Caption=AverageScore'第二张幻灯片显示最后得分IfGroupNum=1ANDGroupNum=5Then'写入最后得分OpenPath$&InpScore.txtForAppendAs#1Print#1,AverageScoreClose#1EndIfGroupNum=GroupNum+1er:EndSub3.建立评奖模块在MicrosoftVisualBasic中点击“插入→模块”来建立评奖模块，再写入如下代码：ConstCounter=6'如评一等奖1名，二等奖2名，三等奖3名，故Counter设为6PublicStrName(Counter)AsStringPublicSngScore(Counter)AsSinglePublicSubReadDataInp()'读取得分文件，并对得分加以排序OnErrorGoToerOpenPath$&InpName.txtForInputAs#1Fori=1ToCounterInput#1,StrName(i)NextClose#1OpenPath$&InpScore.txtForInputAs#2Fori=1ToCounterInput#2,SngScore(i)NextClose#2Fori=1ToCounterForj=1ToCounterIfSngScore(i)SngScore(j)Thena=SngScore(i):SngScore(i)=SngScore(j):SngScore(j)=ab=StrName(i):StrName(i)=StrName(j):StrName(j)=bEndIfNextNexter:EndSub4.建立显示获奖名单回到PPT中新建一张幻灯片，用于显示获奖名单，按钮名称为CmdDisply，6个文本框的名称为Prize1，……，Prize6。代码如下：PrivateSubCmdDisply_Click()ReadDataInp'因为分数从高到低排序，因此先输出最后三组Prize1.Text=StrName(4)Prize2.Text=StrName(5)Prize3.Text=StrName(6)大家在制作时可以加入其他的幻灯片用做修饰，这样就能让赛场气氛非常热烈。