老鼠走迷宫

jsgj2023

  有一个二维矩阵,代表迷宫,用2表示墙壁,0表示可以行走的通道,老鼠走过的路径方格用1表示.试设计一个程序,输出老鼠走出迷宫的行走路径.
  

microyip

最近怎么啦？老是发这些，难道被那个laoau盗号了？

a68508122

感觉像面试题

jsgj2023

microyip 发表于 2017-5-17 10:26
最近怎么啦？老是发这些，难道被那个laoau盗号了？

没有被盗,就是想知道这样一些题目怎么做?

jsgj2023

a68508122 发表于 2017-5-17 10:32
感觉像面试题

论坛有高手可以做的,就是不知道他们是否有时间?

小花鹿

感觉要用递归..................................

jsgj2023

小花鹿 发表于 2017-5-17 11:40
感觉要用递归..................................

您的递归也玩得很溜,有空解答此题吗?

Moneky

1. Sub vGo(r As Long, c As Long)
   
2.     If Cells(r, c) = "出口" Then
   
3.         MsgBox "OK"
   
4.         End
   
5.     End If
   
6.     If Cells(r, c + 1).Interior.Color <> vbBlack And Cells(r, c + 1) = "" Or Cells(r, c + 1) = "出口" Then
   
7.         Cells(r, c) = 1
   
8.         vGo r, c + 1
   
9.     ElseIf Cells(r + 1, c).Interior.Color <> vbBlack And Cells(r + 1, c) = "" Or Cells(r + 1, c) = "出口" Then
   
10.         Cells(r, c) = 1
    
11.         vGo r + 1, c
    
12.     ElseIf Cells(r, c - 1).Interior.Color <> vbBlack And Cells(r, c - 1) = "" Or Cells(r, c - 1) = "出口" Then
    
13.         Cells(r, c) = 1
    
14.         vGo r, c - 1
    
15.     ElseIf Cells(r - 1, c).Interior.Color <> vbBlack And Cells(r - 1, c) = "" Or Cells(r - 1, c) = "出口" Then
    
16.         Cells(r, c) = 1
    
17.         vGo r - 1, c
    
18.     ElseIf Cells(r, c - 1) = 1 Then
    
19.         Cells(r, c) = "×"
    
20.         vGo r, c - 1
    
21.     ElseIf Cells(r + 1, c) = 1 Then
    
22.         Cells(r, c) = "×"
    
23.         vGo r + 1, c
    
24.     ElseIf Cells(r, c + 1) = 1 Then
    
25.         Cells(r, c) = "×"
    
26.         vGo r, c + 1
    
27.     ElseIf Cells(r - 1, c) = 1 Then
    
28.         Cells(r, c) = "×"
    
29.         vGo r - 1, c
    
30.     Else
    
31.         MsgBox "No way!"
    
32.         End
    
33.     End If
    
34. End Sub
    
35. Sub test()
    
36.     vGo 2, 2 '入口在cells(2,2)
    
37. End Sub
    

复制代码

Moneky

1. Sub vGo(r As Long, c As Long)
   
2.     If Cells(r + 1, c) = "出口" Or Cells(r, c - 1) = "出口" Or Cells(r - 1, c) = "出口" Or Cells(r, c + 1) = "出口" Then
   
3.         Cells(r, c) = 1
   
4.         MsgBox "OK"
   
5.         End
   
6.     End If
   
7.     If Cells(r, c + 1).Interior.Color <> vbBlack And Cells(r, c + 1) = "" Then
   
8.         Cells(r, c) = 1
   
9.         vGo r, c + 1
   
10.     ElseIf Cells(r + 1, c).Interior.Color <> vbBlack And Cells(r + 1, c) = "" Then
    
11.         Cells(r, c) = 1
    
12.         vGo r + 1, c
    
13.     ElseIf Cells(r, c - 1).Interior.Color <> vbBlack And Cells(r, c - 1) = "" Then
    
14.         Cells(r, c) = 1
    
15.         vGo r, c - 1
    
16.     ElseIf Cells(r - 1, c).Interior.Color <> vbBlack And Cells(r - 1, c) = "" Then
    
17.         Cells(r, c) = 1
    
18.         vGo r - 1, c
    
19.     ElseIf Cells(r, c - 1) = 1 Then
    
20.         Cells(r, c) = "×"
    
21.         vGo r, c - 1
    
22.     ElseIf Cells(r + 1, c) = 1 Then
    
23.         Cells(r, c) = "×"
    
24.         vGo r + 1, c
    
25.     ElseIf Cells(r, c + 1) = 1 Then
    
26.         Cells(r, c) = "×"
    
27.         vGo r, c + 1
    
28.     ElseIf Cells(r - 1, c) = 1 Then
    
29.         Cells(r, c) = "×"
    
30.         vGo r - 1, c
    
31.     Else
    
32.         MsgBox "No way!"
    
33.         End
    
34.     End If
    
35. End Sub
    
36. Sub test()
    
37.     vGo 13, 18 '入口在cells(2,2)
    
38. End Sub
    

复制代码

可以在表格中用黑色作为墙直观的画出迷宫，并在出口单元格中填上“出口”二字，然后调用 vGO r,c      r，c表示入口的行标和列标，执行结束后，单元格中的1就是路径





从起点开始连续的1才是路径



只能找到路径但并不是最短的路径。

yayahzmeng

Moneky 发表于 2017-5-17 21:58
附件和代码还在审核。。。

可以在表格中用黑色作为墙直观的画出迷宫，并在出口单元格中填上“出口”二字 ...

妙！
颜色就如几何中的辅助线，一下豁然开朗