VB編程，某次比賽，有7位裁判打分，得分去掉壹個最高分，去掉壹個最低分，求出選手的平均分

在窗體中做壹個文本框，復制後粘貼7份（做成控件數組），Text1(0)~Text1(6)放裁判打分，最後壹個放平均分：

Private Sub Command1_Click()

s = Val(Text1(0).Text)

Max = s

Min = s

For i = 1 To 6

x = Val(Text1(i).Text)

If x > Max Then Max = x

If x < Min Then Min = x

s = s + x

Next i

Text1(7).Text = (s - Max - Min) / 5

End Sub

上一篇:按鍵精靈編程的時候怎麽把網頁往下拉

下一篇:在單片機中“邏輯與、或、異或操作”是什麽意思?