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）帮助pls和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

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

1 个答案: