查人人中国名人网sg 6000 nav20 升级:问个VB的问题!!请高手帮忙!
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/13 14:52:26
任意从键盘输入10个整数,将它们按升序排出.
采用“比较交换法”
dim a(1 to 10) as integer
dim i as integer ,j as integer, temp as integer
for i=1 to 10
a(i)=val(inputbox("enter a number"))
next i
for i=1 to 9
for j=i+1 to 10
if a(i)<a(j) then
temp=a(i):a(i)=a(j):a(j)=temp
end if
next j
next i
for i= 1 to 10
debug.print a(i);"";
next i