诡求高手帮我做个作业

来源：百度知道 编辑：UC知道 时间：2024/06/08 19:15:06
题目：画一圆，大小、颜色自定，有一黄色亮点沿圆的轨迹顺时移动，滚动速度由滚动条的value值控制。（提示：用Timer控体控制移动动画，用scrollbar控制速度）

Private Sub Form_Load()
Timer1.Interval = 100
VScroll1.Max = 10
VScroll1.Min = 1
End Sub

Private Sub Timer1_Timer()
Me.Cls
Static angle
Me.DrawWidth = 5
Me.Circle (Form1.Width / 2, Form1.Height / 2), 1000, vbRed
Me.PSet (Form1.Width / 2 + 1000 * Cos(angle * 3.14 / 180), Form1.Height / 2 + 1000 * Sin(angle * 3.14 / 180)), vbYellow
angle = angle + VScroll1.Value
End Sub