具体问题在这个帖子中一个回复的第五个问题
https://bbs.pinggu.org/forum.php?mod=viewthread&tid=4825926&pid=39046219&page=1&extra=#pid39046219

你好，请问复制代码运行的情况怎么是这样？

解决了最后我的题目和代码是这样，谢谢啦！

4、请将程序改写成宏，要求如下
  产生数据集，包含m个变量
  每个变量有n个随机数
  所有变量都服从以下规律
  第i个变量的第j个随机数服从均数为（i除以3的余数），方差为j/2的正态分布
  并可以定义数据集的名称。

5、在以上基础上，新增功能，指定不同的分布类型

%macro ran(type = ,nvar = ,n =,name = ,c1 = ,c2 = );
        data &name.;
                array x{&nvar.} x1 - x&nvar.;
                %if &c2. = . %then %do;
                        do j = 1 to &n.;
                                do i = 1 to &nvar.;
                                        x{i} = Rand("&type",&c1.);
                                end;
                                output;
                        end;
                %end;
                %else %do;
                        do j = 1 to &n.;
                                do i = 1 to &nvar.;
                                        x{i} = Rand("&type",&c1.,&c2.);
                                end;
                                output;
                        end;
                %end;
        run;
%mend;
%ran(type = poisson ,nvar = 10,n = 19,name = temp2,c1 = 5,c2 = .);