With line l 连杆的长 Tag=Sqr(x1-X2)^2+(.Y1-.Y2)^2) End with End sub 编写 Timer1的 Timer事件代码 Private Sub Timerl Timer t=t+1 Shape3. Left=X0+ Shapel Tag* Sin(pi*t/30)-30 Shape3. Top=Y0- Shapel Tag Cos(pi*t/30)+ 30 Line l X1= Shape. Left +30 Linel.Y1-Shape3Top 30 Line l X2- Shape3 Left Sqr(Linel Tag 2(Shape3 Top-Y0) 2) Line2.Ⅹl= Linel.X1 Line2Y1= LinelY1 Shape2 Left= Line 1. X2 End subWith Line1 ' 连杆的长 .Tag = Sqr((.X1 – .X2) ^ 2 + (.Y1 – .Y2) ^ 2) End With End Sub 编写Timer1的Timer事件代码： Private Sub Timer1_Timer() t = t + 1 Shape3.Left = X0 + Shape1.Tag * Sin(pi * t / 30) – 30 Shape3.Top = Y0 – Shape1.Tag * Cos(pi * t / 30) + 30 Line1.X1 = Shape3.Left + 30 Line1.Y1 = Shape3.Top + 30 Line1.X2 = Shape3.Left + Sqr(Line1.Tag ^ 2 – (Shape3.Top – Y0) ^ 2) Line2.X1 = Line1.X1 Line2.Y1 = Line1.Y1 Shape2.Left = Line1.X2 End Sub