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

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