用计算机模拟：有大小形状完全相同的N个编号(0,1,2,***,N)的球，无放回的进行摸球试验，每次摸出一球，依次摸出m个球，并输出每次摸出球的号码。
   我试着编了如下程序，但输出的结果不对，不知错在哪，请帮忙看一下为感！
cls
input "n,m=";n,m
dim a(n),b(n),c(n)
i=1:c(0)=-1
do
  a(i)=int((n-i+1)*rnd)
     l=i
  while l>0
      b(i)=a(i)+l-1
     if b(i)>c(l-1) then
         if l=i then
           c(l)=b(i)
        else
          for k= 1 to l+1
           c(k)= c(k-1)
          next k
         c(l)=b(i)
        end if
    else
         l=l-1
    end if
wend
    i=i+1
loop until i >n
for i=1 to n
   print b(i)
next i
end