《野猪乐园》显示文章详细内容: [展开] [回复] [网址] [举报] [屏蔽]
灌水鼠
灌水鼠目前处于离线状态
  查看灌水鼠个人资料   给灌水鼠发悄悄话   将灌水鼠加入好友   搜索灌水鼠所有发表过的文章   给灌水鼠发送电子邮件      

画圆的程序~
private sub form_click()
pi=3.1415926
angle1=0
c=1
drawwidth=1
for r=800 to 1800 step 200
angle2=(angle2+(pi/2))mod(2*pi)
circle(2500,1800),r,qbcolor(c),angle1,angle2
angle1=angle1+(pi/4)
c=c+1
drawwidth=drawwidth+1
next r
end sub
2007-04-08 20:37:40   此文章已经被查看99次   
 相关文章: [回复]  [顶端] 



  您必须登录论坛才可以发表文章:
 
用户名:   密码:   记住密码:    (忘记密码 注册




版权所有 回龙观社区网 经营许可证编号:京B2-20201639 昌公网安备1101140035号

举报电话:010-86468600-5 举报邮箱: