ort on zf /d to tempnans for xb='' &&ú±
&&sort on zf /d to tempnvs for xb='' &&ú±
use
&&·ú
sele 1
use tempnans &&ú±
count to rs
n=1  &&
m=1  &&°à±
goto 1
do while not eof()
&&do while n<rs
    && ò
    m=1
    do while m<=6
        goto n
        repl bj with m
        m=m+1
        n=n+1
    enddo
    &&ò
    m=6
    do while m>=1
        goto n
        repl bj with m
        m=m-1
        n=n+1
        enddo
enddo
use

新手，没看明白，另外请教，我这是测试男生，想123456 654321 排列，女生想反过来，654321 123456 排列，如何实现

这样测试不提示错误了，但是我是想男生123456 654321 排列，你这样排的结果都是 123456 123456 ，请教如何实现？
女生反过来654321 123456 排列，还没测试女生被拦住了，同时请教如何实现？

刚才没说明白，设想按性别和成绩均衡分班，假如分6个班，男生按成绩总分（zf）从高到低排列，班级依次为1 2 3 4 5 6， 6 5 4 3 2 1 ，123456，654321 循环，女生则为654321 123456 654321 123456 循环，同理4 个班 8个班 10个班都是如此。我测试小段程序一是提示超出记录范围，不知语句哪个地方错了，二是没想通女生的语句该如何。谢谢。

测试你这段代码，没有写入分班呀

男生分班在数据库中想这样如何根据成绩降序排列后写入班级
成绩名次    班级
1            1
2            2
3            3
4            4
5            5
6            6
7            6
8            5
9            4
10           3
11           2
12           1
13           1

男生分班，在数据库中想这样，如何根据成绩降序排列后写入班级
成绩名次    班级
1            1
2            2
3            3
4            4
5            5
6            6
7            6
8            5
9            4
10           3
11           2
12           1
13           1

谢谢，因为电脑安装的是vf 6 所以测试没成功，等我安装vf 9 试试，另外因为是新手，我还是想明白我写的那段，错误出在哪？应该如何改进语句的合理性，如果搞不明白，以后还是没法继续学习。

你好，我安装vf9 为什么测试你7楼的只有男的没有女的，另外你写的语句我没大看懂，烦请你注释一下帮我学习新知识，另外烦请你帮我修改我写的那段的错误，谢谢。

谢谢，学了，你这一改，一目了然，我原来想用skip，但试了好几次没成功，一个m变量和skip，足矣。
另外又学一大神（我以为）方法也是没怎么看懂，我测试男生问题，他用一句就解决了，烦请看看，帮我解释一下：
他现在数据库里zmc列写入学生成绩名次，然后用这句
replace all bj with iif(mod(zmc-1,12)<6,mod(zmc-1,6)+1,6-mod(zmc-1,6))
若是分7个班则用
replace all bj with iif(mod(zmc-1,14)<7,mod(zmc-1,7)+1,7-mod(zmc-1,7))