Red de conocimiento informático - Computadora portátil - Acceder a la programación vba. Por favor envíeme el código de programación. Gracias. Gracias,

Acceder a la programación vba. Por favor envíeme el código de programación. Gracias. Gracias,

'Calcular la suma de todos los números pares del 1 al 100

Función sum100() como entero

Dim i como entero

Dim iSum As Integer

iSum = 0

Para i = 2 a 100 Paso 2

iSum = iSum i

Siguiente i

suma100 = iSum

MsgBox (iSum)

iSum = 0

i = 2

Mientras (i lt; = 100)

iSum = iSum i

i = i 2

Wend

MsgBox (iSum)

iSum = 0

i = 2

Hacer hasta (i gt; 100)

iSum = iSum i

i = i 2

Bucle

MsgBox (iSum)

sum100 = iSum

Función final

'Calcular 1 Todos los números que se pueden dividir entre 3 y 200, y contar el número

Función sum200d3() como entero

Atenuar i como entero

Atenuar iCount como Entero

Dim sNum As String

iCount = 0

sNum = "Todos los números del 1 al 200 que son divisibles por 3:"

Para i = 1 a 200

Si i Mod 3 = 0 Entonces

sNum = sNum Str(i) ", "

iCount = iCount 1

Finalizar si

Siguiente i

MsgBox (sNum "El número es:" Str(iCount))

Función final

'PD: ¡Niño, tienes que completar tu tarea tú solo!