作业帮我想编一个vb程序,16个数字去除3个最大数和3个最小数后求剩余的十个数的平均值.平均值保留小数点后一位
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/03 15:33:03
我想编一个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 Su
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 Su
我想编一个vb程序,16个数字去除3个最大数和3个最小数后求剩余的十个数的平均值.平均值保留小数点后一位
有17个自然数,它们的平均值精确到小数点后面一位的数是21、3,那么精确到小数点后面三位的数是多少?
vfp中计算n（从键盘输入的正整数）个实数（从键盘输入）去掉其中最大数和最小数之后的平均值的程序怎么写
若干个正整数的平均值是10．若从这些数中去掉最大的一个数，则余下的数的平均值为9；若去掉最小的一个数，则余下的数的平均值
用C语言写一个程序：输入5个实型数求平均值,输出这5个数的和及平均值,保留4位小数,要求输出格式整齐.
由键盘输入10个实型数到数组,求它们的平均值,输出平均值和其中大于平均值的数
从键盘任意输入3个整数,利用求两个数的最大数函数max(),求得三个数的最大数,编程输出平均值和最大值.
有17个自然数,它们的平均值精确到小数点后面一位的数是21.3,那么精确到小数点后面三位的数是多少?
求34个偶数的平均值是15.9（保留一位小数）如果保留两位小数,得数最小是多少
c语言编程从输入的n个数中,去掉一个最大数和一个最小数,求剩余数的平均值.
编程从输入的10个数中,去掉一个最大数和一个最小数,求剩余数的平均值.用C语言啊
用卡片2、3、7、和小数点,一共可以摆成多少个不同的一位小 数或两位小数?其中最大的是多少?最小的