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.
mostrar la conversion de 1 hasta 10 dolares en soles , suponiendo que el tipo de cambio es 3.50
marco
Hacer un programa que ingrese los datos de una factura en la cual haya tres
artículos vendidos. De cada artículo ingresar el precio unitario y la cantidad. Imprimir el total
de la factura.
DJ Josue
como debo hacer el siguiente ejercicio que cuando la nota sea mayo a 10 me de un mensaje de diga aprobado y de lo contrario diga reprobado con el siguiente código
Dim a, b, c, d, r, h As Integer
a = Val(TextBox1.Text) * 20 / 100
b = Val(TextBox2.Text) * 20 / 100
c = Val(TextBox3.Text) * 20 / 100
d = Val(a + b + c) = d / 3 = h
h = Val(r)
If Val(h) > 10 Then
MsgBox(«APROBADO CON: » & r)
Else
Val(h)
MsgBox(«REPROBADO CON: » & r)
End If
End Sub
– Hacer un programa que te de a elegir un nombre de un miembro de tu familia (de una lista desplegable) y te enseñe la foto diciendo: «este/a eres tú».
– Hacer un programa que te pregunte el signo zodiacal y te diga cómo eres.
– Hacer un programa que te permita archivar textos tuyos (p.ej. artículos de opinión o cartas) y te permita visualizar alguno de los ya hechos y editarlo.
Laura Torres
Necesito ayuda urgente para resolver esto
El inti tiene puntos de reparto de semillas que se pretende funcionen de la siguiente manera. Cada día empezar con 1000 semillas disponibles y a través de un programa que controle las entregas avisar si el inventario baja de 200 unidades.
zamir zapata
como puede resolverse problemas con la condicion for por ejemplo
calcular la distancia (mts) de un auto segundo a segundo con una velocidad constante en kilometros
mostrar la conversion de 1 hasta 10 dolares en soles , suponiendo que el tipo de cambio es 3.50
Hacer un programa que ingrese los datos de una factura en la cual haya tres
artículos vendidos. De cada artículo ingresar el precio unitario y la cantidad. Imprimir el total
de la factura.
como debo hacer el siguiente ejercicio que cuando la nota sea mayo a 10 me de un mensaje de diga aprobado y de lo contrario diga reprobado con el siguiente código
Dim a, b, c, d, r, h As Integer
a = Val(TextBox1.Text) * 20 / 100
b = Val(TextBox2.Text) * 20 / 100
c = Val(TextBox3.Text) * 20 / 100
d = Val(a + b + c) = d / 3 = h
h = Val(r)
If Val(h) > 10 Then
MsgBox(«APROBADO CON: » & r)
Else
Val(h)
MsgBox(«REPROBADO CON: » & r)
End If
End Sub
espero su pronta respuesta
– Hacer un programa que te de a elegir un nombre de un miembro de tu familia (de una lista desplegable) y te enseñe la foto diciendo: «este/a eres tú».
– Hacer un programa que te pregunte el signo zodiacal y te diga cómo eres.
– Hacer un programa que te permita archivar textos tuyos (p.ej. artículos de opinión o cartas) y te permita visualizar alguno de los ya hechos y editarlo.
Necesito ayuda urgente para resolver esto
El inti tiene puntos de reparto de semillas que se pretende funcionen de la siguiente manera. Cada día empezar con 1000 semillas disponibles y a través de un programa que controle las entregas avisar si el inventario baja de 200 unidades.
como puede resolverse problemas con la condicion for por ejemplo
calcular la distancia (mts) de un auto segundo a segundo con una velocidad constante en kilometros
hqwihpqjweoptrkoñwfjekdjsdiohiohetyior
Como lo podria resolver temgo muchas dudas por favor son con las estructuras repetitivas.
-Realizar la sucesion Fibonacci hasta el numero 233
-Solicitar un numero entero y determinar si es pefecto o no
como lo resuelvo
Realice un Programa que, ingresado una fecha, retorne cuántos días falta para el año siguiente
suponiendo que todos los meses don de 30 días exactos.