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