介绍一个VB小的有趣的程序代码答:PrivateWithEventsTimer1AsTimer Dimr&,r1&,t&,a1!,a2!,xb!,yb!,s!,b PrivateSubForm_Load()Me.Width=4500:Me.Height=4500 Me.Move(Screen.Width-Me.Width)\2,(Screen.Height-Me.Height)\2 Me.AutoRedraw=True Me.Caption="CBM666的万花筒"SetTimer1=Controls.Add("vb.timer","Timer1")...