有道理。
不过对于图像处理，函数每次对局部变量定义给空间的影响太微乎其微了，只是计算下大小，移动栈指针（貌似vb会对定义的空间初始化为0，要费些时间）。

原来如此，这个办法好，每个细胞都可以作８个邻居处理，不需要特殊照顾，只要让最外面一圈不显示出来就好看了。

可不可以加一个功能，判定当细胞完全固定组成时终止？
我想了下，如果将所有格子的上次情况与当前格子情况完全相同时终止，可是我发现有些细胞的固定群落是三个连续的细胞，但是这三个细胞会不断的改方向，所以我的算法失效了。
谁能提个建议么？

[此贴子已经被作者于2016-2-20 23:15编辑过]

你可以增加这个功能啊。
增加后，然后把整个代码贴出来就行了，本贴本来就是大家一起讨论讨论。
我没经过正规的代码格式要求训练来，写的代码也都是想当然格式的，有些算法，也是想到什么就写什么，没有系统的学习过。这些要感谢 wmf2014 ，让我开了眼界。

那我再想想，主要是我读代码能力蛮差的，你的代码我看不懂那些是存储格子当前数据的数组，能说一下么？

除了全部空格之外恐怕没有自动固定下来的可能。人为限制它的代数是可以的

用shape控件数组，能不能显示不哪么闪？

使用 shape 控件的话，闪烁可能更好一点，但画面可能可以看到刷新过程，不好。特别在修改窗体大小时，重新排列控件时，那个处理速度，你可以自己写代码感受一下。
vb本来操作对象就很慢。

要不闪烁，就必须使用缓冲区绘图，然后一次复制到窗口，代码量要明显多很多，那个不是新手掌握的内容，所以没写。

Z这个数组，保存着每代的状态。
1 表示生，0表示死。因为不用节省内存，再加上位运算很烦，所以用的  byte

每个明确意义的变量都有注释，除下循环变量和临时变量。

[此贴子已经被作者于2016-2-21 23:54编辑过]

可以采取生命周期的算法：即0是死，大于0即使生。
整个题目相应规则也应改变：
1：周围有大于4个的直接死
2：周围有3个的生命值=10
3：其他情况生命值每刷新一次-1，到0为止。
4：初始值都为10
按照这个规则就不存在永生的细胞了。