InformáticaBásico1 respuestas

Calcular el area de un poligono en visual basic 6?

Calcular el area de un poligono en visual basic 6.

1Lisya

En resumen

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"), _ ", ", ".

Mejor respuesta

Gutierre

0

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.