程序如下：
private sub form_click( )
backcolor=vbwhite
call drawcircle(scalewidth/2,scaleheight/2,scalewidth/6.5
end sub
private sub drawcircle(X As integer ,Y As integer ,R As integer)
dim int1 As integer
if R<60 then
circle (X,Y),R
else
circle (X,Y),R
for int1= 0 to 7
call drawcircle(X+2*R* cos(int1*3.141593/4),_Y+2*R*sin
(int1*3.141593/4),r/3.5)
next
end if
end sub
[此贴子已经被作者于2004-04-23 09:49:37编辑过]
