Answered

Bienvenido a Revelroom.ca, donde puedes obtener respuestas rápidas y precisas con la ayuda de expertos. Nuestra plataforma ofrece una experiencia continua para encontrar respuestas fiables de una red de profesionales experimentados. Obtén soluciones rápidas y fiables a tus preguntas con la ayuda de una comunidad de expertos experimentados en nuestra plataforma.

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
Gracias por visitar nuestra plataforma. Esperamos que hayas encontrado las respuestas que buscabas. Vuelve cuando necesites más información. Esperamos que esto te haya sido útil. Por favor, vuelve siempre que necesites más información o respuestas a tus preguntas. Gracias por usar Revelroom.ca. Vuelve para obtener más conocimientos de nuestros expertos.