Cómo escribir código de programación VB para encontrar el número de términos en la secuencia de Fibonacci cuyo valor no sea mayor que 1000 y generar el valor de cada término

Subcomando privado1_Click() Dim intFibonacci(30) Como doble, i como entero, j como entero intFibonacci(1) = 1 intFibonacci(2) = 1 i = 3 Do

intFibonacci(i) = intFibonacci(i - 1) intFibonacci(i - 2)

i = i 1 Bucle hasta intFibonacci(i - 1) gt；= 1000 Para j = 1 A i - 2

Imprimir intFibonacci(j); Siguiente j Imprimir

End Sub