直线扫描算法rivate ax1(100) As Integer, AY1(100) As Integer, AX2(100) As Integer, AY2(100) As IntegerPrivate CX1 As Integer, CY1 As Integer, CX2 As Integer, CY2 As Integer, N As IntegerPrivate Sub form_Load()Picture1.BackColor = RGB(255, 255, 255)N = 0End