第1个回答 2016-05-11
form_click()
dim a(1 to 10) as integer
dim i as integer,j as integer,t as integer
for i=1 to 10
a(i)=int(rnd*100)+1
print a(i);
next
print
for i=1 to 10
for j=i to 10
if a(i)>a(j) then
t=a(i)
a(i)=a(j)
a(j)=t
endif
next
next
for i=1 to 10
print a(i);
next
end sub本回答被提问者和网友采纳