高校问答前前前世简谱:VB的小题目，请人帮帮我。
来源：百度文库 编辑：高校问答 时间：2024/04/29 13:03:08
10个评委给一个选手打分,取掉一个最高分,取掉一个最低分,再取平均分。请帮我写出代码。我会追加很多分。
dim num,sum,max,min
sum=0
max=0
min=0
for i=1 to 10
num=你输入的分
sum=sum+num
if num>max then
max=num
elseif num<min then
min=num
end if
next
sum=(sum-max-min)/8
输出sum即可
十个评委给的分一样怎么办呢？
沙发的那个，好像没有最小值。平均分有可能高于满分。
dim num,sum,max,min
sum=0
max=0
min=100(满分)
for i=1 to 10
num=你输入的分
sum=sum+num
if num>max then
max=num
elseif num<min then
min=num
end if
next
if max=min then
sum=max
elsif max>min then
sum=(sum-max-min)/8
end if
输出sum即可
用excel~比用VB强多了。