我是从30个数据里，把它随机成500个，跟高手的不太一样。

是我看错啦~有放回抽样的话，webgu的set  point是个很好的选择

data name;
   input name & $20.;
   cards;
San Zhang
Si Li
Mazi Wang
Haha Zhao
One Qian
Two Sun
Three Li
Four Zhou
Five Wu
Six Zheng
;

*** Select record randomly;
data test;
    if 0 then set name nobs=nobs;
        keep obs;
        do i=1 to 500;
           obs=ceil(ranuni(0)*nobs);
           output;
        end;
        stop;
run;

*** Get how many times a record was selected;
proc sql;
    create table test1 as
         select distinct obs,count(*) as number
            from test
                group by obs;
quit;

*** Merge and output;
data wanted;
    merge name test1;
        drop obs number;
        do _n_=1 to number;
           output;
        end;
run;

data name;
    input name & $20.;
    cards;
San Zhang
Si Li
Mazi Wang
Haha Zhao
One Qian
Two Sun
Three Li
Four Zhou
Five Wu
Six Zheng
;
run;

data name2;
  set name;
  random=ranuni(0);
run;

proc sort data=name2;
  by random;
run;

data name3;
  set name2(obs=5);
  drop random;
run;

学习

用proc surveyselect随计输出不同的名字，再组合为500个。