Desarrollar las aplicaciones utilizando Consola de Windows en Visual Net
1. Crear una aplicación que nos permita ingresar un numero y nos muestre un mensaje si el numero ingresado es positivo, negativo o cero.
Module Module01
Sub Main()
Dim num As Integer
Console.Write("Ingrese numero: ")
num = Console.ReadLine
Select Case num
Case Is > 0
Console.Write("positivo")
Case Is < 0
Console.Write("negativo")
Case Is = 0
Console.Write("cero")
End Select
Console.ReadLine()
End Sub
End Module
2. Desarrollar un programa que nos permita ingresar un numero y mostrarnos el día de la semana que corresponde (1= lunes, 2= martes,…)
Module Module02
Sub main()
Dim num As Byte
Console.Write("Ingrese numero: ")
num = Console.ReadLine
Select Case num
Case 1
Console.Write("lunes")
Case 2
Console.Write("martes")
Case 3
Console.Write("miercoles")
Case 4
Console.Write("jueves")
Case 5
Console.Write("viernes")
Case 6
Console.Write("sabado")
Case 7
Console.Write("domingo")
Case Else
Console.Write("dia no valida")
End Select
Console.ReadLine()
End Sub
End Module
3. Crear un programa que ingrese una edad y nos muestre si la persona es: niño (0-11) adolescente (12-17) adulto (18-60) y adulto mayor según sea el caso.
Module Module03
Sub main()
Dim edad As Byte
Console.Write("Ingrese edad: ")
edad = Console.ReadLine
Select Case edad
Case 0 To 11
Console.Write("es un niño")
Case 12 To 17
Console.Write("es un adolescente")
Case 18 To 60
Console.Write("es un adulto")
Case Else
Console.Write("es un adulto mayor")
End Select
Console.ReadLine()
End Sub
End Module
4. Crear un programa que nos permita ingresar el nombre de una persona y el sexo (F o M) de una persona y nos muestre un mensaje (masculino o femenino) según sea el sexo ingresado. Ejemplo : Juan es masculino
Module Module04
Sub main()
Dim nom As String
Dim sex As Char
Console.Write("Ingrese nombre: ")
nom = Console.ReadLine
Console.Write("Ingrese sexo: ")
sex = Console.ReadLine
Select Case sex
Case "M"
Console.Write(nom & " " & "es masculino")
Case "m"
Console.Write(nom & " " & "es masculino")
Case "F"
Console.Write(nom & " " & "es femenino")
Case "f"
Console.Write(nom & " " & "es femenino")
End Select
Console.ReadLine()
End Sub
End Module
5. Diseñar una aplicación que ingrese el nombre y el estado civil de una persona y nos muestre si es: C “Casado”, S “soltero”, V “Viudo”. Ejemplo:
Ingrese nombre: Luis
Ingrese estado civil: C
Module Module05
Sub main()
Dim nom As String
Dim civ As Char
Console.Write("Ingrese nombre: ")
nom = Console.ReadLine
Console.Write("Ingrese estado civil: ")
civ = Console.ReadLine
Select Case civ
Case "C"
Console.Write(nom & " es casado")
Case "c"
Console.Write(nom & " es casado")
Case "D"
Console.Write(nom & " es divorciado")
Case "d"
Console.Write(nom & " es divorciado")
Case "V"
Console.Write(nom & " es viudo")
Case "v"
Console.Write(nom & " es viudo")
End Select
Console.ReadLine()
End Sub
End Module
6. Desarrollar un programa que nos permita ingresar el nombre y tres notas de un alumno y nos permita calcular el promedio y nos muestre un mensaje (aprobado o desaprobado) de acuerdo al resultado. Ejemplo: Alumno: Juan Promedio: 14 Nota desaprobada
Module Module06
Sub main()
Dim nom As String
Dim not1 As Single
Dim not2 As Single
Dim not3 As Single
Dim prom As Single
Console.Write("ingrese nombre: ")
nom = Console.ReadLine
Console.Write("ingrese primera nota: ")
not1 = Console.ReadLine
Console.Write("ingrese segunda nota: ")
not2 = Console.ReadLine
Console.Write("ingrese tercera nota: ")
not3 = Console.ReadLine
prom = (not1 + not2 + not3) / 3
Select Case prom
Case 0 To 10.5
Console.WriteLine("Alumno: " & nom)
Console.Write("Promedio: " & prom & " nota " & "desaprobada")
Case Is < 20
Console.WriteLine("Alumno: " & nom)
Console.Write("Promedio: " & prom & " nota " & "aprobada")
End Select
Console.ReadLine()
End Sub
End Module
7. Desarrollar un programa que nos permita ingresar una nota y evaluarla si es valida (0 a 20) o no es valida. Ejemplo: El número 23 es una nota no valida.
Module Module07
Sub main()
Dim nota As Single
Console.Write("ingrese nota: ")
nota = Console.ReadLine
Select Case nota
Case 0 To 20
Console.Write("el numero " & nota & " es una nota valida")
Case Else
Console.Write("el numero " & nota & " es una nota no valida")
End Select
Console.ReadLine()
End Sub
End Module
8. Desarrollar un programa que nos permita una temperatura (numero) y nos muestre un mensaje de acuerdo a la temperatura ingresada: <=10º → “pésimo”, de 11º - 18º → “templado”, de 19º - 25º → “cálido” y > 25º → “caluroso”
Module Module08
Sub main()
Dim temp As Integer
Console.Write("Ingrese temperatura: ")
temp = Console.ReadLine
Select Case temp
Case Is <= 10
Console.Write("Frio")
Case 11 To 18
Console.Write("Templado")
Case 19 To 25
Console.Write("calido")
Case Is > 25
Console.Write("caluroso")
End Select
Console.ReadLine()
End Sub
End Module
9. Diseñar un programa la cual nos permita calcular el promedio de tres notas ingresadas y mostrarnos un mensaje en pantalla de acuerdo al promedio. 0-10 → “ pésimo ”, de 11-13 → “regular”, de 14-17 → “bueno” y de 18-20 → “excelente”
Module Module09
Sub main()
Dim not1 As Single
Dim not2 As Single
Dim not3 As Single
Dim prom As Single
Console.Write("Ingrese primera nota: ")
not1 = Console.ReadLine
Console.Write("Ingrese segunda nota: ")
not2 = Console.ReadLine
Console.Write("Ingrese tercera nota: ")
not3 = Console.ReadLine
prom = (not1 + not2 + not3) / 3
Select Case prom
Case 0 To 10
Console.Write("Pesimo")
Case Is < 13
Console.Write("Regular")
Case Is < 17
Console.Write("Bueno")
Case Is < 20
Console.Write("Excelente")
End Select
Console.ReadLine()
End Sub
End Module
10. Desarrollar un programa que nos permita elegir un color (rojo, verde y azul) y nos muestre un mensaje de color elegido.
Module Module10
Sub main()
Dim col As String
Console.Write("ingrese color: ")
col = Console.ReadLine
Select Case col
Case "rojo"
Console.ForegroundColor = ConsoleColor.Red
Console.Write("rojo")
Case "verde"
Console.ForegroundColor = ConsoleColor.Green
Console.Write("verde")
Case "azul"
Console.ForegroundColor = ConsoleColor.Blue
Console.Write("azul")
End Select
Console.ReadLine()
End Sub
End Module
11. Crear un programa que nos permita hallar el salario neto de un trabajador, donde ingresaremos su cargo que ocupa: obrero= 600.00, jefe= 800, gerente= 1000 y se le aplicara una bonificación del 5% del salario básico.
Module Module11
Sub main()
Dim carg As String
Dim boni As Single
Dim sal_bas As Single
Dim sal_net As Single
Console.Write("Ingrese cargo: ")
carg = Console.ReadLine
Select Case carg
Case "obrero"
sal_bas = 600
Case "jefe"
sal_bas = 800
Case "gerente"
sal_bas = 1000
End Select
boni = sal_bas * 0.05
sal_net = sal_bas + boni
Console.Write("el salario neto de un " & carg & " es " & sal_net)
Console.ReadLine()
End Sub
End Module
12. Desarrollar una aplicación que nos permita ingresar el salario básico y el estado civil de un trabajador y calcular su bonificación y salario neto de acuerdo a lo siguiente: S (Soltero) 5% de bonificación si es C (casado) 10 % de bonificación.
Module Module12
Sub main()
Dim sal_bas As Single
Dim est_civ As Char
Dim boni As Single
Dim sal_net As Single
Console.Write("Ingrese salario basico: ")
sal_bas = Console.ReadLine
Console.Write("Ingrese estado civil: ")
est_civ = Console.ReadLine
Select Case est_civ
Case "S"
boni = sal_bas * 0.05
sal_net = sal_bas + boni
Case "s"
boni = sal_bas * 0.05
sal_net = sal_bas + boni
Case "C"
boni = sal_bas * 0.1
sal_net = sal_bas + boni
Case "c"
boni = sal_bas * 0.1
sal_net = sal_bas + boni
End Select
Console.WriteLine("su bonificacion es: " & boni)
Console.Write("su salario neto es: " & sal_net)
Console.ReadLine()
End Sub
End Module
13. Un restaurante ofrece descuentos del 10% para consumos entre s/.30.00 y s/.50.00; un descuento del 20% para consumos mayores de s/.50.00; para todos los demás no se aplica ningún tipo de descuento. El ejercicio consiste en elaborar un programa que permita determinar el importe total a pagar por el consumidor.
Module Module13
Sub main()
Dim cons As Single
Dim desct As Single
Dim imp As Single
Console.Write("Ingrese monto de consumo: ")
cons = Console.ReadLine
Select Case cons
Case 30 To 50
desct = cons * 0.1
Case Is > 50
desct = cons * 0.2
Case Else
desct = 0
End Select
imp = cons - desct
Console.Write("total a pagar: " & imp)
Console.ReadLine()
End Sub
End Module
14. Una tienda de productos informáticos realiza una serie de descuentos de acuerdo a la cantidad de productos que se compran; un descuento de un 2% hasta para una docena, un descuento de 5% hasta 2 docenas y 7% de 2 docenas. Hallar el importe total.
Module Module14
Sub main()
Dim cons As Single
Dim cant As Integer
Dim desct As Single
Dim imp As Single
Console.Write("Ingrese monto de consumo: ")
cons = Console.ReadLine
Console.Write("ingrese cantidad: ")
cant = Console.ReadLine
Select Case cant
Case 0 To 12
desct = cons * 0.02
Case Is <= 24
desct = cons * 0.05
Case Else
desct = cons * 0.07
End Select
imp = cons - desct
Console.Write("total a pagar: " & imp)
Console.ReadLine()
End Sub
End Module
15. Evaluar si un número es par o impar.
Module Module15
Sub main()
Dim num As Integer
Dim par As String
Console.Write("Ingrese numero: ")
num = Console.ReadLine
par = num Mod 2
Select Case par
Case Is = 0
Console.Write("El numero es par")
Case Else
Console.Write("El numero es impar")
End Select
Console.ReadLine()
End Sub
End Module
No hay comentarios:
Publicar un comentario