Question

1、产生十个1～100之间的随机数存放到数组，并显示数组内容 2、数组内的元素按升序排列，排序结

1、产生十个1～100之间的随机数存放到数组，并显示数组内容
2、数组内的元素按升序排列，排序结果进行输出
VB怎么编程

Answer 1

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