VB排序,分别去掉最大最小值,然后其余数求平均值

如何在vb中，16个文本框中输入16个数字，然后去掉3个最小值，去掉3个最大值后，求平均值？？谢谢~

'16个文本框组成控件数组
Private Sub Command1_Click()
Dim a(15)
For i = 0 To 15
a(i) = Val(Text1(i).Text)
Next
For i = 0 To 15
For j = 0 To i
If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t
Next
Next
For i = 3 To 12
s = s + a(i)
Next
MsgBox "平均值=" & s / 10
End Sub

添加一个Command1，10个text,分别为text1(0),text1(1).....text1(9),用来输入10个评委的分数，1个text2输出结果。
Private Sub Command1_Click()
Dim MaxT, MinT, SumT As Long
MaxT = Text1(0).Text
MinT = Text1(0).Text
SumT = 0
For i = 0 To 9
SumT = SumT + Text1(i).Text '求和
If Text1(i).Text >= MaxT Then
MaxT = Text1(i).Text '最大值
End If
If Text1(i).Text <= MaxT Then
MinT = Text1(i).Text '最小值
End If
Next
Text2.Text = Format((SumT - MaxT - MinT) / 8, "0.00") '计算平均值
End Sub

'添加如下两个过程，然后调用 GetAverage 即可。
'示例: (假设要对长整型数组Arr排序并求去头尾后的平均值)
'MsgBox GetAverage(Arr)

Private Function GetAverage(Source() As Long)
InsertSort Source
Dim i As Long, Sum As Long
For i = LBound(Source) + 1 To UBound(Source) - 1
Sum = Sum + Source(i)
Next
If UBound(Source) - LBound(Source) - 2 > 0 Then GetAverage = Sum / (UBound(Source) - LBound(Source) - 2)
End Function

Private Sub InsertSort(Source() As Long)
Dim i As Long, j As Long, k As Long, c As Long
ReDim n(LBound(Source) To UBound(Source)) As Long
c = LBound(Source)
For i = LBound(Source) To UBound(Source)
For j = LBound(Source) To c - 1
If Source(i) <= n(j) Then Exit For
Next
For k = c - 1 To j Step -1
n(k + 1) = n(k)
Next
n(j) = Source(i)
c = c + 1
Next
For i = LBound(Source) To UBound(Source)
Source(i) = n(i)
Next
End Sub

---

郾城县15320301034： VB排序,分别去掉最大最小值,然后其余数求平均值 - ？
景雄鼻炎： '添加如下两个过程,然后调用 GetAverage 即可.'示例: (假设要对长整型数组Arr排序并求去头尾后的平均值)'MsgBox GetAverage(Arr) Private Function GetAverage(Source() As Long) InsertSort Source Dim i As Long, Sum As Long For i = ...

郾城县15320301034： 如何在vb中,16个文本框中输入16个数字,然后去掉3个最小值,去掉3个最大值后,求平均值??谢谢 - ？
景雄鼻炎： '16个文本框组成控件数组 Private Sub Command1_Click() Dim a(15) For i = 0 To 15 a(i) = Val(Text1(i).Text) Next For i = 0 To 15 For j = 0 To i If a(i) < a(j) Then t = a(i): a(i) = a(j): a(j) = t Next Next For i = 3 To 12 s = s + a(i) Next MsgBox ＂平均值=＂ & s / 10 End Sub

郾城县15320301034： VB输入10个数字,去掉其最大数和最小数,求平均数 - ？
景雄鼻炎： Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim t As Single Dim s As Single Dim a(10) As Single For i = 1 To 10 a(i) = InputBox(＂请输入第＂ & i & ＂个数＂) Print a(i); NextFor i = 1 To 9 For j = i To 10 If a(i) > a(j) Then t =...

郾城县15320301034： VB评分软件 去掉最高、最低分 - ？
景雄鼻炎： Private Sub Command1_Click() Dim arry1(9) As Variant For i = 0 To 9 arry1(i) = Val(Text1(i).Text) Next '对数组排序 Dim w1, w2 As Integer Dim temp1 As Variant For w1 = 0 To UBound(arry1()) - 1 For w2 = w1 + 1 To UBound(arry1()) 罚伐窜和诃古...

郾城县15320301034： 我想用vb设计一个程序:用一组数中的最大值减去最小值后,再除以这组数的的平均数,不过我不会,急!@!谢 - ？
景雄鼻炎： Dim i, max, min, avg, sum As IntegerFor i = 0 to UBound(数组回答)If i = 0 Thenmin = 数组(0)max = 数组(0)End IfIf max < 数组(i) thenmax = 数组(i)End ifIf min > 数组(i) thenmin = 数组(i)End ifsum = sum + 数组(i) Next iDebug.Print cstr((max-min)/(sum/(UBound(数组)+1)))

郾城县15320301034： 利用VB编程,输入十个评委给出的分数,去掉最大值与最小值,计算最后的平均值并输出. - ？
景雄鼻炎： 添加一个Command1,10个text,分别为text1(0),text1(1).....text1(9),用来输入10个评委的分数,1个text2输出结果.Private Sub Command1_Click() Dim MaxT, MinT, SumT As Long MaxT = Text1(0).Text MinT = Text1(0).Text SumT = 0 For i = 0 To ...

郾城县15320301034： 用VB设计个竞赛评分系统,该系统能显示评委分数,去掉最高分最低分,最后输出选手的平均得分 - ？
景雄鼻炎： 将每位评委的得分排序,去掉最大和最小,然后进行平均计算即可.

郾城县15320301034： VB 随机产生10个0~100之间的随机整数,去掉最大值与最小值,剩下8个数的和与平均数.VB - ？
景雄鼻炎：[答案] 帮你写好了,这个是工程文件,下载下来就可以了.以下是源码:Private Sub Command1_Click()Dim A(10) As Double, L As Integer, B As Double, C As Double, D As DoubleRandomize '根据时间初始化随机数A(0) = (Rnd...

郾城县15320301034： VB程序设计中,有10个分数,怎样输入一个除去最大值、最小值,求平均值的程序?急! - ？
景雄鼻炎： 先在窗体上放一个text1,在界面将text1的index属性值设为0,这样我们就创建了一个textbox控件数组,用复制粘贴的办法再添加9个成员 再在窗体上放3个按纽控件,代码如下:Option Explicit: Dim a(9) As Integer, s As Double, max As Integer, ...