输入100个数(整型和浮点型),将其中的整数进行排序并按每行5个数的格式打印出来
帮忙看 下 谢谢
输入100个数(整型和浮点型),将其中的整数进行排序并按每行5个数的格式打印出来
帮忙看 下 谢谢
dim a(1 to 100) as integer
for(i=1 to 100)
a(i)=inputbox("请输入")
next
for i=1 to 99
for j=i+1 to 100
if a(i)<a(j) then
t=a(i):a(i)=a(j):a(j)=t
end if
next
for i=1 to 100
print a(i)+" "
if i mod 5=0 then print
next