Public Class Form1
Private Sub BTOCALCULAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim NUM1, NUM2, NUM3 As Double
NUM1 = Val([Link])
NUM2 = Val([Link])
NUM3 = Val([Link])
If NUM1 < NUM2 Then
If NUM2 < NUM3 Then
[Link] = NUM2 & " ES EL NUMERO MEDIO"
Else
If NUM1 < NUM3 Then
[Link] = NUM3 & " ES EL NUMERO MEDIO "
Else
[Link] = NUM1 & " ES EL NUMERO MEDIO "
End If
End If
Else
If NUM2 < NUM3 Then
[Link] = NUM2 & " ES EL NUMERO MEDIO"
Else
If NUM1 < NUM3 Then
[Link] = NUM3 & " ES EL NUMERO MEDIO "
Else
[Link] = NUM1 & " ES EL NUMERO MEDIO "
End If
End If
End If
End Sub
Private Sub LBLLIMPIAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub BTOSALIR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End
End Sub
End Class
Public Class Form1
Private Sub BTOAREA_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim RADIO, PERIMETRO, DIAMETRO As Double
RADIO = Val([Link])
DIAMETRO = 2 * RADIO
PERIMETRO = 3.141492654 * DIAMETRO
[Link] = " EL DIAMETRO ES " & DIAMETRO
[Link] = " EL PERIMETRO ES " & PERIMETRO
End Sub
Private Sub BTOLIMPIAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub BTOSALIR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim LADOA, LADOB, LADOC As Integer
LADOA = Val([Link])
LADOB = Val([Link])
LADOC = Val([Link])
If LADOA = LADOB Or LADOB = LADOC Then
[Link] = " FORMA UN TRIAGULO EQUILATERO "
Else
If LADOA = LADOB Or LADOA = LADOC Or LADOB = LADOC Then
[Link] = " FORMA UN TRIANGULO ISOCELES"
Else
[Link] = "FORMA UN TRIANGULO ESCALENO"
End If
End If
End Sub
Private Sub BTOLIMPIAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub BTOSALIR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End
End Sub
End Class
Public Class Form1
Private Sub BTOCANCELAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim MONTO, DESC As Integer
MONTO = Val([Link])
If MONTO > 100 Then
DESC = MONTO * (0.2)
MONTO = MONTO - DESC
[Link] = " SU DESCUENTO ES DE " & DESC & " Bs "
[Link] = " SU MONTO A CANCELAR ES " & MONTO & " Bs "
Else
[Link] = " EL MONTO A CANCELLAR ES " & MONTO & " Bs "
End If
End Sub
Private Sub BTOLIMPIAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub BTOSALIR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End
End Sub
End Class
Public Class Form1
Private Sub BTOCALCULAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim SS, DS, HD, HS, PH As Integer
HD = Val([Link])
DS = Val([Link])
HS = HD * DS
PH = 16
SS = HS * PH
If HS >= 40 Then
SS = SS + (HS - 40) * PH
End If
[Link] = " EL SALARIO DEL TRABAJADOR ES " & SS
End Sub
Private Sub BTOLIMPIAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub BTOSALIR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End
End Sub
End Class
Public Class Form1
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim EDAD, NUM As Double
Dim SEXO As String
EDAD = Val([Link])
SEXO = Val([Link])
If SEXO Then
NUM = (220 - EDAD) / 10
[Link] = " EL NUMERO DE PULSACIONES ES " & NUM & "LATIDOS /
SEGUNDOS"
Else
NUM = (210 - EDAD) / 10
[Link] = "EL NUMERO DE PULSACIONES ES " & NUM & "LATIDOS
/SEGUNDO"
End If
End Sub
Private Sub BTOLIMPIAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub BTOSALIR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End
End Sub
End Class
Public Class Form1
Private Sub TXTMONTO_TextChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End Sub
Private Sub BTOCALCULAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim MONTO, CUOTA As Double
MONTO = Val([Link])
If MONTO >= 50000 Then
CUOTA = (MONTO * 3) / 100
[Link] = " LA CUOTA A PAGAR ES " & CUOTA & " BS"
Else
CUOTA = (MONTO * 2) / 100
[Link] = " LA CUOTA A PAGAR ES " & CUOTA & " BS"
End If
End Sub
End Class
Public Class Form1
Private Sub BTOCALCULAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim CA, CN, CUAR, COSTO, CF, CT As Double
CA = Val([Link])
CN = Val([Link])
CUAR = CN + CA
If CUAR <= 100 Then
COSTO = 2.5
Else
End If
If CUAR <= 150 Then
COSTO = 1
If CUAR <= 250 Then
COSTO = 1 + 8
Else
COSTO = 0.8
End If
End If
CT = (CUAR + CF) * COSTO
[Link] = " EL COSTO TOTAL A PAGAR ES " & CT
End Sub
Private Sub BTOLIMPIAR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = ""
[Link] = ""
[Link] = ""
End Sub
Private Sub BTOSALIR_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
End
End Sub
End Class
