close data
public s1,s2,s3,c1,c2,c3,c4,c5,c6,t1,t2,t3,t4,t5,bj
open data cl
use cj
set filter to 班别=bj
count to s1
calculate sum (成绩) to s2
calculate avg(成绩)to s3
count for 成绩>=90 AND 成绩<=100 to c1
count for 成绩>=80 AND 成绩<90 to c1
count for 成绩>=70 AND 成绩<80 to c1
count for 成绩>=60 AND 成绩<70 to c1
count for 成绩>=0 AND 成绩<60 to c1
count for 成绩>=0 AND 成绩<=30 to c1
calculate c1/s1 to t1
calculate c2/s1 to t2
calculate c3/s1 to t3
calculate c4/s1 to t4
calculate c5/s1 to t5
set filter to
use

对不起,由于忽略,有些代码都写错了.我的问题主要是怎样计算各数段的百分率?

close data
public s1,s2,s3,c1,c2,c3,c4,c5,c6,t1,t2,t3,t4,t5,bj
open data cl
use cj
set filter to 班别=bj
count to s1
calculate sum (成绩) to s2
calculate avg(成绩)to s3
count for 成绩>=90 AND 成绩<=100 to c1
count for 成绩>=80 AND 成绩<90 to c2
count for 成绩>=70 AND 成绩<80 to c3
count for 成绩>=60 AND 成绩<70 to c4
count for 成绩>=0 AND 成绩<60 to c5
count for 成绩>=0 AND 成绩<=30 to c6
calculate c1/s1 to t1  
calculate c2/s1 to t2
calculate c3/s1 to t3
calculate c4/s1 to t4
calculate c5/s1 to t5
set filter to
use

首先多谢高手指点.我这段代码是用来统计各个班级的分数段及各分数段百分率,bj=thisform.text1.value,但错误在:
calculate c1/s1 to t1  
calculate c2/s1 to t2
calculate c3/s1 to t3
calculate c4/s1 to t4
calculate c5/s1 to t5
说是有短语和关键字不识别

首先感谢hugjj,你的方法很不错.但我用do js  with s1,c1,t1和
*js.prg
parameters a,b,c
c=b/a
return
也成功,我今天的收获真不少.