利用excel對(duì)彩票號(hào)碼進(jìn)行排列組合(實(shí)例1)

利用excel對(duì)彩票號(hào)碼進(jìn)行排列組合(實(shí)例1)創(chuàng)建excel文件，按alt+F11編輯宏。利用以下實(shí)例，可對(duì)彩票進(jìn)行分析、自行縮水實(shí)例1：4選3Sub組合()Stt=InPutBox("請(qǐng)輸入4個(gè)數(shù)并用，隔開(kāi)。如1,4,6,8,17,20,29,45,60","輸入","1,4,6,8,17,20,29,45,60")arr=SPlit(Stt,",")num=UBound(arr)rownum=2Range("A1").Value="組數(shù)"Range("B1").Value="數(shù)一"Range("C1").Value="數(shù)二"Range("D1").Value="數(shù)三"If(num<>3)ThenMSgBox"輸入數(shù)字不是4個(gè)",0,"error"ElSeFori=0TonumForj=iTonumFork=jTonumIf(i=jOrj=k)Thenrownum=rownumElseRange("A"&rownum).Value="第"&rownum-1&"組"Range("B"&rownum).Value=arr(i)Range("C"&rownum).Value=arr(j)Range("D"&rownum).Value=arr(k)rownum=rownum+1EndIfNextNextNextEndIfEndSub實(shí)例2：5選2Sub組合()Stt=InPutBox("請(qǐng)輸入5個(gè)數(shù)并用，隔開(kāi)。如146,8,17,20,29,45,60","輸入","1,4,6,8,17,20,29,45,60")arr=SPlit(Stt,",")num=UBound(arr)rownum=2Range("A1").Value="組數(shù)"Range("B1").Value="數(shù)一"Range("C1").Value="數(shù)二"If(num<>4)ThenMsgBox"輸入數(shù)字不是5個(gè)",0,"error"ElseFori=0TonumForj=iTonumIf(i=j)Thenrownum=rownumElseRange("A"&rownum).Value="第"&rownum-1&"組"Range("B"&rownum).Value=arr(i)Range("C"&rownum).Value=arr(j)rownum=rownum+1EndIfNextNextEndIfEndSub實(shí)例3：11選5Sub組合()Stt=InPutBox("請(qǐng)輸入11個(gè)數(shù)并用，隔開(kāi)。如1,4,6,8,17,20,29,45,60","輸入","1,4,6,8,17,20,29,45,60")arr=Split(stt,",")num=UBound(arr)rownum=2Range("A1").Value="組數(shù)"Range("B1").Value="數(shù)一"Range("C1").Value="數(shù)二"Range("D1").Value="數(shù)三"Range("E1").Value="數(shù)四"Range("F1").Value="數(shù)五"If(num<>10)ThenMsgBox"輸入數(shù)字不是11個(gè)",0,"errorElseFori=0TonumForj=iTonumFork=jTonumForl=kTonumForm=lTonumIf(i=jOrj=kOrk=lOrl=m)Thenrownum=rownumElseRange("A"&rownum).Value="第"&rownum-1&"組"Range("B"&rownum).Value=arr(i)Range("C"&rownum).Value=arr(j)Range("D"&rownum).Value=arr(k)Range("E"&rownum).Value=arr