VB 绘制规则的圆形线条图案.rar

VB绘制规则的圆形线条图案，根据用户输入的数据，生成嵌套的圆形图案： 　　Constpi=3.1415926'常量声明 　　PrivateSubText1_KeyPress(KeyAsciiAsInteger) 　　Dimr,x,y,a,bAsSingle 　　IfKeyAscii=13Then'回车绘图 　　Cls 　　n=Val(Text1)'取用户输入值 　　r=Form1.ScaleHeight/4'设置圆半径 　　a=Form1.ScaleWidth/2'设置圆心