09/03/07 17:54:11 55GGct9p
ソースねぇ…、とりあえずこれぐらいなら理解できる？
randomize
max = 100
dim xx,max
repeat max
xx(cnt) = rnd(1000)
loop
gosub *mesAll
repeat max-1
cc = cnt
repeat max-cc-1
c2 = cnt
if xx(c2) > xx(c2+1){
keep = xx(c2+1)
xx(c2+1) = xx(c2)
xx(c2) = keep
}
loop
loop
gosub * mesAll
stop