vb怎么在一个圆内画一个正五边形?写下代码!

来源:学生作业帮助网 编辑:作业帮 时间:2024/07/07 17:03:12
vb怎么在一个圆内画一个正五边形?写下代码!
x)+Kzdg9+hxc9mOZO >[ɮ)/|wӶOvt?ٽFE"}JPl@QfYbIBpis~nnb^asNfr&XKfBcg^Ijzj\0, "VEM hX(bd``T"sC9(9'UABRS⺀BP,_P!$_,䓙 Q|D T_TS*t(XԊ05/6yvs

vb怎么在一个圆内画一个正五边形?写下代码!
vb怎么在一个圆内画一个正五边形?写下代码!

vb怎么在一个圆内画一个正五边形?写下代码!
Private Sub Command1_Click()
Dim i As Integer
Dim Pi As Single
Dim x As Single
Dim y As Single
Dim r As Single
Pi = 3.1415926
x = 2000
y = 2000
r = 1000
Circle (x,y),r
PSet (x + r,y)
For i = 1 To 5
Line -(x + r * Cos(2 * Pi * i / 5),y + r * Sin(2 * Pi * i / 5))
Next
End Sub