如何实现特殊格式的序号显示

Question

比如会计里面票据的帐号是00758757-00758807连续的号，这里一共有50个序号，要求只输入第一个号码就生成这一个序列的序号。可前面还要两个0
format可以吗？

Answer 1

dim tmpStr as string     '取得的序号存入此变量
dim sortNumber as long
sortNumber=758757
for i=0 to 50
    tmpStr=format(sortNumber+i,"0#######")
    '分别取得序号
next'00758757-00758807一共是51个号

Answer 2

哎，为什么要编注册内容呀
向我多好，编的软件都是免费的
VB代码计算器 3.7.4 欢迎下载试用下载地址：
华军软件 http://www.onlinedown.net/soft/7545.htm