如何用VB画五角星？？

来源：百度知道 编辑：UC知道 时间：2024/04/28 23:58:05
如何用VB画五角星啊？？急急急

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const Pi = 3.14159265358979
Cls
r = Val(InputBox("输入五角星的直径，大于1000")) / 2
'中心坐标是（x，y）
'求五个点的坐标
X1 = X: Y1 = Y - r
X2 = X + r * Cos(Pi / 10)
Y2 = Y - r * Sin(Pi / 10)
X3 = X + r * Cos(54 / 180 * Pi)
Y3 = Y + r * Sin(54 / 180 * Pi)
X4 = X - r * Cos(54 / 180 * Pi)
Y4 = Y3
X5 = X - r * Cos(18 / 180 * Pi)
Y5 = Y2
'画五角星
Line (X1, Y1)-(X3, Y3)
Line -(X5, Y5)
Line -(X2, Y2)
Line -(X4, Y4)
Line -(X1, Y1)

End Sub

用PSET方法。PSET（X，Y）
XY为坐标