Crear metodos que realicen de dos numeros, la suma, la resta, la multiplicación, la division, y el resto.
Algoritmo:
Module Module1
Sub Main()
Console.WriteLine("Ingrese el primer valor")
Dim num1 As String = Console.ReadLine()
Console.WriteLine("Ingrese el segundo valor")
Dim num2 As String = Console.ReadLine()
Console.Write("El resultado de la suma es:")
Sumar(num1, num2)
Console.Write("El resultado de la resta es:")
Restar(num1, num2)
Console.Write("El resultado de la multiplicacion es:")
Multiplicar(num1, num2)
Console.Write("El resultado de la division es:")
Dividir(num1, num2)
Console.Write("El resto de la division es:")
Resto(num1, num2)
Console.ReadLine()
End Sub
Private Sub Sumar(ByVal num1 As String, ByVal num2 As String)
Dim res As Integer = Int(num1) + Int(num2)
Console.WriteLine(res)
End Sub
Private Sub Restar(ByVal num1 As String, ByVal num2 As String)
Dim res As Integer = Int(num1) - Int(num2)
Console.WriteLine(res)
End Sub
Private Sub Multiplicar(ByVal num1 As String, ByVal num2 As String)
Dim res As Integer = Int(num1) * Int(num2)
Console.WriteLine(res)
End Sub
Private Sub Dividir(ByVal num1 As String, ByVal num2 As String)
Dim res As Integer = Int(num1) / Int(num2)
Console.WriteLine(res)
End Sub
Private Sub Resto(ByVal num1 As String, ByVal num2 As String)
Dim res As Integer = Int(num1) Mod Int(num2)
Console.WriteLine(res)
End Sub
End Module
domingo, 23 de agosto de 2015
Suscribirse a:
Entradas (Atom)
Cambiar imagen de fondo con JQuery
<!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>Cambiar ...
-
Diseñar un algoritmo que convierta grados celcius a fahrenheit dada la siguiente formula: fahrenheit = (Celcius/0.55)+32 Algoritmo...
-
“Dado una cantidad de N notas de un estudiante, calcular:” Cuántas notas tiene reprobadas. Cuántas notas aprobadas. El promedio de not...
-
Una ferretería necesita poder llevar el control del stock de un grupo de productos que tiene a la venta, entre otras funcionalidades. El...