VB如何产生7个字节的有序随机数？

[slw8449]

比如要产生的随机数依次是0000001，0000002。。。等!请VB高手们帮帮忙啊!

[兔子-顾问]

这样还随机？没看出随机啊。顺序的啊

for i = 1 to 7
    'format(i,"0000000")就是你要的？
next

[slw8449]

我现在实现的是发卡程序，每张卡有个流水号，但是在写第二张卡流水号的时候，第一张卡的流水号就不知道了，怎么实现连续呢？

[slw8449]

就像银行取钱之前的取号等待一样，每个人拿到的号不一样，但是连续的。。这个用VB怎么实现呢？

[贝隆]

这还不简单？定义一个数据库，其中包含所有你要发行的卡片的记录。每一条记录包含两个关键字：卡号、是否发行。每次发行卡时就随机筛选一个卡号，再判断是否发行过，如果发行过，那么就再次筛选，直到选中未发行的为止，发行了该卡后再把该卡标记为已发行即可。

[兔子-顾问]

对。数据库
select Max(ID) from CardTable
得到结果+1就是肯定不重复的卡号

[slw8449]

这个号是写在卡里面的，没有数据库。。

[兔子-顾问]

多么荒谬的逻辑。你指望卡本身能知道别人是否用了和你重复的卡号？你卡号不统一管理怎么能避免重复呢？

[lxq19851204]

[Quote=引用 7 楼 wuyazhe 的回复:]
多么荒谬的逻辑。你指望卡本身能知道别人是否用了和你重复的卡号？你卡号不统一管理怎么能避免重复呢？
[/Quote]
银行排号不也是从1-。。。的嘛

你的刷卡每发行一张就自动+1就可以了

[兔子-顾问]

不要说你认为银行没有用数据库记录卡号哦。卡号的唯一定然是有记录可循，否则无法保证唯一。

[slw8449]

[Quote=引用 8 楼 lxq19851204 的回复:]

引用 7 楼 wuyazhe 的回复:
多么荒谬的逻辑。你指望卡本身能知道别人是否用了和你重复的卡号？你卡号不统一管理怎么能避免重复呢？

银行排号不也是从1-。。。的嘛

你的刷卡每发行一张就自动+1就可以了
[/Quote]
那我程序一直运行是可以的，但是要是中间停了一段时间，不又恢复到原先的号了吗？

[lxq19851204]

[Quote=引用 10 楼 slw8449 的回复:]
引用 8 楼 lxq19851204 的回复:

引用 7 楼 wuyazhe 的回复:
多么荒谬的逻辑。你指望卡本身能知道别人是否用了和你重复的卡号？你卡号不统一管理怎么能避免重复呢？

银行排号不也是从1-。。。的嘛

你的刷卡每发行一张就自动+1就可以了

那我程序一直运行是可以的，但是要是中间停了一段时间，不又恢复到原先的号了吗？
[/Quote]

所以你要这个字段保存在TXT或者写进数据库中。