使用vb怎么画圆形的集合？
展开全部
Private Sub Form_Click()
Dim x As Double
Dim y As Double
Dim pi As Double
pi = 3.14159265358979
ScaleMode = 3
AutoRedraw = True
Scale (-1000, -1000)-(1000, 1000)
For i = 0 To 360 Step 15
x = 200 * Sin(i * pi / 180)
y = 200 * Cos(i * pi / 180)
Circle (x, y), 200, RGB(0, 0, 255)
Next i
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
