在 yahtzee 游戏中选择最大的一对

Question

你好，正如标题所说，我在 yatzee 游戏中获得最大对子时遇到了一些问题。到目前为止，我已经得到了这个代码：

Public Function parVerdier(ByVal regel As Integer, tall As Object)
Dim sum As Integer = 0
For i As Integer = 0 To 4
    For j As Integer = (i + 1) To 4
        If tall(i) = tall(j) Then
            sum = tall(i) + tall(j)
        End If
    Next
Next
Return sum
End Function

知道我应该编辑什么以使我能够选择最大的一对而不是随机的一对吗？ 例子。我得到了 4 4 3 3 5 的骰子，我想要 4 4 得到 8 分，但我得到了 6 分 (3+3) 帮助请和ty :)

Answer 1

您的循环会查看两个骰子的所有可能组合。对于您的示例 44335，它首先计算 4+4=8，然后覆盖 sum=3+3=6。如果您只想要最大的一对，则需要另一个 if 条件。检查该对的总和是否大于之前的循环对。

 Public Function parVerdier(ByVal regel As Integer, tall As Object)
        Dim sum As Integer = 0
        For i As Integer = 0 To 4
            For j As Integer = (i + 1) To 4
                If tall(i) = tall(j) Then
                    If tall(i) + tall(j) > sum Then
                        sum = tall(i) + tall(j)
                    End If
                End If
            Next
        Next
        Return sum
    End Function