0

我有 5 个数字，想测试其中 3 个是否相同，所以我写了这个：

Select Case Reel1Num
Case (Reel2Num And Reel3Num) Or (Reel2Num And Reel4Num) Or (Reel2Num And Reel5Num) Or (Reel3Num And Reel4Num) Or (Reel3Num And Reel5Num) Or (Reel4Num And Reel5NUm)
    ThreeNums = +1
    lbl3OfSame.Text = "Three Of Same: " & ThreeNums
End Select

但它似乎没有返回我想要的结果。我知道我可以使用类似的东西：

If (Reel1NUm = Reel2Num And Reel1Num = Reel3Num) Or...   Then
    ThreeNums = +1
    lbl3OfSame.Text = "Three Of Same: " & ThreeNums
End If

但这似乎比我觉得我需要为我想要比较的数量做更多的写作。

有没有更简单的方法来做到这一点？

4

2 回答 2

0

您可以按数字分组并找出哪些数字出现了 3 次：

Sub Main
    Dim numbers = New List(Of Integer) From {1,2,3,2,4,5,3,6,2,4,7}
    Dim numbersAppearingThreeTimes = numbers.GroupBy(Function(i) i) _
                                            .Where(Function(g) g.Count() = 3)

    For Each g In numbersAppearingThreeTimes
        Console.WriteLine(g.Key)
    Next
End Sub

结果：

2

于 2017-03-06T14:57:06.730 回答
0

正如其他评论者所指出的那样，数字的“布尔”比较可能没有按照您的想法进行。您需要每个案例将其卷轴值与所有其他卷轴值进行比较，这不会使语法比您的If结构短得多。有多种数学解决方案（如果您的数据良好，Nathan_Sav 提出的解决方案应该可以使用）。

但是，您询问是否有更好的方法，并且为了保持代码简单，一种方法是将卷轴值分配给结果数组或某种集合。

一个明显的集合是一个Dictionary可以包含每个唯一卷轴值的频率计数和数量的集合。如果您已将您声明ReelNum为一个数组，那么代码将非常短，但保留您的各个变量，您需要您的 mainSub和另一个来构建 Dictionary。所以你的主要子将是：

    Dim count As Dictionary(Of Integer, Integer)
    count = New Dictionary(Of Integer, Integer)()

    BuildResults(count, ReelNum1)
    BuildResults(count, ReelNum2)
    BuildResults(count, ReelNum3)
    BuildResults(count, ReelNum4)
    BuildResults(count, ReelNum5)

    Select Case count.Values.Max()
        Case 1 : Console.Write("None the same")
        Case 2 : Console.Write("Two the same")
        Case 3 : Console.Write("Three the same")
        Case 4 : Console.Write("Four the same")
        Case 5 : Console.Write("All the same")
        Case Else : Console.Write("Who knows?")
    End Select

和构建例程：

Private Sub BuildResults(ByRef count As Dictionary(Of Integer, Integer), ByVal newNum As Integer)
    If Not count.ContainsKey(newNum) Then count.Add(newNum, 0)
    count(newNum) = count(newNum) + 1
End Sub

我不确定这是否是一个教育项目，但以防万一，我已经包含了一个Select Case这样你就可以看到它是如何工作的。

于 2017-03-06T12:09:29.527 回答