最近單位組織了一次英語(yǔ)會(huì)話(huà)比賽，筆者用PowerPoint內(nèi)嵌的VBA功能制作了一個(gè)即時(shí)評(píng)分系統(tǒng)，受到老師和同學(xué)們的一致好評(píng)，現(xiàn)將制作過(guò)程與大家分享。
準(zhǔn)備工作：在桌面新建一個(gè)名為“評(píng)分系統(tǒng)”的文件夾，用于存放參賽隊(duì)的相關(guān)信息，其中Name.txt中保存了各參賽隊(duì)名稱(chēng)（需事先準(zhǔn)備，每個(gè)隊(duì)名占一行）。
啟動(dòng)工作：新建一張空白幻燈片，在“視圖”菜單下找到“工具欄”子菜單，選擇其中的“控件工具箱”（大家也可根據(jù)實(shí)際需要改變主界面風(fēng)格）。調(diào)整相應(yīng)控件位置，評(píng)委照片用的是“圖像控件”，下面的分?jǐn)?shù)用的是“文本框”，兩個(gè)按鈕用的是“命令按鈕”，放置好控件之后再調(diào)整各控件的屬性來(lái)美化界面，也可根據(jù)實(shí)際需要插入圖片進(jìn)行修飾。
評(píng)分系統(tǒng)主界面中包括8個(gè)評(píng)委的照片和每個(gè)評(píng)委給出的分?jǐn)?shù)（如圖），功能按鈕包括“清空”、“最后得分”。
各評(píng)分得分的文本框的名稱(chēng)為T(mén)xtS1，TxtS2……TxtS8，“最后得分”按鈕的名稱(chēng)為CommandTotal，第二張幻燈片用來(lái)顯示最后得分的標(biāo)簽名稱(chēng)為L(zhǎng)blTotal。
設(shè)計(jì)工作：打開(kāi)VBA編輯器編寫(xiě)代碼：
'指定文件夾用于存放每組得分的統(tǒng)計(jì)文件
Const Path$ = "C:\windows\desktop\評(píng)分系統(tǒng)\"
'全局變量，最后總分
Dim sum As Single
'全局變量，最后平均得分
Dim AverageScore As Single
'全局變量，記錄組次，保存后自動(dòng)加1
Dim GroupNum As Integer
'清空“評(píng)委得分”，清空“最后得分”
Private Sub CommandButton1_Click()
TxtS1.Text = ""
TxtS2.Text = ""
TxtS3.Text = ""
TxtS4.Text = ""
TxtS5.Text = ""
TxtS6.Text = ""
TxtS7.Text = ""
TxtS8.Text = ""
'清空下一張幻燈片的最后總分
Slide2.LblTotal.Caption = ""
End Sub
'“最后得分”按鈕
Private Sub CommandTotal_Click()
On Error GoTo er
Dim sum As Single
'將8個(gè)評(píng)委的分?jǐn)?shù)相加得出總分sum
sum = sum + CSng(TxtS1.Text)
sum = sum + CSng(TxtS2.Text)
sum = sum + CSng(TxtS3.Text)
sum = sum + CSng(TxtS4.Text)
sum = sum + CSng(TxtS5.Text)
sum = sum + CSng(TxtS6.Text)
sum = sum + CSng(TxtS7.Text)
sum = sum + CSng(TxtS8.Text)
'計(jì)算出最后得分（平均分），精確到小數(shù)點(diǎn)后3位
AverageScore = Format(sum / 8, "#.###")
'第二張幻燈片顯示最后得分
Slide2.LblTotal.Caption = AverageScore
'寫(xiě)入最后得分
If GroupNum>=1 AND GroupNum <= 5 Then
Open Path$ && "InpScore.txt" For Append As #1
Print #1, AverageScore
Close #1
End If
GroupNum = GroupNum + 1
er:
End Sub
新建一個(gè)模塊，寫(xiě)入如下代碼，此處為評(píng)獎(jiǎng)模塊。
'評(píng)選項(xiàng)一等獎(jiǎng)1名，二等獎(jiǎng)2名，三等獎(jiǎng)3名，故Counter變量設(shè)為6
Const Counter = 6
Public StrName(Counter) As String
Public SngScore(Counter) As Single
'模塊功能：讀取得分文件，并對(duì)得分加以排序
Public Sub ReadDataInp()
On Error GoTo er
Open Path$ && "InpName.txt" For Input As #1
For i = 1 To Counter
Input #1, StrName(i)
Next
Close #1
Open Path$ && "InpScore.txt" For Input As #2
For i = 1 To Counter
Input #2, SngScore(i)
Next
Close #2
For i = 1 To Counter
For j = 1 To Counter
If SngScore(i) > SngScore(j) Then
a = SngScore(i): SngScore(i) = SngScore(j): SngScore(j) = a
b = StrName(i): StrName(i) = StrName(j): StrName(j) = b
End If
Next
Next
er:
End Sub
新建一張幻燈片，用于顯示三等獎(jiǎng)獲獎(jiǎng)名單，按鈕名稱(chēng)為CmdDisply，6個(gè)文本框的名稱(chēng)為T(mén)xtThirdPrize1……TxtThirdPrize6。
代碼如下：
Private Sub CmdDisply_Click()
ReadDataInp
因?yàn)榉謹(jǐn)?shù)從高到低排序，因此先輸出最后三組
TxtThirdPrize1.Text = StrName(4)
TxtThirdPrize2.Text = StrName(5)
TxtThirdPrize3.Text = StrName(6)
制作時(shí)你也可以加入其他的幻燈片用做修飾，比如制作一個(gè)帶動(dòng)態(tài)效果的開(kāi)始畫(huà)面以及結(jié)束語(yǔ)等等，然后在比賽時(shí)用投影機(jī)作為輸出，一定會(huì)起到烘托賽場(chǎng)氣氛的作用。
