Índice

Solución 3.2 Obtener el resto de una división entera

Sub DivisionEnteraResto()  
    Dim dblNumero1 As Double 
    Dim dblNumero2 As Double 
    Dim dblResto As Double 
    Dim dblResultado As Double 
    Dim strCadena1 As String 
    Dim strCadena2 As String  ...