1. 首页
  2. 编程语言
  3. VB
  4. 万花规演示程序,随机产生不同的色采的万花规VB6.0源代码,Randomize

万花规演示程序,随机产生不同的色采的万花规VB6.0源代码,Randomize

上传者: 2019-07-06 06:02:05上传 RAR文件 33.63KB 热度 31次
万花规演示程序,随机产生不同的色采的万花规VB6.0源代码,Randomizer=240*(Rnd())R1=250s=r*Rnd()Fort=1To10000a1=t*3.1415926/180a2=(R1/r)*a1xb=(-(R1-r)*Cos(a1)-s*Cos(a2-a1)+320)*4yb=((R1-r)*Sin(a1)-s*Sin(a2-a1)+280)*4Picture1.ForeColor=RGB(255*Rnd(),0,25
用户评论