论坛 › 『 提问交流 』 › 求救写个彩票遗留号码程序

ynqjflying52 发表于 2012-8-19 00:03:55

求救写个彩票遗留号码程序

给出的号码是
00 01 03 04 06 07 21 22 24 25
26 27 29 30 31 33 34 35 36 37
39 40 42 43 44 45 46 47 49 51
52 53 54 56 60 61 62 63 64 65
66 67 70 71 72 73 74 76 79 81
82 83 84 89 92 93 94 97 99

需要弄个程序 把0-99这100个号码没有上面这些的号码弄出来 如(02 05 08 09 10 11.......)
弄了半天没有弄出来 求高手帮忙

xiaochuan 发表于 2012-8-19 12:37:04

写个简单的给你玩玩。。
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

GUICreate("彩票!",600,520,-1,-1)
GUICtrlCreateLabel("要干掉的号:",10,8,100,17)
Local $str='00 01 03 04 06 07 21 22 24 25 26 27 29 30 31 33 34 35 36 37 39 40 42 43 44 45 46 47 49 51 52 53'; 例子
$Edit1=GUICtrlCreateEdit($str,10,30,580,150,0,0)
GUICtrlCreateLabel("剩下的号：",10,195,100,17)
$Edit2=GUICtrlCreateEdit("",10,220,580,150,0,0)
$button1=GUICtrlCreateLabel("干 掉",10,400,100,50,BitOR($SS_CENTER,$SS_CENTERIMAGE))
GUICtrlSetBkColor(-1, 0xA6CAF0)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
                Case $button1
                        _fuck()               
        EndSwitch
WEnd                       

Func _fuck()
        Local $i,$j,$k,$cha,$tmparr=['xiaochuan']
       
        ;总数组
        Local $arr_all=['00','01','02','03','04','05','06','07','08','09']
        For $k=10 To 99
                _ArrayAdd($arr_all,$k)
        Next
       
        If GUICtrlRead($Edit1)<>'' Then
                $arr=StringSplit(GUICtrlRead($Edit1),' ');要干掉的数组

                ;要被干掉的每个元素在00-99中的索引，遍历放到一个临时数组中
                For $i=1 To $arr
                        $cha=_ArrayBinarySearch($arr_all,$arr[$i])
                        If $cha<>-1 Then
                                _ArrayAdd($tmparr,$cha)
                        EndIf       
                Next

                ;根据刚才的索引，反向遍历，，，，删
                For $j=UBound($tmparr)-1 To 1 Step -1
                        _ArrayDelete($arr_all,$tmparr[$j])
                Next
               
                ;放到第2个文本框
                GUICtrlSetData($Edit2,_ArrayToString($arr_all,' '))
        Else
                MsgBox(0,'提示','木有数据！！')
        EndIf
EndFunc       

ynqjflying52 发表于 2012-8-19 12:39:59

厉害 高手~

xms77 发表于 2012-8-19 12:58:06

回复 2# xiaochuan
这个可以，_干()函数名字起的不错！

kuku645 发表于 2012-8-19 13:15:53

这个可以，_干()函数名字起的不错！

查看完整版本: 求救写个彩票遗留号码程序