我想编一个vb程序,16个数字去除3个最大数和3个最小数后求剩余的十个数的平均值.平均值保留小数点后一位麻烦高手能够帮我编写一下代码.
来源：学生作业帮助网 编辑：六六作业网 时间：2025/01/31 05:41:29
我想编一个vb程序,16个数字去除3个最大数和3个最小数后求剩余的十个数的平均值.平均值保留小数点后一位麻烦高手能够帮我编写一下代码.
我想编一个vb程序,16个数字去除3个最大数和3个最小数后求剩余的十个数的平均值.平均值保留小数点后一位
麻烦高手能够帮我编写一下代码.
我想编一个vb程序,16个数字去除3个最大数和3个最小数后求剩余的十个数的平均值.平均值保留小数点后一位麻烦高手能够帮我编写一下代码.
'写好了,这个程序是随机生成16个小数. 你可以按需要修改,比如改成手动输入16个数,只需要把A(i) = Round(Rnd() * 100, 2)这一句换成input语句即可.
Dim A(0 To 15) As Single, Sum As Single
Private Sub Form_Load()
Me.AutoRedraw = True
Randomize
Me.Print "随机生成16个100以内的数："
For i = LBound(A) To UBound(A)
A(i) = Round(Rnd() * 100, 2)
Me.Print A(i); ",";
Next
Me.Print vbCrLf; "排序：";
For i = 0 To 15
For j = i To 15
If A(i) > A(j) Then
A(0) = A(j)
A(j) = A(i)
A(i) = A(0)
End If
Next j
Print A(i);
Next i
For i = 3 To 12
Sum = Sum + A(i)
Next
Me.Print vbCrLf; "去除3个最小3个最大并求平均值："; Round(Sum / 10, 2)
End Sub