佩服！！

真好，拿来看看

试试~

是里面的计算有问题
总计的时候把撞墙的情况也计算进去了
也就是只要按键盘就计算步骤 这不合理
If x > 0 And y > 0 And x <= mx And y <= my Then
    'panduanshifounengtongguo shiyongleqianmiandepanduan
    t = Abs(A(Rx, Ry) - A(x, y))
    If t <= 1 Or t - 1000 = A(Rx, Ry) Or t - 1000 = A(x, y) Then
        Picture1.Line (intWIDTH + Rx * intLONG - lngBange, intWIDTH + Ry * intLONG - lngBange)- _
        (intWIDTH + x * intLONG - lngBange, intWIDTH + y * intLONG - lngBange), RGB(0, 255, 0)           '此行分成二行写
            
        Rx = x
        Ry = y

        Call SUBShow
    Else
        RB = RB - 1
    End If
End If
追加  else  RB = RB - 1  就可以了

计数器貌似除了点问题哎

感谢楼主提供代码,呵呵~~~~~~~~~~~~~~~~~~~~

我也来研究研究