Question

VB怎么写随机生成10个[1,100]之间的数,并从大到小排列的程序?

Answer 1

private sub command1_click()

dim a(1 to 10) as integer,i,j

for i=1 to 10

a(i)=int(rnd*100)+1

print a(i);

next

print

for i=1 to 10

for j=1 to i

if a(i)