去任意10个数去掉最高分最低分的平均分高中VB
来源:百度知道 编辑:UC知道 时间:2024/06/28 03:26:05
最好速度急用
Dim a(10) As Double
Dim max As Double, min As Double, sum As Double, avg As Double
Private Sub Form_Activate()
For i = 1 To 10
a(i) = InputBox("请输入第" & i & "个数")
Print a(i);
sum = sum + a(i)
If i = 1 Then min = a(i): max = a(i)
If a(i) > max Then max = a(i)
If a(i) < min Then min = a(i)
Next
avg = (sum - (min + max)) / 8
Print
Print avg
End Sub
Private Sub Form_Load()
sum = 0
End Sub
VB 10个数,去一个最高分最低分,求平均分,为什么总出现未找到数据成员和方法
10个裁判打分,去掉个最高分,在去掉个最低分,最后就平均值。那10个数可以是随机产生的,也可以自己输入
有没有什么比赛的计分方法是去掉最高分和最低分然后去平均值?
某比赛五位评委打分。去一最高分和一最低分平均是9.85;去掉一最低分平均分9.4。最高分是多少?
什么时候开始去掉一个最高分,去掉一个最低分?
体操比赛时哦为什么去掉最高分和最低分
为什么评分时要去掉最高分和最低分
5人给一人打分,去掉最高分和最低分,平均分9.58;如去掉最高分,平均分9.46;如去掉最低分,平均分9.66.
10名评委,5个参赛者,去掉一个最高分,一个最低分,计算平均分(用C++)
"去掉一个最高分,去掉一个最低分"是什么算法?