VB-Helper：坚守脚本

领测软件测试网

      Const cx As Integer = 150
      Const cy As Integer = 150
      Dim t As Single = 0
      Dim dt As Single = 0.01
      Dim x1, y1, x2, y2 As Integer
      ThePicture.Clear()
      x2 = cx + X(t)
      y2 = cy + Y(t)
      t += dt
      Do While t < 2 * PI
         x1 = x2
         y1 = y2
         x2 = cx + X(t)
         y2 = cy + Y(t)
         ThePicture.MakeSegment(x1, y1, x2, y2, _
            Color.Black, 1)
         t += dt
      Loop
      x1 = cx + X(0)
      y1 = cy + Y(0)
      ThePicture.MakeSegment(x1, y1, x2, y2, _
         Color.Black, 1)
   End Sub
   Private Sub MyPicture_CreatedSegment(ByVal seg _

文章来源于领测软件测试网 https://www.ltesting.net/