vb孔明棋源码

vb编写的孔明棋小游戏源码 Public Sub disable() For i = 1 To 36 Label1(i).BackColor = &H8000000F; Label1(i).Enabled = False Next i End Sub Public Sub start(o) For k = 1 To o For l = 1 To 36 If (l >= (6 * k - 5)) And (l