vb孔明棋源码

【文件属性】：

文件名称：vb孔明棋源码

文件大小：61KB

文件格式：RAR

更新时间：2015-07-16 18:34:13

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 <= (o + 6 * k - 6)) Then Label1(l).Enabled = True Label1(l).BackColor = &HC000;& temp(l) = 0 End If Next l Next k End Sub Public Sub finish() s = 0 For i = 1 To 36 If temp(i) = 1 Then s = s + 1 End If Next If s = n * n Then MsgBox "恭喜您！", , "获胜" n = n + 1 Call start(n) End If End Sub

【文件预览】：
VB版孔明棋小游戏源码
----解压密码.txt(633B)
----VB版孔明棋小游戏源码.rar(60KB)