寻求答案：用VB程序编写代码 题目——20个评委给一个运动员打分，去掉最高分和最低分，求平均分

dim S(1 to 20) as double
dim sum as double
dim max as double
dim min as double
for i=1 to 20
s(i)=inputbox("输入评委分数！")
next i
sum=0
max=s(1)
min=s(1)
for i=1 to 20
sum=sum+s(i)
if s(i)>max then max=s(i)
if s(i)<min then min=s(i)
next i

sum=(sum-max-min)/18
print sum

Dim S() As String, str1 As String
Dim sum As Double, max As Double, min As Double, i As Integer
str1 = InputBox("输入评委分数！用分号隔开，比如1.2;2.1")
S = Split(str1, ";")
While UBound(S) <> 19
MsgBox "分数个数是" & Str(UBound(S) + 1) & "，请补充"
str1 = InputBox("输入评委分数！", "输入分数", str1)
S = Split(str1, ";")
Wend
sum = 0
max = Val(S(0))
min = Val(S(0))
For i = 1 To 19
sum = sum + Val(S(i))
If Val(S(i)) > max Then max = Val(S(i))
If Val(S(i)) < min Then min = Val(S(i))