VB:用键盘输入10个数,将其中大于平均值的数输出

dim ar(1 to 10) as integer
dim s as integer, i as integer
for i = 1 to 10
    ar(i) = inputbox("")
    s = s + ar(i)
next i
s = s \ 10
for i = 1 to 10
    if ar(i) > s then print ar(i),
next i