vbs实现的简易评分程序

1、源码

[code=language-vbscript]xuanshou=inputbox("请输入选手姓名，如：","选手姓名","郭靖")
s=split(trim(inputbox("请依次输入评委打分，分别用“空格”隔开。如：","提示","90 98 87 99 91.2 93 87.5 89 89.5"))," ")
l=ubound(s):redim p(l):zongfen=0

for i=0 to l
sn = sn & "第" & i+1 & "评委：" & s(i) & vbcrlf
next
for i=0 to l
for j=i to l
if ccur(s(i))>ccur(s(j)) then
tmp=s(i):s(i)=s(j):s(j)=tmp
end if
next
next
for i=1 to l-1
zongfen=zongfen+s(i)
next
msgbox xuanshou & vbcrlf &"-------------------------------------" _
& vbcrlf & sn & "-------------------------------------" _
& vbcrlf &    "去掉一个最高分：【" & s(l) & "分】" _
& vbcrlf &    "去掉一个最低分：〖" & s(0) & "分〗" _
& vbcrlf &    "最后得分：〖" & round(zongfen/(l-1),2) & "分〗",4096,"统计结果"

2、演示