vb编程十位评委给歌手打分,要求去掉一个最高分一个最低分.然后再求出选手的平均分
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/20 09:05:32
![vb编程十位评委给歌手打分,要求去掉一个最高分一个最低分.然后再求出选手的平均分](/uploads/image/z/778161-57-1.jpg?t=vb%E7%BC%96%E7%A8%8B%E5%8D%81%E4%BD%8D%E8%AF%84%E5%A7%94%E7%BB%99%E6%AD%8C%E6%89%8B%E6%89%93%E5%88%86%2C%E8%A6%81%E6%B1%82%E5%8E%BB%E6%8E%89%E4%B8%80%E4%B8%AA%E6%9C%80%E9%AB%98%E5%88%86%E4%B8%80%E4%B8%AA%E6%9C%80%E4%BD%8E%E5%88%86.%E7%84%B6%E5%90%8E%E5%86%8D%E6%B1%82%E5%87%BA%E9%80%89%E6%89%8B%E7%9A%84%E5%B9%B3%E5%9D%87%E5%88%86)
vb编程十位评委给歌手打分,要求去掉一个最高分一个最低分.然后再求出选手的平均分
vb编程十位评委给歌手打分,要求去掉一个最高分一个最低分.然后再求出选手的平均分
vb编程十位评委给歌手打分,要求去掉一个最高分一个最低分.然后再求出选手的平均分
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个输入框数组控件,亲测可行,望采纳~