数学科目的count如下，其他依次类推：
data exam;                                                                                                                              
input num math $ eng $ chin $ b;                                                                                                        
cards;                                                                                                                                 
101301 pass pass pass 3                                                                                                                 
101302 fail fail fail 3                                                                                                                 
101303 pass fail great 3                                                                                                               
101304 great pass pass 3                                                                                                               
101305 great fail pass 3                                                                                                               
101306 great fail pass 3                                                                                                               
;                                                                                                                                       
run;                                                                                                                                    
proc print data=exam;run;                                                                                                               
proc sort data=exam out=new;                                                                                                            
by math;                                                                                                                                
run;                                                                                                                                    
proc print data=new;run;                                                                                                               
                                                                                                                                       
data count;                                                                                                                             
set new;                                                                                                                                
by math;                                                                                                                                
if first.math then count=0;                                                                                                            
count+1;                                                                                                                                
if last.math;                                                                                                                           
run;                                                                                                                                    
proc print data=count (keep=math count);                                                                                                
run;                     

谢谢您~~~嗯，好像有点明白了，思路就是对数学成绩排序，然后再计数，对吧。
可是，为什么出来的结果还是不对呢。我跑出来计数的结果是这样的。
obs math count
1     .       6
麻烦您了，谢谢~~~

data exam;                                                                                                                              
input num math$ eng$ chin $ b;                                                                                                        
cards;                                                                                                                                 
101301 pass pass pass 3                                                                                                                 
101302 fail fail fail 3                                                                                                                 
101303 pass fail great 3                                                                                                               
101304 great pass pass 3                                                                                                               
101305 great fail pass 3                                                                                                               
101306 great fail pass 3                                                                                                               
;                                                                                                                                       
run;                                                                                                                                    
proc print data=exam;run;   
proc freq data=exam;run;
不知道你是要求这个不，run一下code看看

你输入数据有问题吧？
我得到如下结果：
-------------------------------------------------------
The SAS System          12:10 Sunday, April 3, 2011   7

                                     Obs    math     count

                                      1     fail       1
                                      2     great      3
                                      3     pass       2

对上面板凳的方法简单些。
proc freq data=exam;                                                                                                                    
table math eng chin;                                                                                                                    
run;