标题: 求助 [打印本页] 作者: shiyiming 时间: 2009-6-13 01:36 标题: 求助 假设请教各位高手，急急急！！！作者: shiyiming 时间: 2009-6-14 12:42 标题: Re: 求助：产生随机数字 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;