学生学号（XH）长度是18 字符型 如：305200909034500001  前13位固定不变，后5位递增。
我想用repl 的方法填充。
先做一个表单 ，加一个文本框Text1）,按钮下的代码是：
set talk off   
km8=alltrim(thisform.text1.value)  
gg=val(km8)
repl all xh with alltrim(str((recno()+gg-1),18))
thisform.release

注：km8 和gg 均为全局变量，km8 用来接收text1 所输入的起始号。

问题：当起始号小于等于16位时，正常替换；当起始号大于等于17位时，个位均变成 0 ，不能正常替换。
      请问如何处理，来替换18位的学号（XH）？

非常感谢二位老师的指点，可以正常填写充了。代码如下：
set talk off      
km8=left(thisform.text1.value,13)     
repl all xh with km8 +padl(recno(),5,"0")
thisform.release   

以上代码填充的结果是从1开始填充，如果起始码不是1
使用sywzs老师给的代码：
set talk off      
gg=val(subs(km8,14))   
km8=left(thisform.text1.value,13)     
repl all xh with km8 +padl(recn()-1+gg,5,"0")   
thisform.release   

会弹出“函数参数的值、类型或数目无效。”的提示。
我用的是VF6.0版。