Foros aprenderaprogramar.com
Didáctica y divulgación de la programación

CUENTO CON DOS CAJAS DE TEXTO EN UNA SE INGRESA AÑO DE NACIMIENTO Y EN OTR H PARA HOMBRE Y M PARA MUJER.

SI ES MAYOR DE 18 AÑOS SI ES HOMBRE DEBE ARROJAR UN LABEL QUE DIGA "HOMBRE MAYOR DE EDAD SI NO HOMBRE MENOR DE EDAD"

SI ES MAYOR DE 18 AÑOS Y ES MUJER DEBE ARROJAR MUJER MAYOR DE EDAD SI NO MUJER MENOR DE EDAD.

ESTE ES MI CODIGO.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim RESULTADO As Integer
        Dim NUMERO As Integer
        Dim SEXO As String
        SEXO = Val(TextBox2.Text)

        NUMERO = Val(TextBox1.Text)
        RESULTADO = 2015 - NUMERO
        If RESULTADO >= 18 And SEXO = "H" Then
            Label1.Text = ("HOMBRE MAYOR DE EDAD")
        Else
            Label1.Text = ("HOMBRE MENOR DE EDAD")

        If RESULTADO >= 18 And SEXO = "M" Then
            Label1.Text = ("MUJER MAYOR DE EDAD")
        Else
            Label1.Text = ("MUJER MENOR DE EDAD")
        End If
        End If