请教各位PB高手帮忙解决难题

[ycf2004]

我现在想用PB7.0编一个能够随机生成1万个账号及密码，账号为10位，密码为6位，均为数值，生成的数据存放在一个库里，我一直在做，但却没有做出来，请教各位如何能够做成并实现这个程序，急求！！谢谢了。

[lzheng2001]

帐号10位中逐个位随机生成,然后合并成一个10位字符串就是了,密码也一样

[jxgzam]

Randomize(0)
string s1
string s2
long i
s1=""
i=1
do while i<=10
s1=s1+string(rand(10)-1)
i=i+1
loop

s2=""
i=1
do while i<=6
s2=s2+string(rand(10)-1)
i=i+1
loop

sle_1.text=s1
sle_2.text=s2

[newson]

上面这位朋友生成的帐号有重复的可能。不是太严谨!
如果真要采取上述作法，至少要加上检查检验。查看每次合并出来的字串是否在已生成的帐号中存在!
个人认为帐号本身就不应该随机去生成，没有什么好处。

[nimittz]

在楼上的基础上改进一下，随机生成后的再去检查一下，重号的再生成，就可以了（不信他下次还重号），呵呵！！或者产20000个，取distinct后至少有10000个吧。密码同理。可能后面的方法效率高。