用基本 For循环或Do Loop语句写一个算法，要求输入50个数，按从大到小排列

dim i,j, as integer
dim a(50),min as single
for i=0 to 49
a(i)=inputbox("请输入第"&i&"个数：")
print a(i);
next '上面是输入50个数

for i=0 to 49
for j=i+1 to 49
if a(j)<a(i) then

min=a(j)
a(j)=a(i)
a(i)=min
end if
next j
next i '排序由小到大
for i=0 to 49
print a(i);
next ’按排序后输出