我现在有的程序是：

'“最终得分”按钮
On Error GoTo er
Dim sum As Single
'将8个评委的分数相加得出总分sum
sum = 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 / 6, "#.##")
'计算出最后得分（平均分），精确到小数点后2位
Slide2.TotalScore.Caption = AverageScore
'第二张幻灯片显示最后得分
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:
With SlideShowWindows(1).View
    .GotoSlide (2)
End With