VB排序程序

Question

输入几个数字自动排序，从大到小，怎么弄？最好每一步都有说明。老师说从最后一个开始和前面的数比较，然后交换位置。

Answer 1

dim a(10)
for i=0 to 10
a(i)=val(inputbox("输入一个数："))
next
'排序
for i=0 to 9
for j=i+1 to 10
if a(i)<a(j) then
'交换
t=a(i)
a(i)=a(j)
a(j)=t
endif
next j
next i
'输出
for i=0 to 10
print a(i),
next
print

Answer 2

用伟大的 冒泡排序原理就可以