Programa que indique si un hombre es un hombre o una mujer, según su género

Universidad Autónoma de Nuevo León[pic 1][pic 2]

Escuela Industrial y Preparatoria Técnica

“Álvaro Obregón”

Unidad de Aprendizaje:

Programación 1

Actividad 1

Actividad 2

Actividad 3

Nombre: José Alonso Barrientos Mendoza.

Semestre: 3ero

Turno: Matutino

Aula: 132

Grupo: 3L1

Actividad 1

Programa que indique si un hombre es un hombre o una mujer, según su género.

Option Explicit On

Public Class Form1

REM Actividad 1

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

        Dim Género As Object

        Dim Hombre, Mujer As String

        Hombre = "Masculino"

        Mujer = "Femenino"

        Género = InputBox("Ingrese su género", "Saber si es hombre o mujer")

        If Género = "Masculino" Then

            MsgBox("Usted es hombre", vbOKOnly)

        Else

            If Género = "Femenino" Then

                MsgBox("Usted es mujer", vbOKOnly)

            End If

        End If

    End Sub

End Class

[pic 3]

[pic 4]

Actividad 2

Crear un programa donde muestre un mensaje, del tipo triangulo según la longitud de sus lados.

Option Explicit On

REM José Alonso Barrientos Mendoza 3L1 132

Public Class Form1

    Dim LadoA, LadoB, LadoC As Single

    Dim Op, Ip, Up As String

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        LadoA = Val(TextBox1.Text)

        LadoB = Val(TextBox2.Text)

        LadoC = Val(TextBox3.Text)

        If LadoA = LadoB And LadoA = LadoC Then

            Op = MessageBox.Show("Triangulo Equilatero", "El tipo de triangulo es:", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

        If LadoC > LadoA And LadoC > LadoB And LadoA = LadoB Then

            Ip = MessageBox.Show("Triangulo Isosceles", "El tipo de triangulo es:", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

        If LadoA <> LadoB And LadoA <> LadoC And LadoB <> LadoC Then

            Up = MessageBox.Show("triangulo Escaleno", "El tipo de triangulo es:", MessageBoxButtons.OK, MessageBoxIcon.Information)

        End If

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        TextBox1.Text = ("")

        TextBox2.Text = ("")

        TextBox3.Text = ("")

    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Close()

    End Sub

End Class

Aspecto Gráfico

[pic 5]

Propiedades

...