回答らしきものを組んだので、一応ｻﾏﾘｰしておきます。
　　　　　　　dim drawcard, 30
randomize
repeat 30
drawcard.cnt = cnt
loop
repeat 100
rnd a, 30 : rnd b, 30
c = drawcard.a
drawcard.a = drawcard.b
drawcard.b = c
loop
repeat 30
mes drawcard.cnt
loop
stop