vbs实现的简易评分程序

一、源码

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,"统计结果"

二、演示