我想编一个vb程序,16个数字去除3个最大数和3个最小数后求剩余的十个数的平均值.平均值保留小数点后一位麻烦高手能够帮我编写一下代码.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 05:54:49
![我想编一个vb程序,16个数字去除3个最大数和3个最小数后求剩余的十个数的平均值.平均值保留小数点后一位麻烦高手能够帮我编写一下代码.](/uploads/image/z/11289243-3-3.jpg?t=%E6%88%91%E6%83%B3%E7%BC%96%E4%B8%80%E4%B8%AAvb%E7%A8%8B%E5%BA%8F%2C16%E4%B8%AA%E6%95%B0%E5%AD%97%E5%8E%BB%E9%99%A43%E4%B8%AA%E6%9C%80%E5%A4%A7%E6%95%B0%E5%92%8C3%E4%B8%AA%E6%9C%80%E5%B0%8F%E6%95%B0%E5%90%8E%E6%B1%82%E5%89%A9%E4%BD%99%E7%9A%84%E5%8D%81%E4%B8%AA%E6%95%B0%E7%9A%84%E5%B9%B3%E5%9D%87%E5%80%BC.%E5%B9%B3%E5%9D%87%E5%80%BC%E4%BF%9D%E7%95%99%E5%B0%8F%E6%95%B0%E7%82%B9%E5%90%8E%E4%B8%80%E4%BD%8D%E9%BA%BB%E7%83%A6%E9%AB%98%E6%89%8B%E8%83%BD%E5%A4%9F%E5%B8%AE%E6%88%91%E7%BC%96%E5%86%99%E4%B8%80%E4%B8%8B%E4%BB%A3%E7%A0%81.)
我想编一个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