Question

VB:数组例题

某比赛有8位评委给参赛歌手打分，满分为10分，歌手最后得分的计算规则是：去掉一个最高分，再去掉一个最低分，取其余评委所打分的平均分，编写程序：分别输入8为评委为5位歌手的打分，然后计算各位歌手的最后得分，并输出其中的最高分

Answer 1

dim i as integer
dim a(7) as double
dim max as double
max=0
dim min as double
min=11
dim s as double
s=0
for i=0 to 7
a(i)=inputbox("打分：")
next
for i=0 to 7
if a(i)>max then max=a(i)
if a(i)<min then min=a(i)
s=s+a(i)
next
msgbox "平均分：" & ((s-max-min)/6) & "，最高分：" & max