VB语言谁会呀？

我会，你需要详细地写一下。

你这样写会的也不看不懂你在写什么了

dim a as single,b as single,c as single '假设有三个评分,因为你没有告诉我有几个评分
dim max as single,min as single

'从三个text中输入分值，从label1中输出最终得分
a = val(text1.text)
b = val(text2.text)
c = val(text3.text)

max = a
min = a

if b>max then
max = b
end if

if c>max then
max = c
end if

if b<min then
min = b
end if

if c<min then
min = c
end if

dim al as single '最终总分
single = a + b + c - min - max
label1.caption = single

2008 的代码：
存为一个 Double 数组。这时。数组的 Max 和 Min 两个属性就是这些数的最大值和最小值，这时用数组的 Sum 属性（总和）减去最大值和最小值，除以数组元素个数－1（元素从 0 开始计数，所以减一不是减二）即为平均数。
Adv = (DeFen.Sum - DeFen.Max - DeFen.Min) / DeFen.Lenth - 1
我不知道如何计算评委个数，除数是减三还是减一你看着办哦