[分享][原创]用Excel做的益智游戏——交通疏导

bengdeng

有意思，发现到第2个BUG，可以把车辆拖出单元格区域A1：F6外
我想，这样是不行的吧 继续修正。

bengdeng

继续挑BUG（因为喜欢才会去挑，不吸引眼球俺还不干呢）
当选择大于一个单元格时，没有处理，唉，这个不能偷懒地，要不这样的区域一拖动，程序马上有问题（注：你代码中直接Exit Sub了 ）

bengdeng

再找一个吧 没有禁止更改单元格的颜色
后果很严重，比如要骗程序过98关最快的方法是，选择D3：G3然后设定单元格的填充颜色为无，然后双击D3格三次（PS：为什么是三次还没有研究 ）
然后程序就认为你通过了
Range(Cells(3, Car(0).Column + 2), Cells(3, 6)).Interior.ColorIndex = -4142
条件成立 不要丢西红柿哦，我只是就程序论游戏

彭希仁

高手啊

bengdeng

原帖由 AIEO.CN 于 2007-11-2 09:54 发表
有没有通过第98关的？不要谦虚哟，知会一声

终于全部通过，包括98关，下面给出98关的移动步骤，希望楼主继续努力
Sub 第98关移动步骤()

    Range("F4:F6").Cut Destination:=Range("F2:F4")
    Range("D5:E5").Cut Destination:=Range("E5:F5")
    Range("D6:E6").Cut Destination:=Range("E6:F6")
    Range("B6:C6").Cut Destination:=Range("A6:B6")
    Range("D2:D3").Cut Destination:=Range("D5:D6")
    Range("C4:C5").Cut Destination:=Range("C5:C6")
    Range("A4:B4").Cut Destination:=Range("C4:D4")
    Range("B3:C3").Cut Destination:=Range("C3:D3")
    Range("A1:A3").Cut Destination:=Range("A3:A5")
    Range("B1:B2").Cut Destination:=Range("B4:B5")
    Range("C1:D1").Cut Destination:=Range("A1:B1")
    Range("E1:F1").Cut Destination:=Range("C1:D1")
    Range("E2:E4").Cut Destination:=Range("E1:E3")
    Range("F2:F4").Cut Destination:=Range("F1:F3")
    Range("C4:D4").Cut Destination:=Range("E4:F4")
    Range("C5:C6").Cut Destination:=Range("C4:C5")
    Range("D5:D6").Cut Destination:=Range("D4:D5")
    Range("A6:B6").Cut Destination:=Range("C6:D6")
    Range("A3:A5").Cut Destination:=Range("A4:A6")
    Range("C3:D3").Cut Destination:=Range("A3:B3")
    Range("C4:C5").Cut Destination:=Range("C2:C3")
    Range("D4:D5").Cut Destination:=Range("D2:D3")
    Range("E4:F4").Cut Destination:=Range("C4:D4")
    Range("E5:F5").Cut Destination:=Range("C5:D5")
    Range("F1:F3").Cut Destination:=Range("F3:F5")
    Range("E1:E3").Cut Destination:=Range("E3:E5")
    Range("C1:D1").Cut Destination:=Range("E1:F1")
    Range("C2:C3").Cut Destination:=Range("C1:C2")
    Range("D2:D3").Cut Destination:=Range("D1:D2")
    Range("A3:B3").Cut Destination:=Range("C3:D3")
    Range("A4:A6").Cut Destination:=Range("A2:A4")
    Range("C6:D6").Cut Destination:=Range("A6:B6")
    Range("E6:F6").Cut Destination:=Range("C6:D6")
    Range("E3:E5").Cut Destination:=Range("E4:E6")
    Range("F3:F5").Cut Destination:=Range("F4:F6")

End Sub

AIEO.CN

阔别许久，这是近两年前的东东。

其实该游戏完整版有整整100个游戏（其中有1个有错，不能通过），修正了一些错误，而且可以记录游戏过程，甚至可以多人联机比赛。本来想做成一个产品，后来忙起来就搁置了。现在想想也没啥意思，过一阵有空了重新发一个新版的上来。

cuikk

我真爱浅薄了，抓紧学习才是呀！

cuikk

我真爱浅薄了，抓紧学习才是呀！

莫莫冰儿

楼主真历害呀，！！

飞云楼主

收藏，。。。。。。