Ejercicios Resueltos Visual Basic

Ejercicios Consola Visual Basic.NET
Module Module1
Sub Bienvenida()
'Programa que muestra un MENSAJE, almacenado en una VARIABLE
Dim MEN As String 'VARIABLE
MEN = "Bienvenidos al Microsoft Visual Studio.net 2008"
Console.Write(MEN)
Console.Read()
End Sub

Sub Mensaje()
'Programa que muestra MENSAJE, almacenado en una VARIABLE
Dim Mens As String 'VARIABLE
Mens = "Desarrollandoaplicaciones en consola.net"
Console.WriteLine(Mens)
Console.Read()
End Sub

Sub Mensaje_vertical()
'Programa que muestra MENSAJE en forma VERTICAL, almacenado en una VARIABLE
Dim MV As String 'VARIABLE
MV = "Desarrollando aplicaciones en MS Visual Basic.net"
Console.WriteLine(MV)
Console.WriteLine(MV)
Console.WriteLine(MV)
Console.Read()
End Sub

Sub Sumar()
'Programa que SUMA 2numeros enteros, solo con variables
Dim n1, n2, S As Integer 'VARIABLES
REM LEER
n1 = Console.ReadLine
n2 = Console.ReadLine
REM PROCESO
S = n1 + n2
REM ESCRIBIR
Console.WriteLine(S)
Console.Read()
End Sub

Sub Sumita()
'Programa que SUMA 2 numeros enteros, con variables y mascaras de entradas
Dim num1, num2, R As Integer 'VARIABLES
REM ENTRADA
Console.Write("Ingrese un numero: ")
num1= Console.ReadLine
Console.Write("Ingrese otro numero: ")
num2 = Console.ReadLine
REM PROCESO
R = num1 + num2
REM SALIDA
Console.WriteLine(R)
Console.Read()
End Sub

Sub Restar()
'Programa que RESTA numeros enteros, con variables y mascaras de entradas
Dim N1, N2, RES As Integer 'VARIABLES
REM LEER
Console.Write("Ingrese un numero: ")
N1 = Console.ReadLine
Console.Write("Ingreseotro numero: ")
N2 = Console.ReadLine
REM PROCESO
RES = N1 - N2
REM ESCRIBIR
Console.Write("El resultado de la resta es: ")
Console.WriteLine(RES)
Console.Read()
End Sub

Sub programa()
'Programa que lee un numero entero y muestra su tercera y cuarta parte.
REM VARIABLES
Dim num, ter, cuar As Integer
REM LEER
Console.Write("Ingrese numero          :")
num = Console.ReadLine
REMPROCESO
ter = num / 3
cuar = num / 4
REM ESCRIBIR
Console.Write("su tercera parte es   :")
Console.WriteLine(ter)
Console.Write("su cuarta parte es    :")
Console.WriteLine(cuar)
Console.Read()
End Sub

Sub planilla()
'Programa que lee un sueldo basico y obtiene descuento x seguro y sueldo neto
REM VARIABLES
Dim sue As Integer
Dim descto, sneto As Double
REM LEERConsole.Write("Ingrese sueldo basico    :")
sue = Console.ReadLine
REM PROCESO
descto = sue * 0.09
sneto = sue - descto
REM ESCRIBIR
Console.WriteLine("Su descuento por seguro es: " & descto.toString("###,##0.00"))
Console.WriteLine("Su sueldo neto es: " & neto.toString("###,##0.00"))
Console.Read()
End Sub

Sub dolares_soles()
'Programa que obtiene montos de DOLARES a soles
REM VARIABLES
DimDOL, TIPcam, SOL As Double
REM LEER
Console.Write("Ingrese monto en dolares: ")
DOL = Console.ReadLine
Console.Write("Ingrese tipo de cambio del dia: ")
TIPcam = Console.ReadLine
REM PROCESO
SOL = DOL * TIPcam
REM ESCRIBIR
Console.Write("Su monto en soles es: ")
Console.WriteLine(SOL)
Console.Read()
End Sub

Sub soles_dolares()
'Programa que convierte un monto de soles a dolaresREM VARIABLES
Dim SOL, TIPcam, DOL As Double
REM LEER
Console.WriteLine("CONVERTIR DE SOLES A DOLARES")
Console.WriteLine("============================")
Console.Write("Ingrese monto en soles: ")
SOL = Console.ReadLine
Console.Write("Ingrese el tipo de cambio del dia: ")
TIPcam = Console.ReadLine
REM PROCESO
DOL = SOL / TIPcam
REM ESCRIBIR
Console.Write("Su monto en dolares es: ")Console.WriteLine(DOL)
Console.Read()
End Sub

Sub Calculo_edades()
'Programa que obtiene la EDAD actual de una persona
REM VARIABLES
Dim añoN, añoA, edad As Integer
REM LEER
Console.WriteLine("====CALCULO DE EDAD DE PERSONAS====")
Console.Write("Ingrese año de nacimiento: ")
añoN = Console.ReadLine
Console.Write("Ingrese año actual: ")
añoA = Console.ReadLine
REM PROCESO
edad = añoA...