Lenguajes de programacion

TRABAJOS DE L.P.

NOMBRE: FLORES RAMIREZ ELISEO JULIO

MATERIA: LENGUAJES DE PROGRAMACION

GRUPO : R-1

Private Sub Command1_Click()
SUMA10.Show
End Sub
Private Sub Command10_Click()DIVISION.Show
End Sub
Private Sub Command11_Click()
SUELDOS.Show
End Sub
Private Sub Command2_Click()
PROMEDIO.Show
End Sub
Private Sub Command3_Click()
TIPS.Show
End Sub
Private SubCommand4_Click()
INICIAR.Show
End Sub
Private Sub Command5_Click()
adivinanza.Show
End Sub
Private Sub Command6_Click()
SUMA.Show
End Sub
Private Sub Command7_Click()
SERVICIO.Show
End Sub
PrivateSub Command8_Click()
MULTIPLICACION.Show
End Sub
Private Sub Command9_Click()
RESTA.Show
End Sub

Private Sub Command1_Click()
Dim V_entrada As String
V_entrada = (entrada.Text)
If V_entrada= "QUIEN" Then
resultado.Caption = "ESO ES, ERES EL MASTER"
Else
resultado.Caption = "VA, INTENTA DE NUEVO VIEJO"
End If
End Sub
Private Sub Command2_Click()
entrada.Text = ""
End Sub
PrivateSub Command3_Click()
Menu.Show
End Sub

Private Sub Command1_Click()
V_A = 0
V_B = 0
v_r = 0
V_A = Val(Text1.Text)
V_B = Val(Text2.Text)
v_r = V_B / V_A
Text3.Text = v_r
End Sub
PrivateSub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
Menu.Show
End Sub

Private Sub Command1_Click()
V_A = 0
V_B = 0
v_r = 0
V_A =Val(Text1.Text)
V_B = Val(Text2.Text)
v_r = V_A * V_B
Text3.Text = v_r
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private SubCommand3_Click()
Menu.Show
End Sub

Private Sub Command1_Click()
V_A = 0
V_B = 0
V_C = 0
V_D = 0
V_E = 0
V_F = 0
v_r = 0
V_A = Val(Text1.Text)
V_B = Val(Text2.Text)
V_C = Val(Text3.Text)
V_D =Val(Text4.Text)
V_E = Val(Text5.Text)
V_F = Val(Text6.Text)
v_r = (V_A + V_B + V_C + V_D + V_E + V_F) / 6
RESULTADO.Caption = v_r
If Val(RESULTADO.Caption) >= 6 Then
AR.Caption = "FELICIDADES...