Solución 4.6 Contar de N en N hasta M

1. Contar de 13 en 13 hasta 100


Sub ContarDe13en13()  
    Dim intNumeroInicio As Integer 
    Dim intSuma As Integer 
    Dim intNuevoNumero As Integer 
    Dim strMensaje As String 
    strMensaje = "0" 
    intNumeroInicio = 0 
    intSuma = 13 
    While intNumeroInicio <= 100 - intSuma 
        intNumeroInicio = intNumeroInicio + intSuma 
        intNuevoNumero = intNumeroInicio 
        strMensaje = strMensaje &...
Si desea saber más, le proponemos el siguiente libro:
couv_TPT16EXCV.png
60-signet.svg
Versión impresa
20-ecran_lettre.svg
Versión online
41-logo_abonnement.svg
En ilimitado con la suscripción ENI
130-boutique.svg
En la tienda oficial de ENI
Anterior
Solución 4.5 Mostrar buenos días N veces
Siguiente
Solución 4.7 Hacer obligatoria la introducción de un dato y controlar la salida