0

我刚刚使我的卡片选择动态化，而不是 5 个 if/elseif 语句的序列。 

Private Sub PlayElse()
    Dim StartHeads As Integer
    Dim CardCheckBoxArray() As CheckBox = {CardCheckBox1, CardCheckBox2, CardCheckBox3, CardCheckBox4, CardCheckBox5, CardCheckBox6, CardCheckBox7, CardCheckBox8, CardCheckBox9, _
                                          CardCheckBox10, CardCheckBox11, CardCheckBox12, CardCheckBox13, CardCheckBox14, CardCheckBox15, CardCheckBox16, CardCheckBox17, _
                                          CardCheckBox18, CardCheckBox19, CardCheckBox20, CardCheckBox21, CardCheckBox22, CardCheckBox23, CardCheckBox24, CardCheckBox25}
    'Reset Number Generator
    Number = (DeckGroup(Rnd.Next(0, DeckGroup.Count)).ID)

    'card 1-5
    For StartHeads = 0 To 4
        If CardCheckBoxArray(StartHeads).Checked = True And DeckGroup(Number).QuantityInteger > 0 Then
            'Grab New Card From Deck
            DeckGroup(Number).QuantityInteger -= 1
            Player1HandGroup(Number).QuantityInteger += 1
            CardTypeArray(StartHeads) = Player1HandGroup(Number).CardType
            CardCheckBoxArray(StartHeads).Text = Player1HandGroup(Number).CardNameString
            NumberArray(StartHeads) = Number
        Else
            Call PlayElse()
        End If

这是我的原始代码（注意有一个 End If。我只是不想通过卡片 2-5 重复代码）

If CardCheckBox1.Checked = True And DeckGroup(Number).QuantityInteger > 0 Then
    'Grab New Card From Deck
    DeckGroup(Number).QuantityInteger -= 1
    Player1HandGroup(Number).QuantityInteger += 1
    CardTypeArray(0) = Player1HandGroup(Number).CardType
    CardCheckBox1.Text = Player1HandGroup(Number).CardNameString
    NumberArray(0) = Number

什么都没有真正改变，除了任何带有 0 的点都没有由循环中的相应数字表示。我的项目中有几个与此类似的循环，但不知何故，这是一个获得 stackoverflow 异常的循环。CardCheckBoxArray 中的 CardCheckBoxes 最多为 25，因为游戏中有 5 个玩家。在此特定语句中，任何超过 6 的 CardCheckBox 都不会被访问，因为此逻辑仅代表玩家 1 的牌。（忘记提及错误发生时，继续按钮会导致子过程的顶部，突出显示Private Sub Playelse()。）

4

2 回答 2

1

堆栈溢出异常的最常见原因（如这里的情况）是当您有一个递归方法调用自身太多次时。每次方法调用自身时，都会向堆栈添加更多数据。在方法退出之前，数据不会从堆栈中删除。例如，以下方法保证会抛出 a StackOverFlowException：

Public Sub Fail(count As Integer)
    Fail(count + 1)
End Sub

如您所见，Fail在我的示例中，当调用该方法时，它会一遍又一遍地无限地调用自己，永远不会退出。因此，堆栈上的数据不断增长，直到最终耗尽空间并引发异常。

于 2013-03-22T18:13:39.963 回答
0

Sub PlayElse在这种情况下递归调用自身Else。您始终必须确保递归在某个点终止，否则您最终会陷入无限递归，从而引发堆栈溢出异常。

条件If说。... And DeckGroup(Number).QuantityInteger > 0如果是这种情况DeckGroup(Number).QuantityInteger，则减少。在某些时候它将为零并且Else将执行案例，调用PlayElsewhich 将再次执行Else案例，因为QuantityInteger现在为零，依此类推。

应该Call PlayElse()是在Then案件结束时代替吗？

于 2013-03-22T18:10:18.637 回答