Dim i,j As Long
For i = 1 To 20
If j Mod 2 = 1 Then
j = j * 2
Else
j = j * 2 + 1
End If
Debug.Print j
Next i
'多了会溢出