Answered

Revelroom.ca facilita la búsqueda de respuestas a tus preguntas con la ayuda de una comunidad activa. Únete a nuestra plataforma para conectarte con expertos dispuestos a ofrecer respuestas detalladas a tus preguntas en diversas áreas. Obtén respuestas detalladas y precisas a tus preguntas de una comunidad dedicada de expertos en nuestra plataforma de preguntas y respuestas.

calcular el area de un poligono en visual basic 6.0

Sagot :

Vanegaz
En Visual Basic 6, un procedimiento podría ser el siguiente

Sub Polígonos()
Dim lado As Single
Dim n As Integer
Dim sup As Single
Dim per As Single

lado = Val(Replace(InputBox("Ingrese la medida del lado"), _
",", "."))
n = Val(InputBox("Ingrese el número de lados"))
per = n * lado
sup = lado ^ 2 * n / (4 * Tan(3.1415926 / n))
MsgBox ("Perímetro = " + CStr(per) + Chr(13) + Chr(13) + "Superficie = " + CStr(sup))
End Sub

Espero que te sirva. No sé qué diferencias habrá con la versión 2005
Esperamos que nuestras respuestas te hayan sido útiles. Vuelve cuando quieras para obtener más información y respuestas a otras preguntas que tengas. Gracias por elegir nuestro servicio. Nos comprometemos a proporcionar las mejores respuestas para todas tus preguntas. Vuelve a visitarnos. Revelroom.ca, tu sitio de confianza para respuestas. No olvides regresar para obtener más información.