作者wait999 (-.-)
看板EzHotKey
标题[-AI-] 乐透选号程式（原始码）
时间Sat Jun 26 12:50:24 2010
买乐透不知道要买哪些号码吗？
分组时不知道该怎麽排吗？
此程式是一个洗牌程式，简单说就是一个
固定范围内取乱数不重复
;==================程式开始＝＝＝＝＝＝＝＝＝＝
#include <Array.au3>
Global $nn = 49
;乱数范围 1～$nn
Global $pp2 = 6
;取出几个数
Global $gg2 = 10
;输出几组
Global $X[$nn],$I
Run("Notepad.exe")
WinWaitActive("记事本", "",1)
For $I = 0 To $nn-1 Step 1
$X[$I] = $I+1
Next
;_ArrayDisplay($X, "$avArray ")
For $gg = 1 To $gg2
For $I = $nn-1 To 0 Step -1
$rr = Random(0,$I,1)
_ArraySwap($x[$I], $x[$rr])
Next
For $pp = 1 to $pp2
Send($x[$nn-$pp] & ",")
Next
Send("{BACKSPACE}")
Send("{ENTER}")
Next
;~ _ArrayDisplay($X, "$avArray ")
;================程式结束＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 61.60.254.83
※ 编辑: wait999 来自: 111.242.2.206 (12/05 19:19)