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
Label8.Click
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Dim N, A, PRO As String
Dim PRV, GA, IVA, IR, T As Integer
N = TxtN.Text
A = TxtA.Text
PRO = TxtPRO.Text
PRV = TxtPRV.Text
GA = TxtGA.Text = 0.3
IVA = TxtIVA.Text = 0.12
IR = TxtIR.Text = 0.1
T = (PRV + GA + IVA + IR)
TxtT.Text = T
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
TxtN.Text = ""
TxtA.Text = "" INICIO
TxtPRO.Text = ""
TxtPRV.Text = ""
TxtGA.Text = ""
TxtIVA.Text = ""
TxtIR.Text = ""
TxtT.Text = "" 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
Button1.Click
Dim BT, AT, AR As Double
BT = TxtBT.Text
AT = TxtAT.Text
AR = (BT * AT) / 2
TxtAR.Text = AR
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
TxtBT.Text = ""
TxtAT.Text = ""
TxtAR.Text = ""
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
Button1.Click
Dim NA As String
Dim AP, EXP, INV, PRA, EXA, PF As Double
NA = TxtNA.Text
AP = TxtAP.Text
EXP = TxtEXP.Text
INV = TxtINV.Text
PRA = TxtPRA.Text
EXA = TxtEXA.Text
PF = (AP + EXP + INV + PRA + EXA) / 5
TxtPF.Text = PF
If PF <= 8 Then
MessageBox.Show("REPROBADO")
Else
MessageBox.Show("APROBADO") INICIO
End If
TxtPF.Text = Convert.ToString(PF)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
TxtNA.Text = ""
TxtAP.Text = ""
TxtEXP.Text = "" Nombre y apellido
TxtINV.Text = ""
TxtPRA.Text = "" Aporte, Exposición,
TxtEXA.Text = "" Investigación, practica,
TxtPF.Text = ""
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
Button1.Click
Dim N As String
Dim SM, RB, NB As Double
N = TxtN.Text
SM = TxtSM.Text = -500
RB = TxtRB.Text
NB = (SM + RB)
TxtNB.Text = NB
If NB > 500 Then
MessageBox.Show("ACTO PARA RECIBIR BONO")
Else
MessageBox.Show("NO ACTO PARA RECIBIR BONO")
End If
TxtNB.Text = Convert.ToString(NB)
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
TxtN.Text = ""
TxtSM.Text = ""
TxtRB.Text = ""
TxtNB.Text = ""
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
Button1.Click
Dim N, A As String
Dim ED As Double
N = TxtN.Text
A = TxtA.Text
ED = TxtED.Text
If Val(TxtED.Text) < 18 Then
TxtED.Text = ("ES MAYOR DE EDAD")
Else
TxtED.Text = ("ES MENOR DE EDAD")
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
TxtN.Text = ""
TxtA.Text = ""
TxtED.Text = ""
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
Button1.Click
Dim N, A As String
Dim ED As Integer
N = TxtN.Text
A = TxtA.Text
ED = TxtED.Text
If Val(TxtED.Text) > 40 Then
MessageBox.Show("persona madura")
Else
End If
If Val(TxtED.Text) > 18 < 40 Then
MessageBox.Show("persona adulta")
Else
End If
If Val(TxtED.Text) <= 18 Then
MessageBox.Show("persona joven")
Else
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
TxtN.Text = ""
TxtA.Text = ""
TxtED.Text = ""
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
Button1.Click
Dim NA As String
Dim SB, B, ANT, IESS, COM, SR As Double
NA = TxtNA.Text
SB = TxtSB.Text
B = TxtB.Text
ANT = TxtANT.Text
IESS = TxtIESS.Text
COM = TxtCOM.Text
SR = (SB + B + ANT + IESS + COM)
TxtSR.Text = SR
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
TxtNA.Text = ""
TxtSB.Text = ""
TxtB.Text = ""
INICIO
TxtANT.Text = ""
TxtIESS.Text = ""
TxtCOM.Text = ""
TxtSR.Text = ""
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
Label1.Click
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles
Button1.Click
Dim N, A, PRO As String
Dim PRE, DESC, IVA, VP As Double
N = TxtN.Text
A = TxtA.Text
PRO = TxtPRO.Text
PRE = TxtPRE.Text
DESC = TxtDESC.Text = 25%
IVA = TxtIVA.Text
VP = (PRE - DESC - IVA)
TxtVP.Text = VP
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles
Button2.Click
TxtN.Text = " "
TxtA.Text = "" INICIO
TxtPRO.Text = ""
TxtPRE.Text = " "
TxtDESC.Text = ""
TxtIVA.Text = ""
TxtVP.Text = ""
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
