使用具有不同 Y 面的 X 骰子的总和 S 的概率

Question

我正在尝试在 VBA 中编写一个代码，它返回获得总和的概率 S 滚动 X 骰子，每个骰子都有 Y 面（例如：滚动 1 个六面骰子 + 2 个八面骰子 + 2 个四面骰子)。

鉴于我对 VBA 的糟糕经验和知识，我编写了一个包含 X

这是我的代码：

Sub Somma()


Dim dado1, dado2, dado3, dado4, dado5 As Integer
Dim inp As Double
Dim prob As Long

som = Sheets("Prob").Range("d11").Value

'set each variable to each die's sides
dado1 = Sheets("Prob").Range("d2").Value
dado2 = Sheets("Prob").Range("d3").Value
dado3 = Sheets("Prob").Range("d4").Value
dado4 = Sheets("Prob").Range("d5").Value
dado5 = Sheets("Prob").Range("d6").Value

prob = 0

If Sheets("Prob").Range("d7").Value = 2 Then 'how many dice are used
For d1 = 1 To dado1
    For d2 = 1 To dado2
        If d1 + d2 >= inp Then prob = prob + 1
    Next d2
Next d1

Sheets("Prob").Range("d14").Value = prob


Else
If Sheets("Prob").Range("d7").Value = 3 Then
For d1 = 1 To dado1
    For d2 = 1 To dado2
        For d3 = 1 To dado3
            If d1 + d2 + d3 >= inp Then prob = prob + 1
        Next d3
    Next d2
Next d1
Sheets("Prob").Range("d14").Value = prob

Else
If Sheets("Prob").Range("d7").Value = 4 Then
For d1 = 1 To dado1
    For d2 = 1 To dado2
        For d3 = 1 To dado3
            For d4 = 1 To dado4
                 If d1 + d2 + d3 + d4 >= inp Then prob = prob + 1
            Next d4
        Next d3
    Next d2
Next d1
Sheets("Prob").Range("d14").Value = prob

Else
For d1 = 1 To dado1
    For d2 = 1 To dado2
        For d3 = 1 To dado3
            For d4 = 1 To dado4
                For d5 = 1 To dado5
                 If d1 + d2 + d3 + d4 + d5 >= inp Then prob = prob + 1
                Next d5
            Next d4
        Next d3
    Next d2
Next d1
Sheets("Prob").Range("d14").Value = prob

End If
End If
End If

End Sub

这很好用，但是，如前所述：

1. 太丑了
2. 数量有限。

Answer 1

自从我用 VBA 编程以来已经有几十年了，但你想做的是使用 Collection object。然后，您可以使用取决于骰子值的循环来迭代任意大小的骰子集合。

比较棘手的是跟踪概率。您可以定义一个返回变量的函数，然后返回一个Double 的数组。您可以使用ReDim 将其初始化为正确的大小。

当你弄清楚所有这些时，你将成为一个更好的 VBA 程序员。但是，如果您曾经使用过更灵活的语言，例如 Python，您会很快发现这一切可以变得多么容易......