连连看连接测试.bas

用VB写的连连看游戏

Attribute VB_Name = "Module3"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'使用栈实现回朔法
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'1.使用一个顺序栈来完成路径的记录，要求栈记录走过的路径，并且记录是否是转弯点和弯点的方向
'2.退栈条件：1.已经没有路可以走（不能走已经走过的路）2.已经有两次以上的转弯记录
'3.退栈的方式：1.对于第一种退栈条件只需要退一个记录。2.对于第二种条件需要退到弯点处
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'栈的结构
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'数据类型如下：
'Type nodestack
'x As Integer '记录走过路径的X坐标
'y As Integer '记录走过路径的y坐标
'flag As Integer '方向记录
'wd As Integer '记录是否是一个转弯点.1表示是一个弯点,0表示不是一个弯点
'n as integer'记录转弯的次数
'End Type
''''''''''''''''''''''''''''''''''''''''''

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'该过程完成对记录连接的判断
'使用对栈的操作完成回朔法
'如果前面有障碍物，改变测试方向，如果全部测试过表示不通，进行退栈操作
'检测规则:顺时针方向检测1:向右,2:向下,3:向左,4:向上
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''