
提点建议:
在遍历周围八个格子的算法上,加两个偏移数祖
px={-1,0,1,-1,1,-1,0,1}
py={1,1,1,0,0,-1,-1,-1}
然后
for i=0 to 7
tempX=X+px(i)
tempY=Y+py(i)
<算法,包括是否越界>
next
这样就可以实现遍历,不用把代码复制粘贴7遍,可读性和可改性都很大
不知这样说是否清楚。
另外,虽然说为了程序的结构和可读性,编程时要尽量少用Goto,但是VB没有C语言的continue语句,C的程序移植在VB中时碰到continue就只能用goto解决或者直接换代码。不知大家有没有什么好的想法?