溢出運行時錯誤6 VBA

Question

我想知道我在代碼中做錯了什么。 我已經將所有內容更改為Long，但仍然收到溢出錯誤。 請幫忙。 該行：

Binary = Binary + Generation(i, j) * 10 ^ (j - 1)

已突出顯示為黃色。

完整代碼：

Dim Generation() As Long
Dim Fitness() As Long
Dim i, j As Long
Dim Binary As Long
Dim Binary2 As Long
Dim Initial As Long
Dim x, y As Long

Private Sub ButtonGeneratePopulation_Click()

Initial = Val(InitialPopulation.Value)

ReDim Generation(Initial, 30) As Long
Randomize

For i = 1 To Initial
    For j = 1 To 30
        If Rnd > 0.5 Then
            Generation(i, j) = 1
        Else
            Generation(i, j) = 0
        End If
    Next j
Next i



For i = 1 To Initial
Binary = 0
    For j = 1 To 30
        Binary = Binary + Generation(i, j) * 10 ^ (j - 1)
    Next j
    Cells(i, 1) = Binary
Next i

InitialPopulation.Enabled = False

End Sub

Answer 1

Dim Generation() As Long
Dim Fitness() As Long
Dim i As Long, j As Long
Dim Binary As Double '<~~~ this is double
Dim Binary2 As Long
Dim Initial As Long
Dim x As Long, y As Long

Private Sub ButtonGeneratePopulation_Click()

Initial = Val(InitialPopulation.Value)



ReDim Generation(Initial, 30) As Long
Randomize

For i = 1 To Initial
    For j = 1 To 30
        If Rnd > 0.5 Then
            Generation(i, j) = 1
        Else
            Generation(i, j) = 0
        End If
    Next j
Next i



For i = 1 To Initial
Binary = 0
    For j = 1 To 30
        Binary = Binary + Generation(i, j) * 10 ^ (j - 1)
    Next j
    Cells(i, 1) = Binary
Next i

InitialPopulation.Enabled = False

End Sub