[已解决]我搞了个双色球机选程序，但总是重号，请大师们帮忙修改一下

lgoolj

双色球选号工具.rar (11.11 KB, 下载次数: 81)

2011-10-17 17:10 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-18 10:04

1. Sub ssq()
   
2.     Dim x%, R%
   
3.     For x = 1 To 6
   
4. 100:
   
5.        R = Int((33 * Rnd) + 1) ' 生成 1 到 33 之间的随机数值。
   
6.       If Application.CountIf(Range("B2:B7"), R) > 0 Then
   
7.         GoTo 100 '如果重复 回去再生成一个
   
8.       Else
   
9.         Cells(x + 1, 2) = R
   
10.       End If
    
11. Next x
    
12. Range("B2:B7").Sort key1:=Columns("b") ' 把结果排序一下
    
13. Cells(2, 3) = Int((16 * Rnd) + 1) ' 生成 1 到 33 之间的随机数值。
    
14. End Sub

复制代码

跳转到最佳答案楼层

studyexcel

回复 lgoolj 的帖子

Cells(2, 2) = Int((33 * Rnd) + 1)
For x = 2 To 6
             Do
                  Cells(x + 1, 2) = Int((33 * Rnd) + 1)
                  n = 0
                  For i = 1 To x - 1
                       If Cells(x + 1, 2) = Cells(i + 1, 2) Then
                           n = 1
                           Exit For
                       End If
                   Next
             Loop While n = 1
Next x

mxg825

1. Sub ssq()
   
2.     Dim x%, R%
   
3.     For x = 1 To 6
   
4. 100:
   
5.        R = Int((33 * Rnd) + 1) ' 生成 1 到 33 之间的随机数值。
   
6.       If Application.CountIf(Range("B2:B7"), R) > 0 Then
   
7.         GoTo 100 '如果重复 回去再生成一个
   
8.       Else
   
9.         Cells(x + 1, 2) = R
   
10.       End If
    
11. Next x
    
12. Range("B2:B7").Sort key1:=Columns("b") ' 把结果排序一下
    
13. Cells(2, 3) = Int((16 * Rnd) + 1) ' 生成 1 到 33 之间的随机数值。
    
14. End Sub

复制代码

lgoolj

精英培训网真是藏龙卧虎之地，二楼、三楼的都是我的高师，两个程序都能用。不过我正在学习中。如果两位能把红球标红，蓝球标蓝，那我将又学到一招了，最好有是有条件判断的。在此特别感谢二位大师。{:06:}

OPQ

http://www.excelpx.com/thread-52615-1-1.html
http://www.excelpx.com/thread-52518-1-1.html

独股求胜

学习了，谢谢，不过现在的特码是1-16的啊，上面楼上的特码超出这个范围了