关于随机生成数字并可让键盘写出来！

l100593120

各位高手 谁可以帮下小弟！~
小弟想 写一个程序 其中一部分内容 就是要随机产生一个6位数的随机码，随机码就和 彩票的排列3排列5的要求一样

1234567890
1234567890
1234567890
1234567890
1234567890
1234567890

就如上图 在6个 0-9 中选6个数 要求 一组数字 中可以数字重复， 如111111  111222但是出现过的一组数， 就不再出现并可以指定程序 把数字写到 指定的 可输入框

3mile

出现过的数字就不在出现？
如：出现过111111,则以后不再出现1？

#include <array.au3>
Dim $n, $var[6], $y = 5
For $x = 0 To $y
                        Dim $num[10] = [1, 2, 3, 4, 5, 6, 7, 8, 9, 0]
        For $i = 0 To 5
                $random=Random(0, UBound($num)-1, 1)
                $n &= $num[$random]
                _ArrayDelete($num,$random)
        Next
        $var[$x] = $n
        $n = ''
Next
_ArrayDisplay($var)

zcx880517

你提问还要别人付钱给你？

tryhi

这是提问贴？有意思…

tryhi

2楼应该不符合楼主要求吧，但楼主要求很怪，只产生一个，又不重复？只产生一个又怎么可能去和谁重复呢？

ceoguang

回复 5# tryhi
已帮楼主修改

tryhi

Dim $ok
While 1
        $number = suiji()
        $yanzheng = IniRead("nunber.ini","Number",$number,0)
        If $yanzheng = 0 Then ExitLoop
WEnd
IniWrite("nunber.ini","Number",$ok,1)
MsgBox(0,"",$ok)
Func suiji()
        $ok = Random(0,999999,1)
        $num = StringLen($ok)
        $a = 6-$num
        For $i = 0 To $a
                If $i<>0 Then $ok = "0"&$ok&""
        Next
        Return $ok
EndFunc