2014巧妙运用制作演讲比赛评分系统.docVIP

巧妙运用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 Private 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(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 = 5 Then写入最后得分Open Path$ InpScore.txt For Append As #1Print #1, AverageScoreClose #1End IfGroupNum = GroupNum + 1er:End Sub 3.建立评奖模块在Microsoft Visual Basic中点击“插入→模块”来建立评奖模块，再写入如下代码： Const Counter = 6如评一等奖1名，二等奖2名，三等奖3名，故Counter设为6Public StrName(Counter) As StringPublic SngScore(Counter) As SinglePublic Sub ReadDataInp()读取得分文件，并对得分加以排序On Error GoTo erOpen Path$ InpName.txt For Input As #1For i = 1 To CounterInput #1, StrName(i)NextClose #1Open Path$ InpScore.txt For Input As #2For i = 1 To CounterInput #2, SngScore(i)NextClose #2For i = 1 To CounterFor j = 1 To CounterIf SngScore(i) SngScore(j) Thena = SngScore(i): SngScore(i) = SngScore(j): SngScore(j) = ab = StrName(i): StrName(i) = StrName(j): StrName(j) = bEnd IfNextNexter:End Sub 4.建立显示获奖名单回到PPT中新建一张幻灯片