哪位高手帮忙下，编个小软件阿！！！！！！

来源：百度知道 编辑：UC知道 时间：2024/05/18 10:26:50
一个歌手大赛的算分软件，
1.评分办法是采取去掉一个最高分和一个最低分，以余下评委打分的平均分作为最后得分，得分保留到小数点后两位。
2.最好是VB编的，各位评委的打分通过文本框输入,评委数量<10人，但需做10个输入框。根据实际填入的分数定评委人数。（也就是哪几个文本框填入数字了，就有n个评委，根据n算出平均分）
例如 有4个评委的话 评委打分依次是 9.56 9.81 9.65 9.25 那么平均分
就应该是 (9.56+9.65)/2=? 评委数量不定

3.软件请发送至pwyixin@163.com
c#编好了可以是窗口模式显示么？好的，谢谢阿，

Private Sub Command1_Click()
Dim i As Integer
Dim iRow As Integer
Dim dMax As Double
Dim dMin As Double
Dim dSum As Double

For i = 0 To 9
If Val(Text1(i).Text) <> 0 Then
iRow = iRow + 1
If dMax < Val(Text1(i).Text) Then
dMax = Val(Text1(i).Text)
End If
If iRow = 1 Then
dMin = Val(Text1(i).Text)
End If
If dMin > Val(Text1(i).Text) Then
dMin = Val(Text1(i).Text)
End If
dSum = dSum + Val(Text1(i).Text)
End If
Next

If iRow <= 2 Then
MsgBox "less than three data"
Else
MsgBox (dSum - dMax - dMin) / (iRow - 2)
End If

End Sub

画面上 一个text数组 名字叫text1 一个command 名字command1

现在就写

<