module1.bas

计算操作程序

Attribute VB_Name = "Module1"
Option Explicit

Public samplex, sampley As Integer

Public tx, ty As Integer

Public visitcontour(600, 600) '所有的边界点的位置为其两个坐标，
                           '其值为布尔型的，含义为它是否已经被访问过。
                            '初值均被设为假，即没被访问过。
                            
Public contour_counter  As Integer