Red de conocimiento informático - Material del sitio web - Programación de límites impares

Programación de límites impares

Subcomando privado 1_Click()

Nota: hay un error en el código siguiente. Cuando el número ingresado en text1 es demasiado grande, se puede calcular un error de desbordamiento.

Si quieres calcular números grandes, no es apropiado utilizar un bucle For, pero sí un bucle Do.

Dim i tiene la misma longitud, k tiene la misma longitud

Dim sum(1) As Long 'sum(0) guarda la suma de números impares y sum(0) guarda la suma de números pares.

K=CLng(Text1.Text)' Supongamos que el número a calcular se ingresa en Texto1.

Para i=1 a k

Si módulo 2=1, entonces

suma(0)=sum(0)+i

Otros

suma(1)=sum(1)+i

Terminará si...

Cuando k es demasiado grande, DoEvents evita perder respuesta.

Luego

Conector final