BIFURCACIONES

EJERCICIO 2

Código:
Public Class Form1
    Dim genero As String
    Dim edad As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        genero = UCase(ComboBox1.Text)
        edad = Val(TextBox2.Text)
        PictureBox1.Visible = True

        If genero = "MASCULINO" And edad <= 12 Then
            Label4.Text = "Niño"
            Me.PictureBox1.Image = My.Resources.niño
            Me.BackColor = Color.SlateBlue

        ElseIf genero = "MASCULINO" And edad < 18 Then
            Label4.Text = "Adolscente Varon"
            Me.PictureBox1.Image = My.Resources.adolh
            Me.BackColor = Color.Silver
        ElseIf genero = "MASCULINO" And edad <= 50 Then
            Label4.Text = "Adulto"
            Me.PictureBox1.Image = My.Resources.adulto
            Me.BackColor = Color.SkyBlue

        ElseIf genero = "MASCULINO" And edad > 50 Then
            Label4.Text = "Adulto Mayor"
            Me.PictureBox1.Image = My.Resources.adultomayor
            Me.BackColor = Color.SlateGray
        ElseIf genero = "FEMENINO" And edad <= 12 Then

            Label4.Text = "Niña"
            Me.PictureBox1.Image = My.Resources.niña
            Me.BackColor = Color.Pink
        ElseIf genero = "FEMENINO" And edad < 18 Then
            Label4.Text = "Adolscente Mujer"
            Me.PictureBox1.Image = My.Resources.adolm
            Me.BackColor = Color.PeachPuff
        ElseIf genero = "FEMENINO" And edad <= 50 Then
            Label4.Text = "Adulta Mujer"
            Me.PictureBox1.Image = My.Resources.adulta
            Me.BackColor = Color.PaleTurquoise
        ElseIf genero = "FEMENINO" And edad > 50 Then
            Label4.Text = "Adulta Mayor"
            Me.PictureBox1.Image = My.Resources.adultamayor
            Me.BackColor = Color.Olive



        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.Visible = False

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()

    End Sub
End Class