Option Explicit
Private Const 横 = 78                       '横竖格子数
Private Const 竖 = 45
Private Const 灰 = 8421504                  '线框颜色
Private Const 死 = 16777215                 '死颜色
Private Const 生 = 65280                    '生颜色
Dim z(横 + 1, 竖 + 1) As Byte               '目标数组
Dim l(横 + 1, 竖 + 1) As Byte               '中间数组
Dim hd As Long                              '格子大小，横竖
Dim ld As Long
Dim js As Long                              '演变回合
Private Sub Form_Click()
......................