巧妙運用制作演講比賽評分系統(tǒng).doc

巧妙運用PPT制作演講比賽評分系統(tǒng)準備工作：在C盤新建一文件夾，命名為“考試評分”。用于存放參賽人員的相關信息，其中Name.txt中保存著各參賽人員名字（事先準備好Name.txt，每位參賽人員占一行）。制作過程：1.界面設置打開PowerPoint 2003新建一幻燈片，點擊“視圖工具欄控件工具箱”打開“控件工具箱”。在工具箱中使用“圖像控件”來插入八位語文教師的照片，分數(shù)可以用“文本框”來表示，再插入兩個“命令按鈕”進行操作，分別為“清空”和“最終得分”按鈕。放置好控件之后再調(diào)整各控件的屬性并美化界面（見圖1）。評委打分的文本框名稱為Text1，Text2，Text8，“最終得分”按鈕的名稱為CommandTotal，第二張幻燈片用來顯示最后得分，名稱為TotalScore。2.全局變量設置打開VBA編輯器（見圖2）輸入如下代碼：Const Path$ = C:考試評分指定得分的統(tǒng)計文件路徑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 SubPrivate Sub CommandTotal_Click()“最終得分”按鈕On Error GoTo erDim sum As Single將8個評委的分數(shù)相加得出總分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, #.#)計算出最后得分（平均分），精確到小數(shù)點后3位Slide2.TotalScore.Caption = AverageScore第二張幻燈片顯示最后得分If GroupNum=1 AND GroupNum SngScore(j) Thena = SngScore(i): SngScore(i) = SngScore(j): SngScore(j) = ab = StrName(i): StrName(i) = StrName(j): StrName(j) = bEnd IfNextNexter:End Sub4.建立顯示獲獎名單回到PPT中新建一張幻燈片，用于顯示獲獎名單，按鈕名稱為CmdDisply，6個文本框的名稱為Prize1，Prize6。代碼如下：Private Sub CmdDisply_Click()ReadDataInp因為分數(shù)從高到低排序，因此先輸出最后三組Prize1.Text = StrName(4)Prize2.