VB問題，用隨機方式生成四個四位正整數，然後比較大小，按從大到小的次序在窗體上顯示出來。

dim a(3) as integer,i,j

for i=0 to 3

a(i)=int(rnd * 9000)+1000

print a(i);

next

print

for i=0 to 3

for j=0 to i

if a(i)>a(j) then t=a(i):a(i)=a(j):a(j)=t

next

next

for i=0 to 3

print a(i);

next

end sub