[已解决]老师好！有附件模拟，谢谢太神！

weifengcz

老师好！有附件模拟，谢谢太神！ 有附件模拟.zip (84.21 KB, 下载次数: 9)

2016-8-7 18:32 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

baksy

2016-8-7 20:22

附件

跳转到最佳答案楼层

pengyx

“比如说开奖260，断组168/305/94出现60出2个”,我没找到有2个60

weifengcz

pengyx 发表于 2016-8-7 18:49
“比如说开奖260，断组168/305/94出现60出2个”,我没找到有2个60

您好 开奖260

168/305/94

60出2个

pengyx

weifengcz 发表于 2016-8-7 18:55
您好 开奖260 60出2个

“开奖666断组379/016/24出现6重复出3个” 为什么6不是4个

512

673

379/0815/26

3

3

后面的两个3如何理解，是出现什么数字重复出了3个

pengyx

把这个东东的计算方法说一下，说下计算规则也行

weifengcz

pengyx 发表于 2016-8-7 19:10
把这个东东的计算方法说一下，说下计算规则也行

pengyx

weifengcz 发表于 2016-8-7 19:16

规则描述不清，无法理解

pengyx

已知什么，求什么，以及计算方法，计算规则，计算过程。分步写清楚

weifengcz

pengyx 发表于 2016-8-7 19:22
已知什么，求什么，以及计算方法，计算规则，计算过程。分步写清楚

您好很辛苦了，开奖260 168/305/94  16830594 出2是60 ，开奖512 379/0815/26  379081526 出3是125  ，开奖666 379/016/24 37901624 出3重复三个666 看懂吗？

wanao2008

请测试！

1. Sub wanao()
   
2.     Dim a As Integer, a1 As String, a2 As String, a3 As String, jShu As Integer
   
3.     a = Cells(Rows.Count, "g").End(xlUp).Row
   
4.    
   
5.     For x = 2 To a
   
6.         '两码合
   
7.         a1 = Right(Val(Mid(Cells(x, "g"), 1, 1)) + Val(Mid(Cells(x, "g"), 2, 1)), 1)
   
8.         a2 = Right(Val(Mid(Cells(x, "g"), 1, 1)) + Val(Mid(Cells(x, "g"), 3, 1)), 1)
   
9.         a3 = Right(Val(Mid(Cells(x, "g"), 2, 1)) + Val(Mid(Cells(x, "g"), 3, 1)), 1)
   
10.         Cells(x, "h") = a1 + a2 + a3
    
11.         '胆码出现
    
12.         For y = 1 To 3
    
13.             If InStr(1, Cells(x, "i"), Mid(Cells(x, "g"), y, 1), 1) Then
    
14.                 jShu = jShu + 1
    
15.             End If
    
16.         Next
    
17.         Cells(x, "j") = jShu
    
18.         jShu = 0
    
19.         '两码全出现
    
20.         For y = 1 To 3
    
21.             If InStr(1, Cells(x, "i"), Mid(Cells(x, "h"), y, 1), 1) Then
    
22.                 jShu = jShu + 1
    
23.             End If
    
24.         Next
    
25.         Cells(x, "k") = jShu
    
26.         jShu = 0
    
27.     Next
    
28. End Sub

复制代码