VB编程：设计一个体操评分程序， 20 位评委，除去一个最高分和一个最低分，计算平均分

答案：Dim a(20)   '如果不需要显示20个数的话，不需要数组，a(i)用X代替就可以
Dim max!, Min!, i%
Private Sub Command1_Click()  '按钮单击
     For i = 1 To 20
        a(i) = Int(Rnd * 10) + 1     '[1~10]间在随机数
        s = s + a(i)                 '求和
        If i = 1 Then                '最大最小值的初值为第一个数
           max = a(1): Min = a(1)
        Else
           If max < a(i) Then max = a(i)
           If Min > a(i) Then Min = a(i)
        End If
    Next i
    Print (s - max - Min) / 18     '求平均
End Sub

其他：使用a(20)数组先排序
dim x as double, i as interger  ,average_1 as double
for i=2 to 19  
x=x+a(i) 
next i 
average_1=x/18 假如分数是随机产生，不是人工给的，那么假设分数是在10分以内的
Dim a as Single
Max=0:Min=10
For i=1 To 10
a=11*Rnd
If Max〈a then Max=a
If Min〉a Then Min=a
sum=sum+a
Next i
sum=Format(sum-Max-Min,“0.00“):Print sum
至于要打印出每个成绩或者去掉最高分和最低分，只要把打印代码修改就好了。Format是保留小数点后面几位数。0.00说明精确到0.01。

上一个：【35、VB界面设计 15分】
下一个：VB程序，帮忙解释一下啥意思，越详细越好