如何画一个多边形~~??????!帮帮忙啊~~~~急呀~~!!!!

Question

在form里面 实现 给定一个变量n  然后在程序运行时~~~提示输入的数值   n 就为这个多边形的顶点数~~然后在窗体里面  画出一个顶点为n的正多边形~~~~最好有源代码~~谢谢了~~~本人在线等待~~~~

Answer 1

Dim a, b, c, d As Long
Dim jd As Long
Dim n As Integer
pi = 3.14159
n = 10 ' 边数
jd = 360 / n
For i = 1 To n
    a = 2000 + 1000 * Cos(i * jd * pi / 180)
    b = 2000 + 1000 * Sin(i * jd * pi / 180)
    c = 2000 + 1000 * Cos((i + 1) * jd * pi / 180)
    d = 2000 + 1000 * Sin((i + 1) * jd * pi / 180)
Line (a, b)-(c, d)
Next i