大家看看我这段程序那出错了，溢出堆栈空间。

mstmadonglei

Dim visited(1 To 6) As Boolean
Dim u, v As Integer
Dim i As Integer, k As Integer
g(1, 1) = 0:  g(1, 2) = 1:  g(1, 3) = 1:  g(1, 4) = 0:  g(1, 5) = 0:  g(1, 6) = 0:
g(2, 1) = 1:  g(2, 2) = 0:  g(2, 3) = 0:  g(2, 4) = 1:  g(2, 5) = 1:  g(2, 6) = 0:
g(3, 1) = 1:  g(3, 2) = 0:  g(3, 3) = 0:  g(3, 4) = 0:  g(3, 5) = 0:  g(3, 6) = 1:
g(4, 1) = 0:  g(4, 2) = 1:  g(4, 3) = 0:  g(4, 4) = 0:  g(4, 5) = 0:  g(4, 6) = 0:
g(5, 1) = 0:  g(5, 2) = 1:  g(5, 3) = 0:  g(5, 4) = 0:  g(5, 5) = 0:  g(5, 6) = 0:
g(6, 1) = 0:  g(6, 2) = 0:  g(6, 3) = 1:  g(6, 4) = 0:  g(6, 5) = 0:  g(6, 6) = 0:
For i = 1 To 6
visited(i) = False
Next i
Call dfs(1, g)
For i = 1 To 6
Print visited(i); "  ";
Next i
Print
End Sub
Sub dfs(u, g)
Dim visited(1 To 6) As Boolean
visited(u) = True
For k = 1 To 6
  If g(u, k) = 1 Then
  v = k
    If visited(v) = faulse Then
    Call dfs(v, g)
    End If
  End If
Next k
End Sub

maggic

应该是死循环了。
  

bzzllc

要么将 visited 定义未模块变量，要么通过参数传递，否则无意义。
还有打开 Option Explicit 选项，应该有编译错误。

hxl_zorro

If visited(v) = faulse Then  'visited 没有定义为模块变量，faulse应为false
Call dfs(v, g)   
End If