Excel四川麻将题

香川群子

不考虑7对胡牌的情形，任意4组3个牌+1对=14张牌胡的情形，

用VBA模拟产生随机两付胡牌，且没有冲突（超出4张牌）的代码及附件。

香川群子

直接随机做牌+不超4张检查→超4张时重新来过。

1. Sub kagawa()
   
2.     pm = Array("条", "筒", "万")
   
3.     pd = Array("一", "二", "三", "四", "五", "六", "七", "八", "九")
   
4. Redo:
   
5.     ReDim jg(13, 1) '存放2副胡牌结果的数组jg
   
6.     ReDim jc(8, 2) '用来统计每种花色、牌点的牌的数量，检查不超过4张的数组jc
   
7.     Randomize
   
8.     For n = 0 To 1 '生成2副牌
   
9.         k = 0
   
10.         For i = 1 To 4 '生成4组3张的，共4*3=12张牌
    
11.             m = Int(Rnd() * 3) '随机决定该组牌的牌型（条、筒、万）
    
12.             
    
13.             t1 = Int(Rnd() * 9) '随机抽取9张牌点中的一张
    
14.             r = Int(Rnd() * 3) '随机3种做牌法，牌点比当前牌： 0→小、1→同、2→大
    
15.             '下面做牌结果解释略。
    
16.             If r = 0 Then
    
17.                 If t1 = 0 Then
    
18.                     If Rnd() < 0.5 Then
    
19.                        t = Array(0, 0, 0)
    
20.                     Else
    
21.                        t = Array(0, 1, 2)
    
22.                     End If
    
23.                 Else
    
24.                     If Rnd() < 0.5 Then
    
25.                         If t1 = 1 Then
    
26.                             t = Array(0, 1, 2)
    
27.                         Else
    
28.                             t = Array(t1 - 2, t1 - 1, t1)
    
29.                         End If
    
30.                     Else
    
31.                         If t1 = 8 Then
    
32.                             t = Array(6, 7, 8)
    
33.                         Else
    
34.                             t = Array(t1 - 1, t1, t1 + 1)
    
35.                         End If
    
36.                     End If
    
37.                 End If
    
38.             ElseIf r = 1 Then
    
39.                 t = Array(t1, t1, t1)
    
40.             Else
    
41.                 If t1 = 8 Then
    
42.                     If Rnd() > 0.5 Then
    
43.                        t = Array(8, 8, 8)
    
44.                     Else
    
45.                        t = Array(6, 7, 8)
    
46.                     End If
    
47.                 Else
    
48.                     If Rnd() > 0.5 Then
    
49.                         If t1 = 7 Then
    
50.                             t = Array(6, 7, 8)
    
51.                         Else
    
52.                             t = Array(t1, t1 + 1, t1 + 2)
    
53.                         End If
    
54.                     Else
    
55.                         If t1 = 0 Then
    
56.                             t = Array(0, 1, 2)
    
57.                         Else
    
58.                             t = Array(t1 - 1, t1, t1 + 1)
    
59.                         End If
    
60.                     End If
    
61.                 End If
    
62.             End If
    
63. 
    
64.             '本组3张牌做牌结束后，转换为实际牌的名称并储存到jg数组中
    
65.             For j = 0 To 2
    
66.                 If jc(t(j), m) = 4 Then
    
67. '                    [d1] = [d1] & "," & t(j) & m
    
68.                     GoTo Redo '检查该色牌点张数，已超过4张时则回到代码起点重新来一次。
    
69.                 Else
    
70.                     jc(t(j), m) = jc(t(j), m) + 1 '该色牌点张数+1统计
    
71.                 End If
    
72.                 t2 = pd(t(j)) & pm(m)
    
73.                 If t2 = "一条" Then t2 = "幺鸡"
    
74.                 jg(k, n) = t2 '储存本组做牌结果
    
75.                 k = k + 1
    
76.             Next '继续下一组做牌直到完成4组
    
77.         Next
    
78.        '接下来做最后的1对牌。
    
79.         t2 = pd(Int(Rnd() * 9)) & pm(Int(Rnd() * 3))
    
80.         If t2 = "一条" Then t2 = "幺鸡"
    
81.         jg(12, n) = t2: jg(13, n) = t2
    
82.     Next
    
83.    
    
84. '    [b1].Resize(14, 2) = jg
    
85.     [q2:s10] = jc
    
86.     [b16:o17] = Application.Transpose(jg)
    
87. End Sub

复制代码

香川群子

呵呵，楼上代码有个小bug（虽然运行多次也还没有发现错误）

即没有对每一副牌的麻将头（2张相同牌）做数量统计和检查 → 理论上测试次数多了一定会有超4张错误发生。


……代码略作修改，并增加到同时产生4副胡牌，而不是仅仅2副胡牌。

呵呵。

香川群子

虽然没有测试，但估计直接做牌法，要比一张一张地随机取牌生成两副不重复胡牌要容易的多。

如果模拟一张一张随机取牌，然后做牌、判断，再取牌做牌的话，
肯定有概率会生成7对，或者对对胡之类的……但估计7对的出现次数不会太多。

香川群子

经过多次测试，直接生成不重复的4副牌问题还不是太大 → （指的是代码Redo次数）

然而，如果想要一次性同时生成5副牌（理论上108张牌最多可以做成7副牌 108/14=7.71）
则做牌法无法成功 → Redo次数已经达到死循环的标准了。

…………
因此，如果需要一次性做成7副牌，肯定需要使用我的【字典+数组过滤 随机抽取法】了。


呵呵。

香川群子

delete_007 发表于 2012-10-12 08:41
就我的水平来说，函数做不出来。默默关注。。。

函数应该是难以胜任的……近似无解。

香川群子

hjj0451 发表于 2012-10-12 12:01
有好题并且自己有答案的话可以弄到竞赛题目征集区，让大伙拿拿技术分。

这个【题数米拉拉】楼主，就是个妄想狂……


出的都是些啥子题目哦。

zyhui1961

群子老师，你太有才了!

云朵中的民族

香川群子 发表于 2012-10-13 23:19
呵呵，楼上代码有个小bug（虽然运行多次也还没有发现错误）

即没有对每一副牌的麻将头（2张相同牌）做数 ...

老师你做的是诈胡，要赔四翻的，四川麻将必须断门！

香川群子

云朵中的民族 发表于 2012-10-14 14:01
老师你做的是诈胡，要赔四翻的，四川麻将必须断门！

呵呵，四川麻将规则不是很懂。

满足缺一门应该不难，需要修改一下代码。