浙江千年银杏树:请帮我用vb语言编写一道题目

Dim Number(1 To 9) As Double '存放9个分数
Dim Ave As Double '存放平均分数
Dim MaxNum, MinNum As Double '最大分数和最小分数
Dim i As Integer '循环变量

MaxNum = Number(1)
MinNum = Number(1)
Ave = Number(1)
For i = 2 To 9
'昌泡法求最大值
If Number(i) > MaxNum Then
MaxNum = Number(i)
End If
'昌泡法求最小值
If Number(i) < MinNum Then
MinNum = Number(i)
End If
'总分数
Ave = Ave + Number(i)
Next i
'总分-最大分-最小分 除 7 得平均分
Ave = (Ave - MaxNum - MinNum) / 7
msgbox "最后得分：" & cstr(ave)

private sub form_load()
dim scr(8)
dim sum as integer
dim ave as single
dim f
for i= 1 to 9
scr(i-1)=inputbox("请输入第"& i &"名评委的分数")
next i
for i= 0 to 8
for j=1 to 8
if scr(i)<scr(j) then
f=scr(i)
scr(i)=scr(j)
scr(j)=f
end if
next j
next i
sum=0
for i=1 to 7
sum=scr(i)+sum
next i
ave=sum/7
msgbox("平均分为"& ave )
end sub

大小比较的程序啊
自己做吧,哥们