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

slw8449 2010-10-07 09:43:43
比如要产生的随机数依次是0000001,0000002。。。等!请VB高手们帮帮忙啊!
...全文
111 点赞 收藏 11
写回复
11 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
lxq19851204 2010-10-07
[Quote=引用 10 楼 slw8449 的回复:]
引用 8 楼 lxq19851204 的回复:

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

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

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

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

所以你要这个字段保存在TXT或者写进数据库中。
回复
slw8449 2010-10-07
[Quote=引用 8 楼 lxq19851204 的回复:]

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

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

你的刷卡每发行一张就自动+1就可以了
[/Quote]
那我程序一直运行是可以的,但是要是中间停了一段时间,不又恢复到原先的号了吗?
回复
兔子-顾问 2010-10-07
不要说你认为银行没有用数据库记录卡号哦。卡号的唯一定然是有记录可循,否则无法保证唯一。
回复
lxq19851204 2010-10-07
[Quote=引用 7 楼 wuyazhe 的回复:]
多么荒谬的逻辑。你指望卡本身能知道别人是否用了和你重复的卡号?你卡号不统一管理怎么能避免重复呢?
[/Quote]
银行排号不也是从1-。。。的嘛

你的刷卡每发行一张就自动+1就可以了
回复
兔子-顾问 2010-10-07
多么荒谬的逻辑。你指望卡本身能知道别人是否用了和你重复的卡号?你卡号不统一管理怎么能避免重复呢?
回复
slw8449 2010-10-07
这个号是写在卡里面的,没有数据库。。
回复
兔子-顾问 2010-10-07
对。数据库
select Max(ID) from CardTable
得到结果+1就是肯定不重复的卡号
回复
贝隆 2010-10-07
这还不简单?定义一个数据库,其中包含所有你要发行的卡片的记录。每一条记录包含两个关键字:卡号、是否发行。每次发行卡时就随机筛选一个卡号,再判断是否发行过,如果发行过,那么就再次筛选,直到选中未发行的为止,发行了该卡后再把该卡标记为已发行即可。
回复
slw8449 2010-10-07
就像银行取钱之前的取号等待一样,每个人拿到的号不一样,但是连续的。。这个用VB怎么实现呢?
回复
slw8449 2010-10-07
我现在实现的是发卡程序,每张卡有个流水号,但是在写第二张卡流水号的时候,第一张卡的流水号就不知道了,怎么实现连续呢?
回复
兔子-顾问 2010-10-07
这样还随机?没看出随机啊。顺序的啊
for i = 1 to 7
'format(i,"0000000")就是你要的?
next
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7517

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2010-10-07 09:43
社区公告
暂无公告