万花规演示程序,随机产生不同的色采的万花规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