VB编程：一比赛七评委打分，输入分数后去掉最高最低，显示平均得分

来源：百度知道 编辑：UC知道 时间：2024/06/23 15:15:44
用的程序希望是基础一点的。满意再加分。本人考试题目，多谢了！！

Dim max,min,sum=0 As long;
max=min=a[0];
for i=1 To 9 Step 1
if a[i]>max Then
max=a[i];
End If
if a[i]<min Then
min=a[i];
End If
sum=a[i]+sum;
Next i
Text1.Text=CInt(sum-max-min)/8
这个是算法的问题，输入和输出你自己设置，数据放在数组a[]中，关键是算法的问题，这个算法很经典