All pastes #989068 Raw Edit

Miscellany

public text v1 · immutable
#989068 ·published 2008-04-18 02:18 UTC
rendered paste body
Option Explicit

Private Sub Calcular_Click()
Dim i&, Act&, Flag As Boolean
Act = 13
Flag = True
Sucesión.Text = ""
For i = 1 To Val(NúmeroNúmeros.Text)
    If Flag Then
        Act = Act + 3
        Flag = Not Flag
    Else
        Act = Act - 2
        Flag = Not Flag
    End If
    Sucesión.Text = Sucesión.Text & Act & ","
    DoEvents
Next i
End Sub