作业帮 > 数学 > 作业

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

来源:学生作业帮 编辑:百度作业网作业帮 分类:数学作业 时间:2024/05/11 20:11:01
在VB中,如何反复画一个圆,每隔10毫秒逆时针画一度
在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 Su