请教：在简单的有向图中已知起点和终点条件下，求不重复的所有路径的算法

Question

大家好，我想求在简单的有向图中已知起点和终点条件下，求不重复的所有路径的算法！！
冥思苦想了很长时间还是不得其解，请高人指点啊！！
急需这个算法啊！！谢谢了！！

Answer 1

我编了个简单的算法，自己假设了个简单的路网，怎么运行后没有反映啊，好郁闷。
从理论上我都在纸上一步步运行过了，应该是对的啊！！请高人指点一下！！万分感谢！！万分感谢！！万分感谢！！万分感谢！！万分感谢！！万分感谢！！万分感谢！！万分感谢！！万分感谢！！Dim pa(0 To 3) As String
Dim used(0 To 3), pl, k As Integer
Dim g(0 To 3, 0 To 3) As IntegerPrivate Sub Command1_Click()
    used(0) = 1
    goo (0)
    Text1 = k
End SubPrivate Function goo(ii As Integer)
     Dim j As Integer
     g(0, 0) = 0
     g(0, 1) = 1
     g(0, 2) = 1
     g(0, 3) = 1
     g(1, 0) = 0
     g(1, 1) = 0
     g(1, 2) = 0
     g(1, 3) = 1
     g(2, 0) = 0
     g(2, 1) = 0
     g(2, 2) = 0
     g(2, 3) = 1
     g(3, 0) = 0
     g(3, 1) = 0
     g(3, 2) = 0
     g(3, 3) = 0
     
     pl = 0
      pa(pl) = Chr$(Asc("A") + ii)
     pl = pl + 1
     If Chr$(Asc("A") + ii) = "E" Then
        k = k + 1
        Text1 = pa(0)
        For j = 1 To pl
            Text1 = Text1 & "->" & pa(j)
        Next
     End If
     For j = 0 To 3
        If g(ii, j) = 1 And used(j) = 0 Then
           used(j) = 1
           goo (j)
           pl = pl - 1
           used(j) = 0
        End If
     Next
End Function