Índice

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 & "..." ...