Los primeros 100 términos de la secuencia de Fibonacci, usando vb

¿Dim?st?As?String?=?""

Dim?a(100)

a(1)?=?0?：? a(2)?=?1

¿Para?i?=?3?A?100

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

Siguiente?i

Para?i?=?1?A?10

st?=?st?amp ;?a(i)?amp;?"?"

Si?i?Mod?10?=?0?Entonces?st?=?st?amp;?vbCrLf

Siguiente?i

TextBox6.Text?=?st Public?Function?f(ByVal?n?As?Integer)?As?Integer

Dim?res?As?Integer

Si?n?=?1?O?n?=?2?Entonces

res?=?1

Fin?Si

Si?n?=?3?Entonces

res?=?2

Fin?Si

Si?n?gt;?3? Entonces

res?=?f(n?-?1)? ?f(n?-?2)

Fin?Si

Regresar?res

¿Fin?Función