Hola a todos, hoy os dejo una serie de ejercicios propuestos y resueltos en Visual Basic .NET.
Todos los ejercicios que proponemos están resueltos en este mismo post, intenta hacerlo por ti mismo y si te quedas atascado puedes mirar la solución.Recuerda, que no tiene por que estar igual tu solución con la del post, el objetivo es que aprendas no que me copies la solución.
Crea un proyecto de consola por ejercicio.
Estos ejercicios han sido creado con Visual Studio 2013.
Colocare en las soluciones algunos comentarios para que sean más fácilmente entendible.
Te recomiendo que uses mensajes de trazas, donde te sean necesarios. Si tienes problemas también puedes usar el depurador.
Recuerda que al ser ejercicios hechos en consola, pon al final esta línea: Console.readLine() para que veas el resultado.
Si tienes alguna duda, recuerda que puedes consultarnos escribiendo un comentario en este post o enviándonos un e-mail a administrador@discoduroderoer.es
1) Crea un programa saludador. Donde pidamos un nombre y nos muestre un mensaje en consola, saludandonos. Por ejemplo, si doy como nombre Fernando, me aparecerá en pantalla ¡Hola Fernando!.
Module Ejercicio1
Sub Main()
Console.WriteLine("Escribe un nombre")
Dim nombre As String = Console.ReadLine
Console.WriteLine("¡Hola " & nombre & "!")
Console.ReadLine()
End Sub
End Module
2) Crea un programa que calcule el IVA de un producto. El valor de este producto se pasará por teclado y nos mostrará por pantalla el valor del IVA y su valor final. El IVA es el 21 %. Por ejemplo, si introducimos 100como valor de producto, el IVA es 21 y el valor final es 121.
Module Ejercicio2
Sub Main()
Const IVA As Double = 0.21
Console.WriteLine("Escribe el valor de un producto")
Dim producto As Double = Console.ReadLine
Console.WriteLine("El IVA del producto es " & producto * IVA & " euros. El valor final es " & producto + (producto * IVA) & " euros")
Console.ReadLine()
End Sub
End Module
3) Crea un programa que muestre la tabla de multiplicar de un número desde el 1 hasta el 10 que demos por teclado. Debes mostrar la operación como tal. Por ejemplo, si introducimos un 5 por teclado:
Module Ejercicio3
Sub Main()
Console.WriteLine("Escribe un numero")
Dim numero As Integer = Console.ReadLine
For i As Integer = 1 To 10
Console.WriteLine(numero & " x " & i & " = " & numero * i)
Next
Console.ReadLine()
End Sub
End Module
4) Crea un programa que nos calcula el area un cuadrado. Tenemos que pedir el radio de la circunferencia. Podemos obtener el valor de PI, con Math.PI
Module Ejercicio4
Sub Main()
Console.WriteLine("Escribe el valor de un radio")
Dim radio As Double = Console.ReadLine()
Dim area As Double = Math.PI * Math.Pow(radio, 2)
Console.WriteLine("El area es " & area)
Console.ReadLine()
End Sub
End Module
5) Pide dos números por teclado. Indica si el primer número es divisible por el segundo. Por ejemplo, si introduzco 10 y 2, si es divisible, por que si divides 10 entre 2, el resto es 0.
Module Ejercicio5
Sub Main()
Console.WriteLine("Escribe el valor del primer numero")
Dim num1 As Integer = Console.ReadLine()
Console.WriteLine("Escribe el valor del segundo numero")
Dim num2 As Integer = Console.ReadLine()
If num1 Mod num2 = 0 Then
Console.WriteLine("El número " & num1 & " es divisible por " & num2)
Else
Console.WriteLine("El número " & num1 & " no es divisible por " & num2)
End If
Console.ReadLine()
End Sub
End Module
6) Muestra los números entre el 0 y el 100, que no sean divisibles entre 2. Usa un bucle While.
Module Ejercicio6
Sub Main()
Dim i As Integer = 0
While i <= 100
If i Mod 2 <> 0 Then
Console.WriteLine(i)
End If
i = i + 1
End While
Console.ReadLine()
End Sub
End Module
7) Realiza el mismo ejercicio pero con un bucle for.
Module Ejercicio7
Sub Main()
For i As Integer = 0 To 100
If i Mod 2 <> 0 Then
Console.WriteLine(i)
End If
Next
Console.ReadLine()
End Sub
End Module
8) Crea un programa que nos pida un número entre 0 y 10, si el número no está entre rango, volverá a pedir el número hasta que este en el rango correcto.
Module Ejercicio8
Sub Main()
Dim num As Integer
Do
Console.WriteLine("Escribe un numero entre 0 y 10")
num = Console.ReadLine
Loop While num <= 0 Or num >= 10
Console.WriteLine("El número introducido es " & num)
Console.ReadLine()
End Sub
End Module
Module Module1
Sub Main()
Dim numeroAleatorio As Integer = numAleatorioEntre(1, 10)
Console.WriteLine("El numero generado es: " & numeroAleatorio)
Console.ReadLine()
End Sub
Function numAleatorioEntre(ByVal minimo As Integer, ByVal maximo As Integer) As Integer
Randomize()
Return CLng((minimo - maximo) * Rnd() + maximo)
End Function
End Module
Module Module1
Sub Main()
Dim numeroAleatorio As Integer
For i = 1 To 10
numeroAleatorio = numAleatorioEntre(1, 10)
Console.WriteLine("El numero generado es: " & numeroAleatorio)
Next
Console.ReadLine()
End Sub
Function numAleatorioEntre(ByVal minimo As Integer, ByVal maximo As Integer) As Integer
Randomize()
Return CLng((minimo - maximo) * Rnd() + maximo)
End Function
End Module
También os dejamos los videos que realizamos en YouTube.
Espero que os sea de ayuda. Si tenéis dudas, preguntad, estamos para ayudarte.
¿Cómo puedo programar esto con un formulario?
/* ingresar nombre, apellido y carrera profesional, si es contador entonces deberá ganar 2000, si es administrador ganara 2500 y si es ingeniero ganara 3000. si es cualquier otra carrera dirá dato no valido, además el tiempo de servicio es mayor a 5 años ganara un 5% mas de lo contrario se le pagara un 8% mas */
¿Cómo puedo programar esto con un formulario?
/* ingresar nombre, apellido y carrera profesional, si es contador entonces deberá ganar 2000, si es administrador ganara 2500 y si es ingeniero ganara 3000. si es cualquier otra carrera dirá dato no valido, además el tiempo de servicio es mayor a 5 años ganara un 5% mas de lo contrario se le pagara un 8% mas */