我用rnd*10每次结果一校
用
right$(cstr(time),1)结果6位数都是重复的
如666666 22222222 1111
这样没什么用呀
我用不来随机函数
急,谁帮我写个不重复6位数的过程
谢了

不是说了，用它与RND想乘
晕。
然后，判断一下大小，是不是在你要的数值之内，不是再来一次就是了。

for i=1 to 6
m=cint(right$(cstr(time),1))
n=cint(rnd(1)*10)
x=m*n
y=left$(cstr(x),1)
z=z&y
next
你这样试试

注意:
这只是随机数，不是不重复数。
比如：344456的可能是有的。
不重复的数你再加一个判断吧
就是y 是不是in z

谢谢