SUB CUENTA_WHILE()
    DIM vnumero, vpaso
    vpaso = 2
    WHILE vpaso <= 10
        vnumero = vnumero & vpaso
        vpaso = vpaso + 2
    WEND
    MSGBOX vnumero
END SUB



SUB CUENTA_DO_WHILE()
    DIM vnumero, vpaso
    vpaso = 2
    DO WHILE vpaso <= 10
        vnumero = vnumero & vpaso
        vpaso = vpaso + 2
    LOOP
    MSGBOX vnumero
END SUB


SUB CUENTA_LOOP_WHILE()
    DIM vnumero, vpaso
    vpaso = 2
    DO 
        vnumero = vnumero & vpaso
        vpaso = vpaso + 2
    LOOP WHILE vpaso <= 10
    MSGBOX vnumero
END SUB


SUB CUENTA_DO_UNTIL()
    DIM vnumero, vpaso
    vpaso = 2
    DO UNTIL vpaso > 10
        vnumero = vnumero & vpaso
        vpaso = vpaso + 2
    LOOP
    MSGBOX vnumero
END SUB


SUB CUENTA_LOOP_UNTIL()
    DIM vnumero, vpaso
    vpaso = 2
    DO 
        vnumero = vnumero & vpaso
        vpaso = vpaso + 2
    LOOP UNTIL vpaso > 10
    MSGBOX vnumero
END SUB


SUB CUENTA_FOR()
    DIM vnumero, vpaso
    FOR vpaso = 2 TO 10 STEP 2
        vnumero = vnumero & vpaso
    NEXT vpaso
    MSGBOX vnumero
END SUB
