vb 不会，帮帮忙~~~先谢谢喽~~~

来源：百度知道 编辑：UC知道 时间：2024/05/22 12:05:28
某次大奖赛，有8位评委，请设计界面，编写程序实现输入8位评委的打分，自动显示参赛者的得分，得分计算方法：8位评委的打分去掉最高分和最低分，求余下分数的平均分即为参赛者的得分。

需要一个Command按钮，而且没有考虑到如果有多个专家打最高分或者最低分的情况，也就是说，只减了一个最高分和一个最低分：
Option Explicit
Dim A(0 To 7) As Single
Dim sngMax, sngMin As Single
Dim sngSum, sngAvg As Single
Dim i As Integer
Private Sub Command1_Click()
sngMax = 0: sngMin = 100
For i = 0 To 7
A(i) = Val(InputBox("请输入第" + Trim(i) + "为裁判的评分：", "输入", "0"))
If A(i) > sngMax Then sngMax = A(i)
If A(i) < sngMin Then sngMin = A(i)
sngSum = sngSum + A(i)
Next i
sngAvg = (sngSum - sngMax - sngMin) / 6
Print "平均分是：" + Trim(sngAvg)
End Sub

dim A(1 to 8) ,I as integer,J as integer,T
把8个分数赋值给数组。
for i=1 to 7
for j=i+1 to 8
if a(i)>a(j) then
T=a(i):a(i)=a(j):a(j)=T
end if
t=(a(2)+a(3)+a(4)+a(5)+a(6)+a(7))/6
print t

先用IF比较，得出最高分和最低分后。再拿总分来减掉最高分和最低分。最后就是求平均分啦。

ease

jf