文档介绍:新手用VB做的钟表小程序Dimpi!,m!,f!,s!’通用变量‘时针绘制Functionsz(s1AsSingle)=3R=(0,0)-(R*Cos(s),R*Sin(s)),RGB(0,0,255)EndFunction‘分针绘制Functionfz(f1AsSingle)=3R=(0,0)-(R*Cos(f),R*Sin(f)),RGB(0,0,0)EndFunction‘秒针绘制Functionmz(m1AsSingle)=3R=(0,0)-(R*Cos(m),R*Sin(m)),RGB(255,0,0)EndFunction‘表盘绘制Functionbphz()=(0,0),1500,RGB(0,0,0)=2DimR!,r1!,x!,y!,ang!R=1500r1=1250Fori=0To2*piStep2*pi/(r1*Cos(i),r1*Sin(i))-(R*Cos(i),R*Sin(i)),RGB(0,0,0)Nextr1=1400Fori=0To2*piStep2*pi/(r1*Cos(i),r1*Sin(i))-(R*Cos(i),R*Sin(i)),RGB(0,0,0)NextEndFunction‘窗体加载PrivateSubForm_Load()