vb编程用inputbox输入10个数按递增排序。我明天就要考试了，跪求答案啊！

---

dim a(10) as integer
dim temp as integer
for i=0 to 9
a(i)=inputbox("请输入第" & i & "好桥个数"帆并)
next
for i=0 to 8
for j=i+1 to 9
if a(i)<态袜迹a(j) then
temp=a(i)
a(i)=a(j)
a(j)=temp
end if
next
next
for i=0 to 9
print a(i) & vbtab ;
next

---