如果您无法下载资料，请参考说明：
1、部分资料下载需要金币，请确保您的账户上有足够的金币
2、已购买过的文档，再次下载不重复扣费
3、资料包下载后请先用软件解压，在使用对应软件打开
DimaAsSingle,bAsSingle,cAsSinglePrivateSubCommand1_Click()Form3.HideForm2.ShowTimer1.Enabled=TrueForm2.Picture1.ClsForm2.Picture1.DrawWidth=2l=738.09a=Atn((360+108.16*Sin(b))/(108.16*Cos(b)))Ifb>1.57Andb<=4.71Thena=a+3.14EndIfForm2.Picture1.Circle(2500,1500),174*3,RGB(0,0,255)Form2.Picture1.Circle(2500-540,1500+358.2),42*3,RGB(0,0,255)Form2.Picture1.Line(2500,2640)-Step(1500,0),RGB(255,0,0)Form2.Picture1.Line(2500,2640)-Step(0,-2200),RGB(255,0,0)Form2.Picture1.Line(2500,2640)-Step(3*l*Cos(a),-3*l*Sin(a))Form2.Picture1.Line(2500,1500)-Step(3*108.16*Cos(b),-3*108.16*Sin(b))Form2.Picture1.Line(2500+3*l*Cos(a)-1700,270)-Step(3300,0)Form2.Picture1.Line(2500+3*l*Cos(a),270)-Step(0,450)Form2.Picture1.Circle(2500+3*l*Cos(a),2640-3*l*Sin(a)),20Form2.Picture1.Line(2500+3*l*Cos(a)-60,2640-3*l*Sin(a)-80)-Step(120,160),,BForm2.Picture1.Circle(2500+3*108.16*Cos(b),1500-3*108.16*Sin(b)),20Form2.Picture1.Line(2500+3*108.16*Cos(b)+100*Cos(a-0.64),1500-3*108.16*Sin(b)-100*Sin(a-0.64))-Step(-160*Cos(a),160*Sin(a))Form2.Picture1.Line-Step(-120*Cos(1.57-a),-120*Sin(1.57-a))Form2.Picture1.Line-Step(160*Cos(a),-160*Sin(a))Form2.Picture1.Line-Step(120*Cos(1.57-a),120*Sin(1.57-a))b=b+0.34Ifb>6.28Thenb=bMod3.14EndSubPrivateSubCommand2_Click()Timer1.Enabled=FalseEndSubPrivateSubCommand3_Click()Form2.ShowUnloadMeEndSubPrivateSubTimer1_Timer()Form2.Picture1.DrawWidth=2l=738.09a=Atn((360+108.16*Sin(b))/(108.16*Cos(b)))Ifb>1.57Andb<=4.71Thena=a+3.14EndIfForm2.Picture1.Circle(2500,1500),174*3,RGB(0,0,255)Form2.Picture1.Circle(2500-540,1500+358.2),42*3,RGB(0,0,255)Form2.Picture1.Line(2500,2640)-Step(1500,0),RGB(255,0,0)Form2.Picture1.Line(2500,2640)-Step(0,-2200),RGB(255,0,0)Form2.Picture1.Line(2500,2640)-Step(3*l*Cos(a),-3*l*Sin(a))Form2.Picture1.Line(2500,1500)-Step(3*108.16*Cos(b),-3*108.16*Sin(b))Form2.Picture1.Line(2500+3*l*Cos(a)-1700,270)-Step(3300,0)Form2.Picture1.Line(2500+3*l*Cos(a),270)-Step(0,450)Form2.Picture1.Circle(2500+3*l*
