Ejercicios de Programación en VB.
NET Visual estudio
Ejercicio 1:
Sumar los números pares de 1 a 10 y desplegar resultado. Usar FOR
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles [Link]
Dim suma, i As Integer
For i = 2 To 10 Step 2
suma = suma + i
Next
MsgBox("La suma de los numeros pares de 1 a 10 con FOR es " & suma)
End Sub
Ejercicio 2:
Sumar los números pares de 1 a 10 y desplegar resultado. Usar While
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles [Link]
Dim suma, i As Integer
i = 2
While i <= 10
suma = suma + i
i = i + 2
End While
MsgBox("La suma de los numeros pares de 1 a 10 con WHILE es " & suma)
End Sub
Ejercicio 3:
Ingresar una nota de calificaciones y desplegar un mensaje “Aprobado” o “Reprobado”.
Para aprobar, la nota debe ser mayor a 7.
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles [Link]
Dim nota As Integer
Dim opcion As String = "S"
Dim nota1 As String
While opcion = "S" Or opcion = "s"
nota1 = InputBox("Ingrese la nota", "Control de notas")
If nota1 = "" Then
MsgBox("La nota no fue ingresada")
Else
If IsNumeric(nota1) Then
nota = Val(nota1)
If nota < 7 Then
MsgBox("Con la nota " & nota & " a REPROBADO")
Else
MsgBox("Con la nota " & nota & " a APROBADO")
End If
Else
MsgBox("La nota no es numérica")
End If
End If
opcion = InputBox("Desaea ingresar otra nota? S/N")
End While
MsgBox("FIN DE PROGRAMA ")
End Sub
Ejercicio 4:
Leer 3 números y decir cuál es el mayor y cuál es el menor. Forma 1
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles [Link]
Dim num1, num2, num3 As Integer
MsgBox("Ingrese 3 números diferentes")
num1 = InputBox("Ingrese el número 1 ")
num2 = InputBox("Ingrese el número 2 ")
num3 = InputBox("Ingrese el número 3 ")
If num1 = num2 Or num1 = num3 Or num2 = num3 Then
MsgBox("Hay números iguales")
Else
' Busca el mayor
If num1 > num2 And num1 > num3 Then
MsgBox("EL número mayor es " & num1)
Else
If num2 > num1 And num2 > num3 Then
MsgBox("EL número mayor es " & num2)
Else
MsgBox("EL número mayor es " & num3)
End If
End If
' Busca el menor
If num1 < num2 And num1 < num3 Then
MsgBox("EL número menor es " & num1)
Else
If num2 < num1 And num2 < num3 Then
MsgBox("EL número menor es " & num2)
Else
MsgBox("EL número menor es " & num3)
End If
End If
End If
End Sub
Ejercicio 5:
Leer 3 números y decir cuál es el mayor y cuál es el menor. Forma 2
Private Sub Button10_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim num1, num2, num3 As Integer
MsgBox("Ingrese 3 números diferentes")
num1 = InputBox("Ingrese el número 1 ")
num2 = InputBox("Ingrese el número 2 ")
num3 = InputBox("Ingrese el número 3 ")
If num1 <> num2 And num1 <> num3 And num2 <> num3 Then
' Busca el mayor
If num1 > num2 And num1 > num3 Then
MsgBox("EL número mayor es " & num1)
Else
If num2 > num1 And num2 > num3 Then
MsgBox("EL número mayor es " & num2)
Else
MsgBox("EL número mayor es " & num3)
End If
End If
' Busca el menor
If num1 < num2 And num1 < num3 Then
MsgBox("EL número menor es " & num1)
Else
If num2 < num1 And num2 < num3 Then
MsgBox("EL número menor es " & num2)
Else
MsgBox("EL número menor es " & num3)
End If
End If
Else
MsgBox("Hay números iguales")
End If
End Sub
Ejercicio 6:
Dado un valor total de compras que ingresará por teclado, calcular que descuento tendrá
la persona considerando que para compras mayores a 100 el descuento es del 10% y
para compras menores a 100 el descuento es del 7%. Desplegar el total a pagar
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim valcompras As Integer
Dim descuento, total_pagar As Decimal
valcompras = InputBox("Ingrese el valor de compra")
If valcompras > 100 Then
descuento = valcompras * 0.1
Else
descuento = valcompras * 0.07
End If
total_pagar = valcompras - descuento
MsgBox("El valor de compras es " & valcompras & " el valor de descuento
es " & descuento & " el total a pagar es " & total_pagar)
End Sub
Ejercicio 7:
Leer un número entero y determinar si tiene 3 cifras.
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim num As Integer
num = InputBox("Ingre un número entero")
If num > 99 And num < 1000 Then
MsgBox("EL número tiene tres cifras " & num)
Else
MsgBox("EL número NO tiene tres cifras " & num)
End If
End Sub
Ejercicio 8:
Leer dos números, restar el menor del mayor y desplegar el resultado.
Private Sub Button13_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim resultado, num1, num2 As Integer
num1 = InputBox("Ingre número 1 ")
num2 = InputBox("Ingre número 2 ")
If num1 > num2 Then
resultado = num1 - num2
Else
resultado = num2 - num1
End If
MsgBox("EL reultado de la resta es " & resultado)
End Sub
Ejercicio 9:
Leer un número que puede ser solo de 1 a 5 e imprimir su equivalente en números
romanos. Usar ElseIF
Private Sub Button18_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim num As Integer
num = InputBox("Ingrese un número entero")
If num = 1 Then
MsgBox("El número romano de " & num & " es I")
ElseIf num = 2 Then
MsgBox("El número romano de " & num & " es II")
ElseIf num = 3 Then
MsgBox("El número romano de " & num & " es III")
ElseIf num = 4 Then
MsgBox("El número romano de " & num & " es IV")
ElseIf num = 5 Then
MsgBox("El número romano de " & num & " es V")
Else
MsgBox("No ingresó un número de 1 a 5 ")
End If
End Sub
Ejercicio 10:
Leer un número que puede ser solo de 1 a 5 e imprimir su equivalente en números
romanos. Usar CASE
Private Sub Button15_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim num As Integer
num = InputBox("Ingreso un número entero")
Select Case num
Case 1
MsgBox(" El numero romano de " & num & " es I")
Case 2
MsgBox(" El numero romano de " & num & " es II")
Case 3
MsgBox(" El numero romano de " & num & " es III")
Case 4
MsgBox(" El numero romano de " & num & " es IV")
Case 5
MsgBox(" El numero romano de " & num & " es V")
Case Else
MsgBox(" No ingreso u número de 1 a 5")
End Select
End Sub
