Red de conocimiento informático - Conocimiento de la instalación - Encuentra la suma de los primeros 20 elementos de la secuencia 1, 1, 2, 3, 5, 8, 13... Usa VB, no seas demasiado complicado.

Encuentra la suma de los primeros 20 elementos de la secuencia 1, 1, 2, 3, 5, 8, 13... Usa VB, no seas demasiado complicado.

Dim k1 Mientras Largo, k2 Mientras Largo, k Mientras Largo, s Mientras Largo, i Como Entero

k1 = 1

s = 1

Para i = 1 a 20

Imprime k1；

k = k1 k2

s = s k

k2 = k1

k1 = k

Imprimir

Imprimir "La suma de los primeros 20 elementos es" amp; p>