v6b06-15.frm

金旭亮的java教案

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "VB6 例6-15 点的追逐"
   ClientHeight    =   3195
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu menu1 
      Caption         =   "算法一"
   End
   Begin VB.Menu menu2 
      Caption         =   "算法二"
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Sub movedot(a1, a2, b1, b2, t)
    a1 = a1 + (a2 - a1) * t
    b1 = b1 + (b2 - b1) * t
End Sub

Private Sub menu1_Click()
    Cls
    Dim xa, ya, xb, yb, t As Single
    Scale (-200, 100)-(200, -100)
    t = 0.1
    xa = 200: ya = 100
    xb = -200: yb = 100
    Do Until ya < -100
    ya = ya - 4
    Line (xb, yb)-(xa, ya)
    xb = xb + (xa - xb) * t
    yb = yb + (ya - yb) * t
    Loop
End Sub

Private Sub menu2_Click()
    Cls
    Dim x1, y1, x2, y2, x3, y3, x4, y4
    Scale (-200, 200)-(200, -200)
    x1 = -200: y1 = 200
    x2 = 200: y2 = 200
    x3 = 200: y3 = -200
    x4 = -200: y4 = -200
    t = 0.05
    Do Until Sqr((x2 - x1) * (x2 - x1) + (y2 - y1) * (y2 - y1)) < 10
    Line (x1, y1)-(x2, y2)
    Line -(x3, y3)
    Line -(x4, y4)
    Line -(x1, y1)
    movedot x1, x2, y1, y2, t
    movedot x2, x3, y2, y3, t
    movedot x3, x4, y3, y4, t
    movedot x4, x1, y4, y1, t
    Loop
End Sub