MOSTRACIONES DE EJERCICIOS

 

Sub Ejercicio_4_separar()

'Leer un número entero de dos dígitos y determinar a cuánto es igual la suma de sus dígitos.

'variables

Dim Numero As Integer

Dim Suma As Integer

'entrada de datos

Suma = 0 'para contar los digitos

Numero = InputBox("Ingrese un valor de dos digitos" & Chr(13) & "Realizado por: " & vbCrLf & "Carlos E. Cano R") 'ingreso de datos

'proceso

If Len(Numero) = 2 Then 'garantiza que el numero ingresado tenga dos digitos

    For i = 1 To Len(Numero)

       Suma = Suma + Mid(Numero, i, 1) 'en suma se guarda la suma de los digitos

    Next

        MsgBox "La suma de los digitos de " & Numero & " es " & Suma 'mensaje de salida

Else

    MsgBox "El numero " & Numero & " ingresado tiene " & Len(Numero) & " Digitos", vbCritical 'mensaje de salida

End If

End Sub

'------------------------------------------------------------------------------------------------------------------------------------------------------------------

Sub Ejercicio_6_Primos()

'6. Leer un número entero de dos dígitos menor que 20 y determinar si es primo.

'variables

Dim Contar As Integer 'para contar el numero de divisores

'entrada de datos

Contar = 2

Numero = InputBox("Ingrese un valor de dos digitos" & Chr(13) & "Realizado por: " & vbCrLf & "Carlos E. Cano R") 'ingreso de datos

'proceso

If (Len(Numero) = 2) And (Numero < 20) And (Numero > 9) Then 'condiciones del problema

    For i = 2 To Numero - 1

       If (Numero Mod i) = 0 Then

            Contar = Contar + 1

       End If

    Next

    If Contar = 2 Then

        MsgBox "El numero " & Numero & " es primo", vbInformation, "Es primo"

    Else

        MsgBox "El numero " & Numero & " NO es primo", vbInformation, "No Es primo"

    End If

Else 'si no cumple las condiciones de entrada

    MsgBox "El numero " & Numero & " ingresado:" & vbCrLf & " NO cumple en ser número entero de dos dígitos menor que 20", vbCritical

End If

End Sub

'----------------------------------------------------------------------------------------------------------

Sub Ejercicio_11_Mayor()

'11. Leer dos números enteros y determinar cuál es el mayor.

'variables

Dim Numero1 As Integer 'para almacenar

Dim Numero2 As Integer 'para almacenar

'entrada de datos

Numero1 = InputBox("Ingrese un valor entero" & Chr(13) & "Realizado por: " & vbCrLf & "Carlos E. Cano R") 'ingreso de datos

Numero2 = InputBox("Ingrese un valor entero" & Chr(13) & "Realizado por: " & vbCrLf & "Carlos E. Cano R") 'ingreso de datos

'proceso

If Numero1 > Numero2 Then 'condiciones del problema

        MsgBox "El numero " & Numero1 & " Es mayor que " & Numero2, vbInformation, "Mayor" 'mensaje

ElseIf Numero2 > Numero1 Then

        MsgBox "El numero " & Numero2 & " Es mayor que " & Numero1, vbInformation, "Mayor" 'Mensaje

Else 'si no cumple las condiciones de entrada

    MsgBox "El numero " & Numero1 & " es igual al numero " & Numero2, vbCritical 'mensaje

End If

End Sub

'---------------------------------------------------------------------------------------------------------------------------------------------

Sub Ejercicio_46_Mayor()

'46. Leer un número entero de 2 dígitos y si terminar en 1 mostrar en pantalla su

'primer dígito, si termina en 2 mostrar en pantalla la suma de sus dígitos

'y si termina en 3 mostrar en pantalla el producto de sus dos dígitos.

'variables

Dim Numero As Integer 'para almacenar

Dim Unidad As Integer

Dim Decenas As Integer

'entrada de datos

Numero = InputBox("Ingrese un valor de dos digitos" & Chr(13) & "Realizado por: " & vbCrLf & "Carlos E. Cano R") 'ingreso de datos

Unidad = Mid(Numero, 2, 1)

If Len(Numero) = 2 And (Unidad = 1 Or Unidad = 2 Or Unidad = 3) Then 'condiciones del problema

            Decenas = Mid(Numero, 1, 1)

    Select Case Unidad

        Case Is = 1

            MsgBox "El Primer digito de  " & Numero & " es igual  " & Decenas, vbInformation 'mensaje

        Case Is = 2

            MsgBox "La suma de los digitos de  " & Numero & " es igual  " & (Decenas + unidades), vbInformation 'mensaje

        Case Is = 3

            MsgBox "La multiplicación de los digitos de  " & Numero & " es igual  " & (Decenas * unidades), vbInformation 'mensaje

    End Select

Else

            MsgBox "El numero " & Numero & " No cumple las condiciones de entrada!! ", vbCritical  'mensaje

End If

End Sub

'--------------------------------------------------------------------------------------------------------------------------------------

Sub factores()

Dim Numero As Integer

Dim Letra As String

Numero = InputBox("Ingrese un valor de dos digitos" & Chr(13) & "Realizado por: " & vbCrLf & "Carlos E. Cano R") 'ingreso de datos

    If (numero = 1) Then

            MsgBox "El número " & numero & " No tiene factores", vbInformation

        Exit Sub

Else

        For i = 2 To numero

         While (numero Mod i) = 0

            numero = numero \ i

                letra = letra & " * " & i & " "

 

         Wend

        

        Next

        End If

MsgBox letra

End Sub

'------------------------------------------------------------------------------------------------------------------------------------------------

Sub invertir_Numero()

'este metodo es un procedimineto , que me invierte el numero n

'Invertir un numero de tres cifras

Dim num, evalua, longitud, i As Integer

Dim numt, digito, invertido As String 'son variables auxiliares para guardar el numero

Numero = InputBox("Ingrese un Número: " & Chr(13) & " Realizado por Carlos E. Cano R")

num = CInt(Numero)

numt = CStr(num)

longitud = Len(numt)

invertido = ""

For i = longitud To 1 Step -1 'Ciclo para invertir el valor ingresado

    digito = Mid(numt, i, 1)

    invertido = invertido + digito

Next

If num > 0 Then

    MsgBox "El número " & Numero & " ES de " & longitud & " cifras, su invertido es: " & invertido

Else

    MsgBox "El número " & Numero & " ES de " & CInt(longitud) - 1 & " cifras, Negativo y su invertido es: " & invertido

End If

End Sub