测测自己的编程能力!

[kisstome88]

编写一个图形:
用VB写一个点围着一个圆运动的程序,测试测试自己!

[用户 昵称]

Option Explicit
Dim j As Double

Private Sub Form_Load()
    Me.AutoRedraw = True
    Me.ScaleMode = 3
    Timer1.Interval = 100
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim cx As Long
    Dim cy As Long
    cx = Me.Width / 30
    cy = Me.Height / 30
    
    Cls
    Circle (cx, cy), 100, vbRed
    Circle (cx + 100 * Cos(j), cy - 100 * Sin(j)), 2, vbBlue
    j = j + 0.05
End Sub

[kisstome88]

你这个方法可以是可以,但是你有没有想过如果运动的物体是一个图片呢?

[kisstome88]

看你也是个高手,就不考你们了哦!!

[用户 昵称]

图片有图片的方法，没做之前俺也不知道怎么做，仓促做出来之后自然不会多好。

[kisstome88]

呵呵,图片就更简单了哦
Option Explicit
Dim j As Double

Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = 3
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim cx As Long
Dim cy As Long
cx = Me.Width / 30
cy = Me.Height / 30

Cls
Circle (cx, cy), 100, vbRed
Picture1.left=cx + 100 * Cos(j)
Picture1.top=cy - 100 * Sin(j)
j = j + 0.05
End Sub