额 不要钱了友情赠送了

data a;
do x=1 to 100;
output;
end;
run;
proc sql;                                                                     
    create view temp as                                                
       select *, RANUNI(0) as _ran_ from a                              
    order by calculated _ran_;                                                
quit;                                                                        
data aa1;                                                            
    set temp(obs = 100);                                                  
    drop _ran_;                                                               
run;
data _null_;
set aa1 end=a;
if a=1 then call symput('total',ceil(_n_/20));
run;
%macro test;
%do i=0 %to %eval(&total);
data out&i;
set aa1 ;
if  (_n_>20*&i and _n_<=20*(&i+1)) then output out&i;
%end;
proc sql;drop table out%eval(&total),a,aa1;quit;
%mend;
%test;

Splus or R:sample(100,20)
最简单

人家要的是SAS哦

是啊,高手帮忙啊

是一个数据集,是从1-100中随机选20个就行了,无放回,