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 p>
'PD: ¡Niño, tienes que completar tu tarea tú solo!