use 表 dime zd(6) zd(1)="语文" zd(2)="数学" …… zd(6)="总分" i=1 do while i<=6 a=60 ii=str(i,1) z=zd(i) count for &z.>=a to b do while b<300 a=a-1 count for &z.>=a to b enddo do while b>300 a=a+1 count for &z.>=a to b enddo do while b<300 a=a-0.1 count for &z.>=a to b enddo zd(i)=a i=i+1 enddo