初学sas，有偿求教sas编程问题（2）

见附件，共4个小问题，求sas达人帮助，分别给出答案

/*第一题*/
libname stat "d:/user";
data stat.newscore;
input no sex $ math phy eng;
cards;
9901 F 98 93 91
9902 M 86 82 85
9903 M 87 94 65
9904 F 89 90 78
9905 F 96 98 82
9906 M 92 87 89
;;;
run;
/*第二题*/
proc means data=stat.newscore;
var math eng;
output out=stat.result;
run;
/*第三题*/
data stat.result1;
set stat.newscore;
sum=sum(eng,math,phy);
run;
proc sort data=stat.result1;
by sum;
run;
/*第四题*/
data stat.A stat.B;
set stat.newscore;
if sex="M" then output stat.A;
if sex="F" then output stat.B;
run;

嗨，来晚了，最佳答案给别人了。

                        /********************/
                        /*    第一大部分    */
                        /*******************/
/*第一题*/
libname test "d:\user";
dm 'moveitem work.score.data test.newscore.data';
/*第二题*/
proc means data=score nway noprint;
        var math eng;
        output out=result(drop=_type_ _freq_);
run;
/*第三题*/
data result1;
        set score;
        sum=sum(math,phy,eng);
run;
proc sort data=result1;
        by sum;
run;
/*第四题*/
data  a b;
        set score;
        select;
                when(sex='M') output a;
                when(sex='F') output b;
                otherwise;
        end;
run;
proc print data=a;
run;
proc print data=b;
run;


                        /********************/
                        /*    第二大部分    */
                        /*******************/
data  a;
        input b $2. num;
cards;
B1 3.5
B1 2.6
B1 2.0
B1 1.4
B2 2.3
B2 2.0
B2 1.5
B2 0.8
B3 2.0
B3 1.9
B3 1.2
B3 0.3
;
run;

proc anova data=a;
        class b;
        model num=b;
        means b / tukey;
run;
quit;

learsaas 发表于 2015-5-21 09:31
嗨，来晚了，最佳答案给别人了。

                        /********************/

多谢解答，我还发了两个悬赏求教贴，您已经回答了其中一个，请把答案回复到https://bbs.pinggu.org/thread-3719562-1-1.html这个帖子下，我设置最佳答案。
另有一个问题帖子悬赏更高，50币：https://bbs.pinggu.org/thread-3719572-1-1.html
有空请您帮助做一下，