学生小白一枚

假设你那个显示“最高分”的标签是Label10
假设你那个显示“最低分”的标签是Label11
那么在最后加两句：
Label10.caption ="最高分：" & max
Label11.caption ="最低分：" & min

推荐个论坛：VBGOOD http://www.vbgood.com论坛里素材非常多

逻辑好乱，直接抓取text最大和最小，用print或者显示在label

这个好像比较简单啊

楼主给我吧，我交作业

'　形参 n 是评委人数
Private Function PJF(ByVal n As Integer) As Single
Dim f0!, f1!, f2!, S!, i%
PJF = 0
If n>= 3 Then
f1 = 0 : f2 = 10000
For i = 0 To n - 1
f0 = Val(Text1(i).Text)
PJF = PJF + f0
If f0 > f1 Then f1 = f0 '　找最大分
If f0 < f2 Then f2 = f0 '　找最小分
Next
PJF = (PJF - f1 - f2) / (n - 2)
End If
End Function
Private Sub Command1_Click() '　【最后结果】按钮
Label10.Caption = CStr(PJF(6)) '　实参 6 是评委人数
End Sub