VB各种图形设计Word格式文档下载.docx

VB各种图形设计Word格式文档下载.docx

《VB各种图形设计Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《VB各种图形设计Word格式文档下载.docx（17页珍藏版）》请在冰豆网上搜索。

Circle（x-1.5*r,y-1.5*r）,1.6*r

Circle（x-1.5*r,y+1.5*r）,1.6*r

Circle（x+1.5*r,y-1.5*r）,1.6*r

Circle（x+1.5*r,y+1.5*r）,1.6*r

r=Rnd*500+100

FillStyle=0

Circle（x,y）,r

EndSub

PrivateSubCommand2_Click（）

BackColor=RGB（Rnd*255,Rnd*255,Rnd*255）

Dimr%,i%,y%,x%,j%,k%,n%,t%

r=Rnd*700

DrawWidth=Int（Rnd*20+1）

x=Rnd*13000:

y=Rnd*6000:

i=Rnd*5000:

j=Rnd*5000:

k=Rnd*4000:

n=Rnd*300:

t=Rnd*300

Circle（x-2*（r+n）+k,y-2*（r+n）+i）,2*（r+n）

Circle（x-1.5*（r+n）+k,y+1.5*（r+n）+i）,1.6*（r+n）

Circle（x+2*（r+n）+k,y-2*（r+n）+i）,2*（r+n）

Circle（x+1.5*（r+n）+k,y+1.5*（r+n）+i）,1.6*（r+n）

Circle（x+k,y+i）,r

FillColor=QBColor（Rnd*15）

Circle（x-1.5*（r+n）+k,y-1.5*（r+n）+i）,r

Circle（x+1.5*（r+n）+k,y-1.5*（r+n）+i）,r

FillStyle=1

Circle（x-1.5*（r+n）+k,y-1.5*（r+n）+i）,r/2

Circle（x+1.5*（r+n）+k,y-1.5*（r+n）+i）,r/2

FillColor=QBColor（Rnd*10）

FillStyle=6

Circle（x-1.5*（r+t）-i,y-1.5*（r+t）+j）,1.6*（r+t）

Circle（x-1.5*（r+t）-i,y+1.5*（r+t）+j）,1.6*（r+t）

Circle（x+1.5*（r+t）-i,y-1.5*（r+t）+j）,1.6*（r+t）

Circle（x+1.5*（r+t）-i,y+1.5*（r+t）+j）,1.6*（r+t）

Circle（x-i,y+j）,r+2*t

Circle（x-i,y+j）,r+t/2

Circle（x-1.5*r+j,y-1.5*r+k）,1.6*r

FillStyle=2

Circle（x-1.5*r+j,y+1.5*r+k）,1.6*r

Circle（x+1.5*r+j,y-1.5*r+k）,1.6*r

Circle（x+1.5*r+j,y+1.5*r+k）,1.6*r

Circle（x+j,y+k）,r

r=Rnd*500

DrawWidth=2

Circle（x-1.5*（r+n）+k,y-1.5*（r+n）+i）,1.6*（r+n）

Circle（x+1.5*（r+n）+k,y-1.5*（r+n）+i）,1.6*（r+n）

Circle（x+k,y+i）,r+n/4

DrawWidth=Int（Rnd*10+1）

FillStyle=7

Circle（x-i,y+j）,r+t

DrawWidth=Int（Rnd*12+1）

Circle（x-1.5*（r+n+t）+i,y-1.5*（r+n+t））,1.6*（r+n+t）

Circle（x-1.5*（r+n+t）+i,y+1.5*（r+n+t））,1.6*（r+n+t）

Circle（x+1.5*（r+n+t）+i,y-1.5*（r+n+t））,1.6*（r+n+t）

Circle（x+1.5*（r+n+t）+i,y+1.5*（r+n+t））,1.6*（r+n+t）

Circle（x+i,y）,r+n+t

PrivateSubCommand3_Click（）

FillColor=&

H80000005

r=Rnd*2000

DrawWidth=1+0.02*r

x=Int（Rnd*14000）:

y=Int（Rnd*10000）

Circle（x,y）,r,QBColor（Rnd*10）

PrivateSubCommand4_Click（）

Dimi%,j%,r%,x%,t%

r=Rnd*1500

DrawWidth=1+0.01*r

x=Int（Rnd*10000）:

y=Int（Rnd*10000）:

i=Rnd*3000:

j=Rnd*3000:

t=Rnd*4000

Circle（x+i,y+j）,Rnd*3*r,QBColor（Rnd*15）

DrawWidth=1+0.005*r

PrivateSubCommand5_Click（）

DimxAsInteger,yAsInteger,rAsInteger,lAsInteger

DrawWidth=20

Randomize

x=Rnd*10000:

y=Rnd*10000:

r=Rnd*500

DrawMode=14

ForeColor=RGB（Int（Rnd*255）,Int（Rnd*255）,Int（Rnd*255））

Line（x,y）-（x+r*6,y）

Line（x,y）-（x,y+r*6）

Line（x+r*6,y）-（x+r*6,y+r*6）

Line（x,y+r*6）-（x+r*6,y+r*6）

Line（x,y）-（x+r*1.5*1.7,y-r*3）

Line（x+r*1.5*1.7,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3）

Line（x+r*6,y）-（x+r*1.5*1.7+r*6,y-r*3）

Line（x+r*1.5*1.7+r*6,y-r*3）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

Line（x+r*6,y+r*6）-（x+r*1.5*1.7+r*6,y-r*3+r*6）

DrawWidth=12

DrawWidth=11

DrawWidth=10

DrawWidth=9

Line（x+r*1.5*1.7,y