[已解决][趣题]寻路

爱疯

CuxrJSwI.rar (11.16 KB, 下载次数: 3)

2010-2-27 13:11 上传

点击文件名下载附件
寻路（趣味题）

说明：

1. 在x行x列范围中，寻找路径。
2. 起点是区域的左下角，终点是区域的右上角。
3. 从起点到终点，每次随机显示一条任何可能的路径。

这是没事时琢磨的一个自己觉得好玩的问题。有两处难点，到现在还实现不了：

1. 依次标记每一步，即第n步（第n号单元格里）输入n。
2. 求出x行x列的范围中，共有多少条可能的路径。

谢谢！

[此贴子已经被作者于2010-12-9 10:25:13编辑过]

最佳答案

月排行榜 / 总排行榜

HYY514

2010-2-27 19:33

规则是向右,向上历遍所有的路,再向下历遍.都是唯一不重复的,数量相当庞大.....够你看的了

如果允许往后走,这个数量还要*N次方...

Dim Pct As Long

Sub ff()
[a1:j10].Clear
[a1:j10].BorderAround ColorIndex:=3, Weight:=xlThick
Pct = 0
reRng Range("a10"), 0
End Sub
Sub reRng(Rng As Range, ByVal cnt As Integer)
cnt = cnt + 1

Rng.Value = cnt
Rng.Interior.ColorIndex = 4
If Rng.Address = "$J$1" Then
   
    Pct = Pct + 1
    [a12] = "第" & Pct & "条"
    [b12] = cnt & "步"
    'Stop
    For i = 1 To 10000 '延时,目的为了查看，或者你可以用Stop
        DoEvents
    Next
    Rng.Value = ""
    Rng.Interior.ColorIndex = 0
   
    Exit Sub
End If

If Rng.Column < 10 Then
    If Rng.Offset(0, 1) = "" Then
        reRng Rng.Offset(0, 1), cnt
    End If
End If

If Rng.Row = 1 Then
    Rng.Value = ""
    Rng.Interior.ColorIndex = 0
    Exit Sub
End If

If Rng.Offset(-1, 0) = "" Then
   reRng Rng.Offset(-1, 0), cnt
End If

If Rng.Row < 10 Then
    If Rng.Offset(1, 0) = "" Then
        reRng Rng.Offset(1, 0), cnt
    End If
End If
Rng.Value = ""
Rng.Interior.ColorIndex = 0
End Sub

[此贴子已经被作者于2010-2-27 19:38:51编辑过]

跳转到最佳答案楼层

fjmxwrs

不明白，等答案

爱疯

mZ7tMwhy.rar (13.23 KB, 下载次数: 0)

2010-2-27 16:34 上传

点击文件名下载附件
寻路（趣味题）

想省事，好计数，结果发现老是走到死路，错了N遍。等到好不容易没不出错了，却发现已偏离了要求（每1种可能，包括远路)。我正是放弃了远路，才避免死路的可能。我感觉第2种方法，弄不出满足要求的来了。

难道只能用第1种方法来计数 。。。。。

[em09]

爱疯

第1种方法列循环，这样就放弃了行循环的可能；即使行循环补上了，还有无规律乱走（但不被绕死）。。。。

所以1肯定不对。无规律，又不被绕死，太难了。。。。。。。。。。。。。。[em06]

爱疯

第3条太难了。不用代码，就用文字说，我都不知道怎么说，真是不可能完成的任务。。。。[em19]

不知道1楼问题，有解无解？

[em11]

搁浅2008

有没有回头路 要是没有就 左和上随即

爱疯

QUOTE:

以下是引用搁浅2008在2010-2-27 17:15:00的发言：
有没有回头路 要是没有就 左和上随即

还是不懂你的想法，我最新理解是：

1. 首先，判断当前随机产生出的路，能否从起点到终点？
2. 能的话，怎么走？结束
3. 不能的话，再随机生成一条路，再判断，直到出结果。

题目要求每次显示一条的路。所有有规律的路和无规律的路，都应看作无规律。而无规律只能用随机表示，那就意味一开始就随机生成一条路（通或不通），让你判断。

通路的话，再计算怎么走，如果通路存在多种走法，只要标注出其中任意一种即可。

[此贴子已经被作者于2010-2-27 17:55:50编辑过]

搁浅2008

你第2个方法不是很好么?

爱疯

QUOTE:

以下是引用搁浅2008在2010-2-27 17:40:00的发言：

你第2个方法不是很好么?

那是最少步数的方法，仅是所有方法中的很小一部分。

而题目要求随机显示任意一条通路（包括最少步数和走弯路）。这样的话，我实在想不出办法了。更何况，标数字，简直想都不敢想了，第1个问题都解决不了。。。。

爱疯

想象下，我们在这片土地上乱串，真正意义的无规律那种，来回A10,A9,A10,A9  ..... 再到终点的，某个格子重复，自然不算，你也知道。

如何描述所有的可能，除了随机。。。。。