java模拟评委评分系统 去掉一个最高分_如在VB中设计一个评分系统，要求去掉一个最高分，一个最低分，求最后得分...

Private Sub Command1_click() '最后结果

Dim t1!, t2!, t3!, i% 't1最大值 t2最小值

t1 = Val(Text1(0).Text): t2 = t1

For i = 1 To 9

If t1 < Val(Text1(i).Text) Then t1 = Text1(i).Text '判断t1是否比当前内容小 若为真 则赋值给t1 得出最高分

If t2 > Val(Text1(i).Text) Then t2 = Text1(i).Text '判断t2是否比当前内容大 若为真 则赋值给t2 得出最低分

Next i

'求出最大最小值

For i = 0 To 9

t3 = t3 + Val(Text1(i).Text) '得出所有数值的和

Next i

t3 = (t3 - t1 - t2) / 8 '去掉最高最低分求平均值

'求出最后得分(去掉最高分最低分，求平均值)

Label14.Caption = t1

Label15.Caption = t2

Label16.Caption = t3

End Sub

Private Sub Command2_click() '清除

Dim i%

For i = 0 To 9

Text1(i).Text = ""

Next i

Label14.Caption = ""

Label15.Caption = ""

Label16.Caption = ""

End Sub

Private Sub Command3_click() '退出

End

End Sub