！！！！！！！！！！！！！！！！！！！

没有在sas上试运行，如果有错误可以改改。
思路是：把原始数据重复20次，重复的次序可用为抽样的分层。所以经过放回性的分层抽样（层数20），即相当于对原始数据抽样20次。在抽样输出中，不包含某某观测，等于每一层中包含其他的观测的数目为10.比如如果数据不包括观测1，即为包括2，3， ---， 10 的观测数为总观测数（此为10）。两个宏只是方便书写，没有重复运算的功能。最后的数据是result1.。。result10， 其中result1为不包括原观测1的数据。。。其中，s为抽样顺序（层）， _n为原观测的顺序标记，x即为原观测。

data crackman;
do i=1 to 10;
x=ranuni(10);
output;
end;
format x f8.2;
run;
%macro crackman1;
%do n=1 %to 10;
proc sql noprint;
select _name_ into:name separated by " "  from tb where col&n.=.;
quit;
data B&n.;
set &name.;
run;
%end;
%mend crackman1;
%macro crackman(seed);
%do k=1 %to 20;
proc surveyselect data=crackman  method=urs n=10 seed=%eval(&seed.*&k.) out=A&k. noprint;
run;
proc sort data=A&k. out=A&k.;
by i;
run;
data B&k.;
merge crackman(drop=x) A&k.(rename=(x=A&k.) drop=NumberHits);
by i;
run;
%end;
data B;
merge b1-b20;
by i;
run;
proc transpose data=B(drop=i) out=TB;
var _all_;
run;
%crackman1;
%mend crackman;
%crackman(55);
/*对程序有异议的欢迎交流*/

答案在B1-B20里面

应该是10个数据集啊