C Digos



UNIVERSIDAD AUTÓNOMA DE NUEVO LEÓN
ESCUELA INDUSTRIAL Y PREPARATORIA TÉCNICA ÁLVARO OBREGÓN

UNIDAD DE APRENDIZAJE: INTRODUCCIÓN


Maestra: Jesús Alejandro Vázquez Aranda


Lorena GonzalezRojas
Matricula:1731312
Aula: 110 Grupo: 1L3
Especialidad: TIC en Programación WEB



Monterrey N.L, a 25 Marzo 2015




UNIVERSIDAD AUTÓNOMA DE NUEVO LEÓN
ESCUELA INDUSTRIAL Y PREPARATORIATÉCNICA ÁLVARO OBREGÓN

UNIDAD DE APRENDIZAJE: INTRODUCCIÓN


Maestra: Jesús Alejandro Vázquez Aranda


Lorena Gonzalez Rojas
Matricula:1731312
Aula: 110 Grupo: 1L3
Especialidad: TIC en ProgramaciónWEB



Monterrey N.L, a 25 Marzo 2015




UNIVERSIDAD AUTÓNOMA DE NUEVO LEÓN
ESCUELA INDUSTRIAL Y PREPARATORIA TÉCNICA ÁLVARO OBREGÓN

UNIDAD DE APRENDIZAJE: INTRODUCCIÓN


Maestra: Jesús AlejandroVázquez Aranda


Lorena Gonzalez Rojas
Matricula:1731312
Aula: 110 Grupo: 1L3
Especialidad: TIC en Programación WEB



Monterrey N.L, a 25 Marzo 2015




UNIVERSIDAD AUTÓNOMA DE NUEVO LEÓNESCUELA INDUSTRIAL Y PREPARATORIA TÉCNICA ÁLVARO OBREGÓN

UNIDAD DE APRENDIZAJE: INTRODUCCIÓN


Maestra: Jesús Alejandro Vázquez Aranda


Lorena Gonzalez Rojas
Matricula:1731312
Aula: 110 Grupo:1L3
Especialidad: TIC en Programación WEB



Monterrey N.L, a 25 Marzo 2015


ÁREA DE UN PENTÁGONO

Public Class frmÁreadeunpentágonoregular

Private Sub btnCalcular_Click(sender As Object, e AsEventArgs) Handles btnCalcular.Click
Dim P, A, Á As Integer
P = Val(txtPerímetro.Text)
A = Val(txtApotema.Text)
Á = P * A / 2
txtÁrea.Text = Á
End SubPrivate Sub btnLimpiar_Click(sender As Object, e As EventArgs) Handles btnLimpiar.Click
txtPerímetro.Text = " "
txtApotema.Text = " "
txtÁrea.Text = " "
End Sub

PrivateSub btnSalir_Click(sender As Object, e As EventArgs) Handles btnSalir.Click
End
End Sub
End Class




LEER EL PROMEDIO DE TRES CALIFICACIONES ENTRE 0 Y 100 Y CALCULE E IMPRIMA EL...