Sub pictchl1()Dim l1() As Integer '水平Dim w1() As IntegerDim l2() As IntegerDim w2() As IntegerFor i = X1 To X2 '下Yn = k * Xn + bReDim l1(X1 To (X1 + 1))ReDim w1(X1 To (X1 + 1))xs1 = Picture1.Point(i, j)xs2 = Picture1.Point(i, j + 1)xscha = Abs(xs2 - xs1)Do While xscha > 8j = j + 1xs1 = xs2xs2 = Picture1.Point(i, j + 1)xscha = Abs(xs2 - xs1)Loopl1(i) = Abs(j - Yn)w1(i) = Int(0.7 * l1(i))ReDim Preserve l1(UBound(l1) + 1)
1 回答
茅侃侃
TA貢獻(xiàn)1842條經(jīng)驗(yàn) 獲得超22個(gè)贊
...........
Loop
l1(i) = Abs(j - Yn)
w1(i) = Int(0.7 * l1(i))
a=UBound(l1) '這樣做試試
ReDim Preserve l1(a + 1)
添加回答
舉報(bào)
0/150
提交
取消