求助

shiyiming

假设请教各位高手，急急急！！！

shiyiming

data a;
do std_no=10 to 99;
      unif=uniform(std_no);
          output;
end;
run;
proc sort data=a;
  by unif;
run;
data a;
set a;
  row=int(_n_/9)+1;
  col=mod(_n_,9);
  if col=0 then do ; col=9; row=row-1;end;
  drop unif;
run;
proc transpose data=a out=b(drop=_name_);
  by row;
  var std_no;
  id col;
run;