vb编程十位评委给歌手打分,要求去掉一个最高分一个最低分.然后再求出选手的平均分

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/11 05:28:38

Dim arr(1 To 10) As Double
Const N = 10
Private Sub Command1_Click()
Record
Dim temp As Double
For i = 1 To N - 1
For j = 1 To N - 1
If arr(j) > arr(j + 1) Then
t = arr(j): arr(j) = arr(j + 1): arr(j + 1) = t
End If
Next j
Next i
showr
End Sub
Private Sub Form_Load()
For txtcount = 0 To 9
Text1(txtcount).Text = ""
Next

End Sub
Private Sub Record()
For txtcount = 0 To 9
arr(txtcount + 1) = Val(Text1(txtcount).Text)
Next
End Sub
Private Sub sort()

End Sub
Private Sub showr()
For txtcount = 0 To 9
Text1(txtcount).Text = arr(txtcount + 1)
Next
End Sub还要加入10个输入框数组控件,亲测可行,望采纳~

vb编程十位评委给歌手打分,要求去掉一个最高分一个最低分.然后再求出选手的平均分歌手大奖赛有10名评委打分,去掉一个最高分、去掉一个最低分,求选手的平均分. 在歌手大奖赛中,有5位评委给一名选手打分.去掉一个最高分,平均分是9分；去掉一个最低分,平均分是9.2分.最高分与最低分一场比赛中,6个评委要给一个歌手打分,去掉一个最高分和一个最低分,平均分为8.6分,去掉一个最低分,平均青年歌手大赛,有10个评委对他进行打分,试编程求这位选手的平均得分（去掉一个最高分和一个最低分）怎样青年歌手参加歌曲大赛,有5个评委对她进行打分,试编程求这位选手的平均得分(去掉一个最高分和一个最低分) 比赛场上,由10个评委为1为选手打分,然后将去掉一个最高分和一个最低分,已知评委给选手打的分六位评委给一位歌手打分,平均分为9.5分,若去掉一个最低分,平均分为9.6分若去掉最高分,平均分为9.45分个评委给一名歌手演员打分,平均分为9.6分,去掉一个最高分,平均分为9.55.,去掉一个最低分平均分为9.7. 有六位评委给歌手打分,平均分为8.5,去掉一个最高分平均分为8.6去掉一个最低分平均分8.2,如果 5个评委给歌手打分,按照规定,要去掉一个最低分和最高分,再算出平均分.一个歌手最后得分是9.4分,你知五名评委给一名小歌手打分，去掉一个最高分和一个最低分平均得9.58分，去掉一个最高分平均得9.46分，去掉一个最低分平均