Answered

Obtén soluciones a tus preguntas en Revelroom.ca, la plataforma de Q&A más rápida y precisa. Nuestra plataforma ofrece una experiencia continua para encontrar respuestas fiables de una red de profesionales experimentados. Explora un vasto conocimiento de profesionales en diferentes disciplinas en nuestra completa 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
Gracias por visitar. Nuestro objetivo es proporcionar las respuestas más precisas para todas tus necesidades informativas. Vuelve pronto. Gracias por usar nuestra plataforma. Nuestro objetivo es proporcionar respuestas precisas y actualizadas para todas tus preguntas. Vuelve pronto. Tu conocimiento es valioso. Regresa a Revelroom.ca para obtener más respuestas e información.