程序如下：

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编辑过]

楼主我真搞不懂，过程定义的时候用的名称是 drawcicle，而调用的时候用的是drawcircle(多一个r)

颜色值vbWhite你居然写成vbwrite

不好意思写错了

我已经编辑过了，我改过来了。不好意思呀，敲程序的时候写错了，谢谢提醒

call drawcircle(scalewidth/2,scaleheight/2,scalewidth/6.5）这句话里，scalewidth是不是写错了呀，应该是定义一个半径R的呀，

不是呀，它是定义半径r的，但我这里半径r的初值就是scalwidth/6.5呀，

call drawcircle(scalewidth/2,scaleheight/2,scalewidth/6.5）这一句是调用过程的

什么意思呀，又不发表意见

call drawcircle(X+2*R* cos(int1*3.141593/4),_Y+2*R*sin

(int1*3.141593/4),r/3.5)

这个语句中的"_"是没有用的，大家注意些！！

http://www.