我也搞不懂你第六条到底想干啥

crackman版主，你真是热心与强大！！非常感谢！！

%macro crackman(mean,variate,n,seed);
/*产生正态分布的随机总体，均值为MEAN，方差为VARIATE，个体数为N*/
title;
data crackman;
do i=1 to &n.;
x=&mean.+(&variate.)*rannor(&seed.);
output;
end;
run;
/*对总体进行正态分布检验*/
proc univariate data=crackman normal plot;
var x;
run;
%mend crackman;
%macro select(samplesize,freq);
/*随机抽样*/
%do i=1 %to &freq.;
proc surveyselect data=crackman out=crackman&i. method=srs n=&samplesize. seed=&i. noprint;
run;
proc means data=crackman&i. uclm lclm noprint;
var x;
output out=result&i. uclm=uclm lclm=lclm;
run;
%end;
data result;
set result1-result&freq.;
if lclm<68 and 68<uclm then n=1;
else n=0;
run;
proc sql;
select sum(n) as n from result;
quit;
%mend select;
%crackman(68,8.9,10000,2);
%select(9900,100);
你调一下crackman里面的SEED值，以及SELECT里面的样本量
样本量越大，那么N越大，说明不在置信区间的概率越低
你可以去测试一下

进来学习下，我觉得很多东西都还给老师了......

我要说一下，版主在9楼的答案才真正出现我要求的结果！

也再学习一下，谢谢！