vb programando la secuencia de Pepponacci, intenta encontrar los primeros 30 términos de la secuencia

Subcomando privado1_Click() Dim a(30) Mientras, i Como entero a(1) = 1 a(2) = 1 Imprimir 1; para i = 3 a 30

a(i) = a(i - 1) + a(i - 2)

Imprime a(i);

Si i Mod 5 = 0 Entonces imprime siguiente i ?

End Sub

Si i Mod 5 = 0, entonces imprimir siguiente i ?