某次歌曲大奖赛,有7个评委。如果分别输入7个评委对某个参赛者的打分数,按照去掉一个最高分和一个最低分的计算办法,求出该参赛者的平均得分。

sub commandl_click()

Dim mark!，aver!，i％，maxl!，minl!

aver=0

For i=1 TO 7

mark=InputBox(”请输入第”＆i＆”位评委的打分”)

工f i=i Then

maxl=mark：minl=mark

E1Se

If mark＜minl Then

minl=mark

Elself mark＞maxl Then

【 】

End If

End If

【 】

Next i

aver=(aver-maxl-minl)／5

MsgBox aver

End sub

Sub command1_click()

Dim mark!,aver!,i%,max1!,min1!

Aver=0

For i=1 to 7

Mark=inputbox(“ 请输入第 ” &i& ” 位评为的打分 ” )

If i=1 then

Max1=mark:min1=mark

Else

If mark＜＞

Min1=mark

Elseif mark ＞max1 then

_____ 12 ____

End if

End if

__ 13 ____

Next i

Aver=(aver-max1-min1)/5

Msgbox aver

End sub

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

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

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

在考生文件夹下完成下列操作：

为了查询不同歌手演唱的歌曲，请设计一个表单mform．scx，其界面如下图所示：

表单控件名为formone表单的标题为“歌曲查询”。表单左侧有一个标签控件Labelone，显示内容为“输入歌手姓名”，一个文本框控件Textone用于输入歌手姓名， 个命令按钮Commanda和Commandb分别显示“查询”和“退出”，以及一个表格控件Gridone。

表单运行时，用户首先在文本框中输入歌手“刘德华”，然后单击“查询”按钮，如果输入正确，在表单右侧以表格形式显示此歌手的演唱的歌曲信息，包括歌曲名称、语言和歌，按点歌码升序排序，并将此信息存入tb．dbf文件中。单击“退出”按钮将关闭表单。

A.9.4， 0.484

B.9.4， 0.016

C.9.5，0.04

D.9.5，0.02

A.9.4， 0.484

B.9.4， 0.016

C.9.5，0.04

D.9.5，0.02

A.9.4， 0.484

B.9.4， 0.016

C.9.5，0.04

D.9.5，0.02