VB去掉一个最高分和一个最低分,然后求平均分

发布网友 发布时间：10小时前

我来回答

共3个回答

热心网友 时间：10小时前

不清楚你这些文本框的具体名称，假设分别为Text1 -- Text7；

Private Sub Combo1_Click()
Dim T As Single,MyMax As Single,MyMin As Single 
Dim i As Integer

MyMax=-9999
MyMin=9999

T = T + Val(Text1.Text)
if Val(Text1.Text) > MyMax Then MyMax = Val(Text1.Text)
if Val(Text1.Text) < MyMin Then MyMin = Val(Text1.Text)

T = T + Val(Text2.Text)
if Val(Text2.Text) > MyMax Then MyMax = Val(Text2.Text)
if Val(Text2.Text) < MyMin Then MyMin = Val(Text2.Text)

T = T + Val(Text3.Text)
if Val(Text3.Text) > MyMax Then MyMax = Val(Text3.Text)
if Val(Text3.Text) < MyMin Then MyMin = Val(Text3.Text)

T = T + Val(Text4.Text)
if Val(Text4.Text) > MyMax Then MyMax = Val(Text4.Text)
if Val(Text4.Text) < MyMin Then MyMin = Val(Text4.Text)

T = T + Val(Text5.Text)
if Val(Text5.Text) > MyMax Then MyMax = Val(Text5.Text)
if Val(Text5.Text) < MyMin Then MyMin = Val(Text5.Text)

T = T - MyMax - MyMin

Text7.Text = T / 3 * 3 * Val(Text6.Text)

End Sub

热心网友 时间：10小时前

这个简单啊，把几个数先放到数组里面，冒泡排序，找出最小数，把其他数进行，求平均完了

热心网友 时间：10小时前

分享两个求平均分的方法，前提是分别去掉一个最高分和最低分