在VB中,如何反复画一个圆,每隔10毫秒逆时针画一度

来源:学生作业学帮网 编辑:学帮网 时间:2024/06/04 21:35:06

在VB中,如何反复画一个圆,每隔10毫秒逆时针画一度

Option Explicit
Private i As Integer
Private Sub Form_Load()
Me.Timer1.Enabled = True
Me.Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If i < 360 Then
Dim pi
pi = 3.14159265
Me.ScaleMode = 3
Show
Me.Circle (100,100),100,,-2 * pi,(2 * (i + 1) / 360) * pi
i = i + 1
Else
Me.Timer1.Enabled = False
End If
End Sub