某地區(qū)舉辦了一場比賽,共有n個選手參加,每個選手會有m個評委進行評分?,F要求按下列規(guī)則計算每個選手的成績,并按照成績從高到低進行排序。
選手成績的計算規(guī)則是:計算評分最高前k個的平均分avg1,剩余評分的平均分avg2,找到avg1與avg2差值最小,則avg1與avg2的平均數為該選手得分。例如,某選手的評委評分為6,5,3,1,則各位次評分為:
由表格可知,差值最小為3,因此該選手的評分為(6+3)/2=4.5。
k |
1 |
2 |
3 |
avg1 |
6 |
5.5 |
4.67 |
avg2 |
3 |
2 |
1 |
avg1-avg2 |
3 |
3.5 |
3.67 |
按上述要求,編寫VB程序,功能如下:在列表框List1中顯示各選手的評委評分,單擊“計算”按鈕Command1,在列表框List2中依次按照得分從高到低顯示每位選手成績。程序運行界面如圖所示。
請回答下列問題:
(1)若某選手的評委評分為6,3,7,10,則該選手最后成績?yōu)?
6.5
6.5
。
(2)實現上述功能的VB程序如下,請在橫線處填入合適的代碼。