Pages

miércoles, 23 de enero de 2013

Calcular el número personas asistentes a una fiesta Codigo Fuente en Visual Basic

Problema
A una fiesta asistieron personas de diferentes edades y sexos. Construir un algoritmos dadas las edades y sexos de las personas.
Cuantas personas asistieron a la fiesta
Cuantos hombres y cuantas mujeres
Promedio de edades por sexo
La edad de la persona más joven que asistió
No se permiten menores de edad a la fiesta
Ingresar datos hasta que se ingrese una edad igual a cero

Codigo Fuente en Visual Basic
Public Class Form1
    Dim Ed As Integer = 24
    Dim men As Integer = 10000
    Dim sumv As Integer = 0
    Dim summ As Integer = 0
    Dim cm As Integer = 0
    Dim cv As Integer = 0
    Dim S As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Ed = TextBox1.Text
        If (Ed >= 18) Then
            If (Ed < men) Then
                men = Ed
            End If
            S = TextBox2.Text
            If (S = 1) Then
                sumv = sumv + Ed
                cv = cv + 1
            Else
                summ = summ + Ed
                cm = cm + 1
            End If
        Else
            If (Ed = 0) Then
            Else
                TextBox3.Text = "No se permite menores de edad"
            End If
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button2.Click
        TextBox3.Text = "promedio de edad de mujeres : " +
        Trim(summ / cm) + " promedio de edad de varones  " +
        Trim(sumv / cv) + "   total de personas de la fiesta es   " +
        Trim(cm + cv) + " Numero de mujeres  " + Trim(cm) +
        "   Numero de hombres   " +
        Trim(cv) + "  el mas joven de la fiesta tiene : " + Trim(men)
    End Sub
End Class

0 comentarios:

Publicar un comentario en la entrada