随机双色球PowerShell脚本

Brightblade

随机双色球，6个红球，范围在1到33，取随机数。1个篮球，范围在1到16，取一个随机数。会验证同一组中红球随机数不会重复。

1. $count = @()
   
2. $item = @()
   
3. $max = 33
   
4. $min = 1
   
5. 
   
6. # 创建Excel应用
   
7. Write-Verbose "Creating Excel application"
   
8. $xl=New-Object -ComObject "Excel.Application"
   
9. $wb=$xl.Workbooks.Add()
   
10. $ws=$wb.Worksheets.Add()
    
11. $cells=$ws.Cells
    
12. 
    
13. #定义输出范围
    
14. $row=3
    
15. $col=1
    
16. 
    
17. "Red1","Red2","Red3","Red4","Red5","Red6",“Blue” | foreach {
    
18.         $cells.item($row,$col)=$_
    
19.         $cells.item($row,$col).font.bold=$True
    
20.         $col++
    
21. }
    
22. 
    
23. #循环生成随机数，写入excel
    
24. for($j=1;$j -le 5;$j++)
    
25. {
    
26.     $row++
    
27.     $col=1
    
28.     for($i=1; $i -le 6; $i++)
    
29.     {   
    
30.         $b = Get-Random -Minimum $min -Maximum $max
    
31.         $bl=$count.Contains($b)
    
32.         while($bl){
    
33.             $b = Get-Random -Minimum $min -Maximum $max
    
34.             $bl=$count.Contains($b)
    
35.         }
    
36.         $count += $b
    
37. 
    
38.         $cells.item($Row,$col) = $b
    
39.         $col++
    
40.     }
    
41. 
    
42.     $cells.item($Row,$col) = Get-Random -Minimum 1 -Maximum 16
    
43. 
    
44.   
    
45. }
    
46. 
    
47. #现实并关闭，你可以点取消，查看最后效果
    
48. #make Excel visible
    
49. $xl.Visible=$True
    
50. $xl.Quit()

复制代码

Brightblade

感觉自选组一多，结果就会变慢。还得再改一改