请教online tutor 上的不放回抽样的一段代码

shiyiming

下面这段老是不太理解。似乎是顺着一个一个往下找，但为什么用samplesize/obsleft比较，请教请教，跪谢！

  data work.rsubset(drop=obsleft sampsize);
        sampsize=10;
        obsleft=totobs;
        do while(sampsize>0);
           pickit+1;
           if ranuni(0)<sampsize/obsleft then do;
              set sasuser.revenue point=pickit
                  nobs=totobs;
              output;
              sampsize=sampsize-1;
           end;
           obsleft=obsleft-1;
        end;
        stop;
     run;