以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算下均分（设满分为10分)， 请填空

均分即是最后得分,最后显示得分，显示精度为一位整数、两位小数。程序如下,请将程序补充完整。

分即为选手的得分。试将程序补充完整。

Private sub Form_Click()

Dim max as integer,min as integer,i as integer,num as integer,sum as integer,avg as single

max=0

min=10

For i=1 to 8

num=val(inputbox("请输入分数" )

if 【 】 then max=hum

if 【 】 then min=num

sum=sum+num

Next i

sum=【 】

avg=sum/6

Msgbox "最后得分:" & avg

End sub

阅读以下说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。

[说明]

某单位组织一次职业技术考核比赛，由十名评委对选手的现场表现打分(0到100以内的数值)。本程序接收原始评分后，去掉一个最高分、一个最低分，最后计算并输出选手最后得分。在接收输入第i个评分时，若输入数据的类型、范围不正确，程序将给出相应提示，并等待下一次输入，直至正确接收第i个评分为止。程序的运行界面如下：

在开发过程中，文本框名为Text1，界面上有上至下三个按钮分别取名为CmdMark、CmdReresh和CmdExit。

[Visual Basic代码]

Private Sub CmdMark_Click() ’按钮“输入评分”的单击事件响应代码

Dim i As Integer,temp As Variant ’声明变量

Dim marks(1 To 10),maxMark,minMark,sumMark,mark As Single

sumMark=0

Text1.Text=“编号”&Chr(9)&“评分”& vbCrLf

For i=1 To 10 ’接收十个评分输入

Do While 1=1 ’验证并接收第i个评委的评分

temp=InputBox(“请输入”&i&“号评委的评分:”)

If (1) IsNumeric(temp)Then

Msg Box“数据类型错误，请重试!”

ElseIf CSng(temp)＜0 Or CSng(temp)＞100 Then

MsgBox“数值范围错误，请重试!”

Else:Exit Do

End If

Loop

marks(i)=CSng(temp)

If i=1 Then maxMark=(2):minMark=(2)

If marks(i)＞maxMark Then maxMark=marks(i)

If minMark＞marks(i)Then (3)

sumMark=sumMark+marks(i)

Text1.Text=Text1.Text & i & Chr(9) & marks(i) & vbCrLf输出第i个评委的评分

Next

mark=((4))/8 ’计算选手最后得分

Text1.Text=Text1.Text &"去掉一个最高分:"&maxMark&vbCrLf&_

"去掉一个最低分:"&minMark&vbCrLf&_

"选手最后得分:"&mark

End Sub

Private Sub Command2_Click() ’按钮“刷新屏幕”的单击事件响应代码

(5).Text=“单击”输入评分“按钮，开始统分……”

End Sub

Private Sub Command3_Click() 按钮“退出程序”的单击事件响应代码

End

End Sub

的平均分 。根据 “ 评分 ” 表求每个歌手的 “ 最后得分 ” 并存储于 表 TEM P 中 。 表 TEM P 中有两个字段 ： “ 歌手号 ” 和 “ 最后得分 ” ，并且按最后得分降序排列，生成表 TEMP 的 SQL 语句是 ：

A)SELECT 歌手号 ,(COUNT (分数 ) - MAX(分数 )-MIN(分数 ))/(SUM(*)-2) 最后得分 ;

FROM 评分 INTO DBF TEMP GROUP BY 歌手号 ORDER BY 最后得分 DESC

B)SELECT 歌手号 ,(COUNT (分数 )-MAX(分数 )-MIN(分数 ))/(SUM(*)-2) 最后得分 ;

FROM 评分 INTO DBF TEMP GROUP BY 评委号 ORDER BY 最后得分 DESC

C)SELECT 歌手号 ,(SUM (分数 ) -MAX(分数 )-MIN(分数 ))/(COUNT(*)-2) 最后得分 ;

FROM 评分 INTO DBF TEMP GROUP BY 评委号 ORDER BY 最后得分 DESC

D)SELECT 歌手号 ,(SUM(分数 )-MAX(分数 )-MIN(分数 ))/(COUNT(*)-2) 最后得分 ;

FROM 评分 INTO DBF TEMP GROUP BY 歌手号 ORDER BY 最后得分 DESC

大奖赛现场统分，已知某大奖赛有n个选于参赛，m（m＞2)个评委为参赛选手评分（最高10分，最低0分)计

分规则为：在每个选手的m个得分中，去掉一个最高分和一个最低分后，取平均分作为该选于的最后得分。要求编程实现：

(1)根据n个选手的最后得分，从高到低输出选手的得分名次表，以确定奖名单

(2)根据各选手的最后得分与各评委给该选手所评分数的差距，对每个评委评分的准确性和评分水准给出一个定量的评价，从高到低输出各评委得分的名次表。