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

全都count to c1了，那你前面的那些还有什么用? 只能认最后一个c1了!

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

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

第5句的变量bj只在第2句定义，但还没有赋值呢？

首先多谢高手指点.我这段代码是用来统计各个班级的分数段及各分数段百分率,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
说是有短语和关键字不识别

CALCULATE 命令是对表中的字段或包含字段的表达式进行财务和统计操作的命令。可楼主却用于对变量进行计算。请楼主直接替换为t1=c1/s1试试。

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

使用过程可以减少程序文件的长度，但存在调用和返回的操作，会影响程序执行的速度。如果过程的代码很少的话，建议还是不要采用过程，直接将代码写在需要的位置。