[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[原创代码] 随机双色球PowerShell脚本

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

评分人数

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

TOP

返回列表