Industrial

TAREA DE PROGRAMACIÓN, PARCIAL 2

MARIE LAURA LUQUE 8-851-112 D01

Número de Hombres y Mujeres dependiendo de su edad.

Public Class Form1


Private Sub Button1_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim S As Integer
Dim Mensaje, Titulo, Resp As String
Dim Edad, contF, contM, acumF, AcumM, EdadpromM,Edadpromf, n As Integer

contF = 0
contM = 0
AcumF = 0
AcumM = 0

n = TextBox7.Text
Titulo = "Sexo y Edad"
For i = 1 To n'Lectura del sexo y la edad
Mensaje = "Diga el Sexo de la Persona = " & Str(i)
S = Val(InputBox(Mensaje, Titulo))
Mensaje = "Diga la Edad de la Persona= " &Str(i)
Edad = Val(InputBox(Mensaje, Titulo))
Resp = "Edad :" & Str(Edad)
Resp = Resp + "sexo: " & Str(S)
MsgBox(Resp)

If S = 1 ThencontM = contM + 1
AcumM = AcumM + Edad
ElseIf S = 2 Then
contF = contF + 1
acumF = acumF + Edad
End IfNext

'Calcular Promedio
Edadpromf = acumF / contF
EdadpromM = AcumM / contM

'Imprimir resultados
Resp = "Total de Hombres = " & Str(contM)Resp = Resp + "Total de Mujeres = " & Str(contF)
Resp = Resp + "Edad Promedio de Hombres = " & Str(EdadpromM)
Resp = Resp + "Edad Promedio de Mujeres = " & Str(Edadpromf)MsgBox(Resp)

End Sub
End Class

MARIE LAURA LUQUE 8-851-112 D01

Calcular el área y perímetro de un triángulo.

Public Class Form1

Private Sub CmdCatetos_Click(ByVal sender AsSystem.Object, ByVal e As System.EventArgs) Handles CmdCatetos.Click
Dim a, b, c, Per, Area As Single
Dim Mensaje, Titulo, Resp As String
Titulo = "Lectura de Catetos"...