假设stratum为分层因素，分4层。

proc plan seed=20151223;
      factors stratum=4 block=30 rand_code=4/noprint;
      output out=a;
run;
data b;
   set a;
   id=_n_;
   if rand_code in(1 2 4) then do;ARM=0;TRT="试验组";end;
   else do;ARM=1;TRT="对照组";end;
run;

3点提醒
1、试验组：对照组=3 : 1
2、没有涉及到分层
3、'试验组'而非'实验组'

proc plan seed=20151223;
      factors block=120 rand_code=4/noprint;
      output out=a;
run;
data b;
   set a;
   id=_n_;
   if rand_code in(1 2 4) then do;ARM=0;TRT="试验组";end;
   else do;ARM=1;TRT="对照组";end;
run;

额 不显示结果。。。
那要是分层区组随机的怎么编写呢？谢谢

额 不显示结果。。。
那要是分层区组随机的怎么编写呢？谢谢

分数给你了。采纳了。谢谢了
分四层？那就是每层三十人，那就不行了，实验有五个中心，每个中心的人数是不一样的。估计只能按照你给我的第一种来了。这样真的不算事分层了