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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 10:34:59
vb怎么在一个圆内画一个正五边形?写下代码!vb怎么在一个圆内画一个正五边形?写下代码!vb怎么在一个圆内画一个正五边形?写下代码!PrivateSubCommand1_Click()DimiAsIn

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