SAS上机练习题（全部，含参考答案）

重庆医科大学--卫生统计学统计软件包

SAS上机练习题（一）

1、SAS常用的窗口有哪三个？请在三个基本窗口之间切换并记住这些命令或功能键。

2、请在PGM窗口中输入如下几行程序，提交系统执行，并查看OUTPUT窗和LOG窗中内容，注意不同颜色的含义；并根据日志窗中的信息修改完善程序。 DATS EX0101; INPUTT NAME $ AGE SEX; CARDS; XIAOMIN 19 1 LIDONG 20 1 NANA 18 2 ; PROD PRONT DATS=EX1; RUN; PROC PRINT DATA=EX1; VAR NAME AGE; RUN; 3、将第2题的程序、结果及日志保存到磁盘。

4、试根据如下例1的程序完成后面的问题： 表1 某班16名学生3门功课成绩表如下 问题：

1） 建立数据集；

2） 打印至少有1门功课不及格同学的信息；(提示，使用if语句)

参考程序：

data a;

input id sh wl bl; cards; 083 68 71 65 084 74 61 68 085 73 75 46 086 79 80 79 087 75 71 68 084 85 85 87 085 78 79 75

086 80 76 79 087 85 80 82 088 77 71 75 089 67 73 71 080 75 81 70 118 70 54 75 083 70 66 84 084 62 73 65 099 82 70 79 ; run;

data b; set a;

if sh<60 or wl<60 or bl<60 then output; run;

proc print data=b; var id sh wl bl; run;

5、根据下列数据建立数据集

表2 销售数据

开始时间 2005/04/28 2005 09 18 2007/08/12 20040508 终止时间 25MAY2009 05OCT2009 22SEP2009 30JUN2009 费用 $123,345,000 $33,234,500 $345,600 $432,334,500 提示：(格式化输入；数据之间以空格分隔，数据对齐；注意格式后面的长度应以前一个位置结束开始计算，如果读入错误，可试着调整格式的宽度；显示日期需要使用输出格式) 开始时间，输入格式yymmdd10. 终止时间，输入格式date10. 费用，输入格式dollar12.

参考程序：

data a;

input x1 yymmdd10. x2 date10. x3 dollar13.; cards;

2005/04/28 25MAY2009 $123,345,000 2005 09 18 05OCT2009 $33,234,500 2007/08/12 22SEP2009 $345,600 20040508 30JUN2009 $432,334,500 ; run;

proc print; run;

proc print;

format x1 yymmdd10. x2 date9. x3 dollar13.; run;

6、手机号码一编码规则一般是：YYY-XXXX-ZZZZ，其YYY为号段；XXXX一般为所在地区编码；ZZZZ为对应的个人识别编号。下面有一组电话号码（来源于网络，末位以X替换），请用程序完成下列要求：

（1）分别列出属于联通、移动、电信的号码； （2）分别提取地区编号及个人识别编号。 （提示：列输入方式或者字符串操作） 说明：

移动：134-139、150、151、152、157、158、159、188 联通：130、131、132、155、156 电信：133、153、180、189

手机号码 1508320464X 1510291126X 1339644156X 1532464828X 1365721647X 1523105754X 1592624347X 1331237668X 1370048578X 手机号码 1313654836X 1351425709X 1303612231X 1383824855X 1522322763X 1357851051X 1508311759X 1327313520X 1556443719X 1507244457X 1321246707X 1368464734X 1394913242X

1804346016X 1513441713X 1308279203X 1897876466X 参考程序： data a;

input y 1-3 x $ 4-7 z $ 8-11;

if 134<=y<=139 or y in (150,151,152,157,158,159,188) then ygrp='移动'; if y in (130,131,132,155,156) then ygrp='联通'; if y in (133,153,180,189) then ygrp='电信'; cards;

1508320464X 1510291126X 1339644156X 。。。。。。 1513441713X 1308279203X 1897876466X ;

proc print; run;

7、下表是某班学生几门功课的成绩，其中形势课是考查课，其它均为考试课。请完成以下处理并且保存程序、结果和日志：（注意函数在DATA STEP中使用的位置） （1）用Mean()函数求出每位同学的平均分，将其保存在变量中；

（2）用sum()函数或者表达式求出每位同学的总分，将其保存在变量中；

（3）如果每门考试课权重是0.75，每门考查课权重为0.25，试求每位同学的加权平均分； （4）将数据集保存为永久数据集，保存位置为“D:\\mydata\\”；

（5）调用上面的永久数据集，并将男、女生的成绩分别保存在数据集Dmale和Dfemale中。

表3 某班同学几门功课的成绩 学号 0083 0414 0564 0774 0873 0874 0875 0876 性别 高数 (0=女，1=男) 1 1 1 1 1 1 1 1 73 90 97 40 68 74 73 79 生理 73 79 87 60 65 68 46 79 人解 64 71 89 61 60 56 65 74 数理统计 74 85 91 65 76 60 66 89 形势(考查) 75 78 80 75 75 75 87 87 0877 0878 0880 0881 0883 0884 0885 0886 0887 0888 0889 0890 0891 0892 0893 0894 0895 0896 0898 0899 0900 0901

1 1 1 1 1 0 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 0 75 76 81 76 77 85 78 80 85 77 67 75 69 66 70 62 91 51 67 79 76 81 68 60 73 81 60 87 75 79 82 75 71 70 76 71 84 65 78 60 73 72 68 70 55 64 60 84 60 84 62 77 81 74 71 75 76 60 75 65 61 42 67 78 63 70 60 71 75 89 66 85 66 73 84 67 69 69 79 60 80 69 66 44 73 68 84 82 70 80 82 78 75 90 80 83 80 80 90 80 90 78 85 81 78 78 85 80 90 79 参考程序：

libname pb \; data pb.score;

input id$ xb gs sl rj sltj xs; mscore=mean(of gs sl rj sltj xs); tscore=sum(of gs sl rj sltj xs);

wmscore= ((gs+sl+rj+sltj)*0.75+xs*0.25)/(0.75*4+0.25); cards;

0083 1 73 73 64 74 75 0414 1 90 79 71 85 78 0564 1 97 87 89 91 80 0774 1 40 60 61 65 75 0873 1 68 65 60 76 75 0874 1 74 68 56 60 75 0875 1 73 46 65 66 87 0876 1 79 79 74 89 87 0877 1 75 68 55 60 70 0878 1 76 60 64 71 80 0880 1 81 73 60 75 82 0881 1 76 81 84 89 78

6、（综合分析）以下是对某年级的问卷调查结果，问题表内容如下： id 机器号 sex 性别：1=male,2=female date 记忆中影响最大的日子是哪一天？ height 身高是多少 weight 体重是多少 money 昨天吃饭花多少钱（元）？ question1 46级改革之后学习英语的积极性：a＝增加，b＝不变，c＝减弱 question2 结核病的早期症状有(可以多选)：a=咳嗽,b=痰中带血,c=盗汗,d=贫血,e=胸痛,f=午后潮热,g=胃肠不适 请进行以下分析：

1） 对46级改革之后学习英语的积极性的情况进行描述，三种选择占的比例分别是多少？ 2） 男性与女性的对46级改革的反应有无差异； 3） 计算身体质量指数（Body Mass Index，BMI?体重(Kg)身高(m2)），比较男女生的BMI有无差

异？

4） 关于BMI与人体的肥胖程度通常可以根据下面的标准来判断，请列出每一类的人数及比例；

偏瘦： BMI指数 < 18 正常体重： BMI指数 = 18 - 25 超重： BMI指数 = 25 - 30 轻度肥胖： BMI指数 > 30 中度肥胖： BMI指数 > 35 重度肥胖： BMI指数 > 40

5） 比较男女生在“昨天吃饭开支”上有无不同；

6） 分析被调查者对“结核病的早期症状”的选择情况，即列出每种选项的频数及比例；（提示：可分别

对每个选项单独进行分析，使用index()函数判断是否选择某个选项，具体用法请查帮助。） 7） 分析身高与体重的相关性；建立身高预测体重的预测模型。

参考程序： proc format;

value sexf 1='男'

2='女';

value qAGf 0='未选择'

1='选择';

value $ques1f 'A','a'='增加'

'B','b'='不变' 'C','c'='减弱';

run;

data a;

input id $ sex height weight money ques1$ ques2$; bmi=weight/((height/100)*(height/100)); ques1=upcase(ques1);

if ques1='A' then q=1; if ques1='B' then q=2; if ques1='C' then q=3;

if bmi<18 then bmigrp=\偏瘦\; else if bmi>=18 and bmi<25 then bmigrp=\正常\; else if bmi>=25 and bmi=<30 then bmigrp=\超重\;

else if bmi>30 and bmi=<35 then bmigrp=\轻度肥胖\; else if bmi>35 and bmi=<40 then bmigrp=\中度肥胖\; else if bmi>40 then bmigrp=\重度肥胖\;

if index(ques2,'A')>0 then qA=1;else qA=0; if index(ques2,'B')>0 then qB=1;else qB=0; if index(ques2,'C')>0 then qC=1;else qC=0; if index(ques2,'D')>0 then qD=1;else qD=0; if index(ques2,'E')>0 then qE=1;else qE=0; if index(ques2,'F')>0 then qF=1;else qF=0; if index(ques2,'G')>0 then qG=1;else qG=0;

format sex sexf. ques1 $ques1f. qA qB qC qD qE qF qG qAGf.; cards;

cnw1l01 1 179 70 5.7 a ABDEF cnw1l02 1 175 70 7.5 a ABE cnw1l03 2 157 47 4.5 a ABE 。。。。。。。。。。。。。。。 cnw8l01 1 160 60 10 B ABE cnw8l02 2 154 50 4.3 A BE cnw8l03 2 160 60 7 A ABDEF ; run;

proc freq data=a; tables ques1; run;

proc freq data=a; tables sex*ques1; run;

proc npar1way wilcoxon data =a; class sex; var q; run;

proc ttest data=a; class sex; var bmi; run;

proc freq data=a; tables bmigrp; run;

proc npar1way wilcoxon data =a; class sex; var money; run;

proc freq data=a;

tables qA qB qC qD qE qF qG; run;

proc corr data=a; var height weight; run;

proc reg data=a;

model weight=height; run; quit;

表6 某年级的问卷调查数据 机器号 id cnw1l01 cnw1l02 cnw1l03 cnw1l04 cnw1l05 cnw1l06 cnw1r01 cnw1r02 cnw1r03 cnw1r05 cnw1r06 cnw2l02 cnw2l03 cnw2l04 cnw2l05 cnw2r02 cnw2r03 cnw2r04 cnw2r05 cnw2r06 cnw3l01 cnw3l02 cnw3l03 cnw3r01 cnw3r02 cnw3r03 cnw3r05 cnw3r06 cnw4l01 cnw4l02 cnw4l03 cnw4l04 cnw4r01 cnw4r02 cnw4r03 cnw4r04 cnw4r05 cnw4r06 cnw5l01 cnw5l02

性别 sex 1 1 2 2 2 2 2 2 1 2 1 2 2 1 2 2 2 2 2 2 2 1 1 1 2 2 2 1 1 1 2 1 1 1 2 2 2 2 2 2

身高 height 179 175 157 163 161 150 158 158 168 150 162 160 164 167 164 151 150 160 160 156 162 163 161 169 162.5 155 163 163 168 178 158 173 175 178 158 165 157 155 160 160

体重 weight 70 70 47 48 52 44 56 56 64 44 53 53 58 60 54 44 51 55 47 48 48 60 50 57 46.5 53 50 65 60 68 45 68 53 69 50 53 46 48 49 49

开支 money 5.7 7.5 4.5 5 5 5.5 4.4 6.2 6.5 5.5 7 8 6 7 5 6 7.8 5 3.9 8.5 8 7.2 7.3 5.3 7 7.5 4.4 8 5 8 6 8.5 5 6 8 4.5 5.3 6.7 4.2 7

英语改革 question1

a a a c b b b b a b b c c c c b b b b c c a b a a b b b c a c b b b b b b c b a

TB症状 question2 ABDEF ABE ABE ABDF ABF ABD ADFG ABDE ABE ABD ABDE ABEF ABE ABCDEF AB B ABDF ABE ABEF ABCDEFG ABDF ABE ADFG ABDF ABCDEF ABCDEF ABED ABCDEF ABDG AC ADEF ABDEF ABDEF A ABDEF ABDE ABE ABD ABDEF ABE

cnw5l03 cnw5r01 cnw5r02 cnw5r02 cnw6l02 cnw6l03 cnw6l04 cnw6l05 cnw6l06 cnw6r01 cnw6r02 cnw6r03 cnw6r04 cnw6r05 cnw6r06 cnw7l02 cnw7l05 cnw7r01 cnw7r02 cnw7r03 cnw7r05 cnw7r06 cnw8l01 cnw8r01 cnw8r02 cnw1r01 cnw1r02 cnw1r04 cnw1r05 cnw1r06 cnw2r02 cnw2r03 cnw2r04 cnw2r05 cnw2r06 cnw3r02 cnw3r03 cnw3r04 cnw3r05 cnw3r06 cnw4r02 cnw4r03 cnw4r04

2 2 1 2 2 1 1 1 1 2 2 2 2 2 2 2 1 2 1 1 1 2 1 1 2 2 1 1 2 2 2 1 1 2 1 1 2 2 2 2 2 2 2

170 160 168 170 160 181 175 174 162 154 166 155 153 160 164 160 174 155 168 181 166 164 160 174 172 154 169 169 153 160 156 173 168 155 170 162 161 154 155 155 153 150 152.5

57 49 65 57 50 63 53 60 52 54 54 43 45 48 46 46 70 55 60 60 60 46 50 70 53 49 64 67 50 50 46 62 57 45 60 56 50 48 46 51 50 48 46

8.5 4.2 9.2 8.5 4 3.5 20 6.5 4.7 10 4.5 5.4 5.4 5 7.4 8 7 8 10 10 7 7.4 9 8 5 4.2 10.4 15 10 3.6 4 7.5 8.9 6 7 6.3 7 5 6 5 3.5 5 5.2

c b a c b b a b b a c c c a b b b c c c c b c a c C B A B A A B B B C C B C B A C A A

AB ABDE ABDEF AD ABE ADEF AB AD ABE ABDF ABDF ABEF EG AB ABEF A ADF AB ABEF ABE ABDE ABEF ADF ADEG ABE ABDEF ABDE ABDEFG ABCD ABE ADG ABFG ABDF ABD ABD ABD ABE ABE ABDF ABDEG BE ABDE ADE

cnw4r05 cnw4r06 cnw5r01 cnw5r02 cnw5r03 cnw5r04 cnw5r05 cnw5r06 cnw6r01 cnw6r02 cnw6r03 cnw6r04 cnw6r05 cnw7r01 cnw7r02 cnw7r03 cnw7r05 cnw8r02 cnw8r03 cnw8r04 cnw1l01 cnw1l02 cnw1l03 cnw1l04 cnw1l05 cnw2l02 cnw2l03 cnw2l04 cnw2l05 cnw3l01 cnw3l02 cnw4l01 cnw4l02 cnw4l04 cnw4l05 cnw5l01 cnw5l02 cnw5l04 cnw6l01 cnw6l02 cnw6l03 cnw6l04 cnw6l05

1 1 1 1 2 2 1 1 2 1 2 1 1 1 1 1 2 1 2 2 1 2 2 2 2 2 2 2 2 2 1 2 1 1 2 2 1 1 1 2 2 1 2

185 170 173 168 160 155 168 173 158 175 155 162 173 175 172 172 151 167 160 170 165 152 162 157 150 170 155 163 150 153 165 160 170 165 155 160 179 170 170 160 155 170 165

70 58 62 50 50 42 55 61 50 61 44 60 64 86 62 65 48 50 50 65 47 44 49.5 52 45 55 47 48 47.5 46 54 52 65 51 42 45 63 67 58 54 48 65 47

7.5 6.5 6 6.1 7 6 7 8 8.1 10.5 11 10 15 11 12 6.3 7 9 5 10 7.3 4.2 4.5 3.2 3.8 4.9 5.9 5.8 8 4 35 12.4 5 5 8 7 10 9 9.6 5.5 4.4 10 7

A B B A C B B B C B C C C C B B B B B B B B B B A B B A A B A A A B B C C C B C A C C

ABDG AD ABDE ABDE ABCEF ABDF ADF ABD ADF ABDE ABDE ADF ADF ABE ABEG ABEG ABDEFG ABDEF ABDEFG ABDEFG AB AB ABE ABE ABE ADF ABDF ADFG ABE ABDFG ADF ABDF D AF ABCDE ABDF ABDF ADF ABCDEF ABCDEF ABCDEF ABCDEF ABDF

cnw7l01 cnw7l02 cnw7l03 cnw7l04 cnw7l05 cnw8l01 cnw8l02 cnw8l03

2 1 1 2 2 1 2 2

150 160 175 163 165 160 154 160

48 50 66 51 57 60 50 60

5.8 7 10 8 4.9 10 4.3 7

C A A B A B A A

ABE ABCDEF ABCDEF ABD ABD ABE BE ABDEF

（彭斌 2010-5-29 整理）

本文来源：https://www.bwwdw.com/article/mwtx.html