UNIDAD EDUCATIVA
“Dr. EDUARDO GRANJA GARCES”
PROGRAMACION
Y BASE DE DATOS
Pertenece a: Murillo Holguín Alexis
DOCENTE:
Lcda. Yecenia Ramírez
CURSO:
3ero INFORMATICA “B”
Año lectivo
2023-2024
EJERCICIO # 1 UNA COMPUTADORA SE OFRECE A UN PRECIO DE VENTA, SI SE
SABE QUE LA GANANCIA ES DE 30% ¿Cuál es el precio real que se debe cobrar?
Para realizar la factura considere los siguientes datos: nombre apellido etc, 12% de I.V.A, 1%
del impuesto la renta.
Public Class Form1
Private Sub Label8_Click(sender As Object, e As EventArgs) Handles
[Link]
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim N, A, PRO As String
Dim PRV, GA, IVA, IR, T As Integer
N = [Link]
A = [Link]
PRO = [Link]
PRV = [Link]
GA = [Link] = 0.3
IVA = [Link] = 0.12
IR = [Link] = 0.1
T = (PRV + GA + IVA + IR)
[Link] = T
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = ""
[Link] = "" INICIO
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = "" Nombre, apellido, producto,
End Sub precio de venta, ganancia,
End Class I.V.A, impuesto de renta,
total del precio real que se
debe cobrar
N,A,PRO,PRV,GA,IVA,IR,T
(PRV+GA+IVA+IR)
FIN
EJERCICIO # 2 Calcule el área de un triangulo presente el resultado y finalice.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim BT, AT, AR As Double
BT = [Link]
AT = [Link]
AR = (BT * AT) / 2
[Link] = AR
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
End Class
INICIO
Base de triangulo
Altura de triangulo
Área del triangulo
BT, AT, AR
(BT * AT) /2
FIN
EJERCICIO # 3 Calcule el promedio final trimestral de un estudiante considerado las
siguientes notas aporte, exposición, investigación, practica y examen.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim NA As String
Dim AP, EXP, INV, PRA, EXA, PF As Double
NA = [Link]
AP = [Link]
EXP = [Link]
INV = [Link]
PRA = [Link]
EXA = [Link]
PF = (AP + EXP + INV + PRA + EXA) / 5
[Link] = PF
If PF <= 8 Then
[Link]("REPROBADO")
Else
[Link]("APROBADO") INICIO
End If
[Link] = [Link](PF)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = ""
[Link] = ""
[Link] = "" Nombre y apellido
[Link] = ""
[Link] = "" Aporte, Exposición,
[Link] = "" Investigación, practica,
[Link] = ""
End Sub examen promedio final
End Class
NA, AP, EXP, INV, PRA, EXA,
PF
(AP+EXP+INV+PRA+EXA
)/5
FINAL
EJERCICIO # 4 En una empresa de automóviles a los trabajadores que ganan menos de $500
dólares, si recibiera un bono de $50 dólares adicional de su sueldo.
Realice un programa que ingrese el sueldo del trabajador y verifique si necesita el bono.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim N As String
Dim SM, RB, NB As Double
N = [Link]
SM = [Link] = -500
RB = [Link]
NB = (SM + RB)
[Link] = NB
If NB > 500 Then
[Link]("ACTO PARA RECIBIR BONO")
Else
[Link]("NO ACTO PARA RECIBIR BONO")
End If
[Link] = [Link](NB)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
End Class
EJERCICIO # 5 En el ejército se necesita detectar automáticamente a las personas que pueden
ingresar al servicio militar si su edad es mayor o igual a 18 años.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim N, A As String
Dim ED As Double
N = [Link]
A = [Link]
ED = [Link]
If Val([Link]) < 18 Then
[Link] = ("ES MAYOR DE EDAD")
Else
[Link] = ("ES MENOR DE EDAD")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
End Class
INICIO
Nombre
Apellido
Mayor/igual de edad
N,A,ED
FINAL
EJERCICIO # 6 Diseñe un programa que permita ingresar la edad de una persona
considerando los siguientes datos si es mayor o igual a 40 presentar persona “madura” si esta
entre 18 y 40 presentar “adulto” si es menor o igual a 18 “joven”
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim N, A As String
Dim ED As Integer
N = [Link]
A = [Link]
ED = [Link]
If Val([Link]) > 40 Then
[Link]("persona madura")
Else
End If
If Val([Link]) > 18 < 40 Then
[Link]("persona adulta")
Else
End If
If Val([Link]) <= 18 Then
[Link]("persona joven")
Else
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = ""
[Link] = ""
[Link] = ""
End Sub INICIO
End Class
Nombre
Apellido
Edad
N,A,ED
FINAL
EJERCICIO # 7 Calcule el sueldo a recibir de un empleado con los siguientes datos sueldo
básico, bonos, anticipos, IESS y comisión.
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim NA As String
Dim SB, B, ANT, IESS, COM, SR As Double
NA = [Link]
SB = [Link]
B = [Link]
ANT = [Link]
IESS = [Link]
COM = [Link]
SR = (SB + B + ANT + IESS + COM)
[Link] = SR
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = ""
[Link] = ""
[Link] = ""
INICIO
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
End Class
Nombre y apellido, sueldo
básico, bonos, anticipos, IESS,
comisión, sueldo a recibir
NA,SB,B,ANT,IESS,COM,
SR
(SB+B+ANT+IESS+CM)
C FINAL
EJERCICIO # 8 Almacenes la xyz tiene descuento el 25% en toda su línea blanca determine el
valor a pagar incluyendo descuento I.V.A de un producto.
Public Class Form1
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles
[Link]
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
[Link]
Dim N, A, PRO As String
Dim PRE, DESC, IVA, VP As Double
N = [Link]
A = [Link]
PRO = [Link]
PRE = [Link]
DESC = [Link] = 25%
IVA = [Link]
VP = (PRE - DESC - IVA)
[Link] = VP
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
[Link]
[Link] = " "
[Link] = "" INICIO
[Link] = ""
[Link] = " "
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
End Class
Nombre, apellido,
producto, precio,
descuento, i.v.a,
valor a pagar
N,A,PRO,PRE,DESC,IVA,VP
(PRE-DESC-IVA)
FINAL