变通一下就OK了，根据你的规律自动循环轮回的。

Local nrow,cnum2,ngroup
Use "fb分班632人.Dbf" In 0 ALIAS "ctable"
Select ctable
ngroup=Int(Reccount()/18)+1
nrow=9
Go Top
Store "" To cnum1,cnum2
For a=1 To ngroup
    For b=a To nrow
        If !Eof()
            Replace bb With Iif(Mod(b,9)=0,9,Mod(b,9))
            cnum2=Alltrim(Str(Iif(Mod(b,9)=0,9,Mod(b,9))))+cnum2
        Else
            Exit
        Endif
        Skip 1
    Endfor
    For i=1 To 9
        If !Eof()
            Replace bb With Val(Substr(cnum2,i,1))
        Else
            Exit
        Endif
        Skip 1
    Endfor
    Store "" To cnum1,cnum2
    nrow=nrow+1
    If Eof()
        Exit
    Endif
Endfor

楼主前面贴的数据是一行（共162个），不是9行。这里应将你代码中的9，换为162，这样程序就简单了。

*--VFP6代码

CLOSE DATABASE
CSTR=[省略] &&原来的数据1-9
=ALINES(A,CHRTRAN(CSTR,[,],CHR(13)+CHR(10)))
Use fb分班632人.Dbf
SCAN
   N=IIF(RECNO()%162=0,162,RECNO()%162)  
   REPLACE RECORD RECNO() BB WITH INT(VAL(A(N)))
ENDSCAN

谢谢各位的热情帮助！非常感激！我是高中化学教师，业余自学vfp6.0数据库知识，仅仅只能够解决一些常规的教务管理工作。遇到成绩统计及教师评价等问题仍然感到困难重重。诚恳继续得到各位的帮助！谢谢！

高中化学教师搞这 难能可贵

化学与编程联系大着啦！有机化学到了生物化学一步，会涉及到DNA分子链 -----遗传基因的，这是比任何一种语言复杂万倍的语言程序---遗传密码结构。（什么语言写的?作者是谁？现在问谁谁能知道呀?）全部的有机生物，都按照这个深不可测的极端复杂的程序，复制出有生物活性的物质，伟大的程序！他是一段一段的，非常有秩序，4个碱基构成的双链程序。按照一种现在解释不了的信息力的指挥，构成了一个生命制造厂。制造出我们每一人身上所要的生命物质-----，这些物质起初都是不活的死物质，但是，运行这段程序后，全部变活啦。氨基酸—>肽链-->蛋白质--》活细胞-->组织—>器官——>你我他-->能说能笑能干事 ....,,,我们自己每时每刻都在执行着程序， 我们有了一切该有的东西了啦 ...（笑语一段）

说到这个，我想说两句，本人医学检验专业的，就是搞这个生物化学分析的。生物化学跟DNA不沾边，生物化学里面包含的两个部分，理论研究和检验技术，主要指的是人机体代谢过程产物的分析，如CHO,TG,GLU（胆固醇，甘油三酯，血糖）等。DNA，是分子生物诊断学科的，主要是讲PCR技术（基因扩增），用一个小的DNA样本片断来放大模拟碱基对的配对复制，其准确率也没有众说纷云的那么玄。你跟你后代的基因吻合率有时候就只有60-80%之间，这个玩艺儿，在痕迹学上，有时候只能算一个心理战术。跟遗传学科是近亲。

赋给一个字段吗