论坛 › 『 提问交流 』 › 关于随机生成数字并可让键盘写出来！

l100593120 发表于 2010-7-29 15:17:11

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

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

1234567890
1234567890
1234567890
1234567890
1234567890
1234567890

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

3mile 发表于 2010-7-29 15:57:43

本帖最后由 3mile 于 2010-7-29 16:24 编辑

出现过的数字就不在出现？
如：出现过111111,则以后不再出现1？#include <array.au3>
Dim $n, $var, $y = 5
For $x = 0 To $y
                        Dim $num =
        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 发表于 2010-7-29 16:51:34

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

tryhi 发表于 2010-7-29 18:08:11

这是提问贴？有意思…

tryhi 发表于 2010-7-29 18:08:14

本帖最后由 tryhi 于 2010-7-29 21:19 编辑

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

ceoguang 发表于 2010-7-29 18:47:15

回复 5# tryhi
已帮楼主修改

tryhi 发表于 2010-7-29 23:07:32

本帖最后由 tryhi 于 2010-7-29 23:09 编辑

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

查看完整版本: 关于随机生成数字并可让键盘写出来！