《巧妙运用PPT制作演讲比赛评分系统.doc》由会员分享,可在线阅读,更多相关《巧妙运用PPT制作演讲比赛评分系统.doc(4页珍藏版)》请在金锄头文库上搜索。
1、巧妙运用PPT制作演讲比赛评分系统准备工作:在C盘新建一文件夹,命名为“考试评分”。用于存放参赛人员的相关信息,其中Name.txt中保存着各参赛人员名字(事先准备好Name.txt,每位参赛人员占一行)。制作过程:1.界面设置打开PowerPoint 2003新建一幻灯片,点击“视图工具栏控件工具箱”打开“控件工具箱”。在工具箱中使用“图像控件”来插入八位语文教师的照片,分数可以用“文本框”来表示,再插入两个“命令按钮”进行操作,分别为“清空”和“最终得分”按钮。放置好控件之后再调整各控件的属性并美化界面(见图1)。评委打分的文本框名称为Text1,Text2,Text8,“最终得分”按钮的
2、名称为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
3、.Text = Text7.Text = Text8.Text = Slide2.TotalScore.Caption = 清空下一张幻灯片的最后总分End SubPrivate Sub CommandTotal_Click()“最终得分”按钮On Error GoTo erDim sum As Single将8个评委的分数相加得出总分sumsum = sum + CSng(Text1.Text)sum = sum + CSng(Text2.Text)sum = sum + CSng(Text3.Text)sum = sum + CSng(Text4.Text)sum = sum + CSng
4、(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第二张幻灯片显示最后得分If GroupNum=1 AND GroupNum SngScore(j) Thena = SngScore(i): SngScore(i) = SngScore(j): SngScore
5、(j) = ab = StrName(i): StrName(i) = StrName(j): StrName(j) = bEnd IfNextNexter:End Sub4.建立显示获奖名单回到PPT中新建一张幻灯片,用于显示获奖名单,按钮名称为CmdDisply,6个文本框的名称为Prize1,Prize6。代码如下:Private Sub CmdDisply_Click()ReadDataInp因为分数从高到低排序,因此先输出最后三组Prize1.Text = StrName(4)Prize2.Text = StrName(5)Prize3.Text = StrName(6)大家在制作时可以加入其他的幻灯片用做修饰,这样就能让赛场气氛非常热烈。