电脑网络 手机数码 生活 游戏 体育运动 明星影音 休闲爱好 文化艺术 就业职场 教育科学 健康医疗 商业理财 情感家庭 地区 其他

求助复式组合公式

时间:2022-09-30 21:09:58

求助复式组合公式

求助公式,万分感谢

最佳答案

求助复式组合公式

=IFERROR(COMBIN($A3,B$2),"") 

 若要列出每组号码,看下面。

求助复式组合公式

求助复式组合公式

Dim arr1(), n%, m&, zs%, qs%
Sub 组合1() 

'递归算法

    Dim arr() As String, i%

    n = 0: zs = 0: qs = 0 

5   On Error Resume Next

    If zs >= 1 Then GoTo 10

    zs = InputBox("请输入总元素(号码)的个数") 

10
   

    If zs < 1 Or ***.number = 13 Then GoTo 5

    qs = InputBox("请输入所取元素(号码)的个数")

    If qs < 1 Or ***.number = 13 Then GoTo 5

    m = ***.combin(zs, qs)

    ReDim arr(1 To zs)

    For i = 1 To zs

           arr(i) = ***.text(i, ***.rept(0, Len(zs)))

    Next i

    zuhe arr, 1, "", 0

    Range("N:N").ClearContents

    Range("N1").Resize(m) = arr1

    MsgBox "从" & zs & "个号码中取" & qs & "个为一组,共" & _

    m & "组,排列在N列中。"
    

End Sub 

Sub zuhe(arr, x, sr, y)

    If y = qs Then

        If n = 0 Then ReDim arr1(1 To m, 1 To 1)

        n = n + 1

        arr1(n, 1) = Left(sr, Len(sr) - 1)

        Exit Sub

    End If

    If x < zs + 1 Then

        zuhe arr, x + 1, sr & arr(x) & ",", y + 1

        zuhe arr, x + 1, sr, y

    End If 

End Sub

相关推荐
  • 复式组合计算公式?
  • 数列复式公式
  • 十二生肖复式公式表?
  • 排列五直选组合复式
  • 双色球复式排列组合拆解公式
  • 请问复式3中3全中7个数组合公式怎样算,有几组
  • 直选复式包含组三吗
  • © 孔德问答