Private Sub Form_Click() Cls Dim f(200) As Single, i As Integer f(1) = 0: f(2) = 1: f(3) = 2 Print Tab; f(1); f(2); f(3) For i = 4 To 100 f(i) = f(i - 1) + f(i - 2) + f(i - 3) Next i For i = 4 To 100 Print Tab; f(i);: If i Mod 5 = 0 Then Print Next i End Sub