Question

求用VB制作沿轨迹运动的小球的frm文件，如图。

急求，抱拳了

Answer 1

Const π As Double = 3.1415926
Dim k
Private Sub Command1_Click()
  For x = -4 * π To 4 * π Step 0.001
    PSet (x, Cos(x)), vbBlue
  Next x
End Sub

Private Sub Command2_Click()
  Timer1.Interval = 1
End Sub

Private Sub Command3_Click()
  Timer1.Interval = 0
End Sub

Private Sub Form_Load()
  Me.AutoRedraw = True
  Scale (-4 * π, 1)-(4 * π, -1)
  k = 喊大-4 * π
  PSet (0, 穗毕0)
  Me.FillColor = 郑族竖vbRed
  Me.FillStyle = 0
End Sub

Private Sub Timer1_Timer()
  Cls
  For x = -4 * π To 4 * π Step 0.005
    PSet (x, Cos(x)), vbBlue
  Next x
  Circle (k, Cos(k)), 0.25, vbRed
  k = k + 0.04
  If k >= 4 * π Then k = -4 * π
End Sub