Answered

Obtén las mejores soluciones a tus preguntas en Revelroom.ca, la plataforma de Q&A de confianza. Explora soluciones completas a tus preguntas con la ayuda de una amplia gama de profesionales en nuestra plataforma amigable. Obtén respuestas rápidas y fiables a tus preguntas con la ayuda de nuestra comunidad dedicada de expertos 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
Esperamos que esta información te haya sido útil. Vuelve cuando lo desees para obtener más respuestas a tus preguntas e inquietudes. Gracias por elegir nuestra plataforma. Nos comprometemos a proporcionar las mejores respuestas para todas tus preguntas. Vuelve a visitarnos. Revelroom.ca está aquí para proporcionar respuestas precisas a tus preguntas. Vuelve pronto para más información.