⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 form1.frm

📁 a interesting and useful game which you can use quickly meanwhile you can enjoy yourself
💻 FRM
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0103_Click()
If Q(1, 3) = "" Then
     If QS = "W" Then
        I0103.Picture = w.Picture
        QS = "B"
        Q(1, 3) = "W"
     ElseIf QS = "B" Then
        I0103.Picture = b.Picture
        QS = "W"
        Q(1, 3) = "B"
     End If
     Z = GameOver(Q(1, 3))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0104_Click()
If Q(1, 4) = "" Then
     If QS = "W" Then
        I0104.Picture = w.Picture
        QS = "B"
        Q(1, 4) = "W"
     ElseIf QS = "B" Then
        I0104.Picture = b.Picture
        QS = "W"
        Q(1, 4) = "B"
     End If
     Z = GameOver(Q(1, 4))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0105_Click()
If Q(1, 5) = "" Then
     If QS = "W" Then
        I0105.Picture = w.Picture
        QS = "B"
        Q(1, 5) = "W"
     ElseIf QS = "B" Then
        I0105.Picture = b.Picture
        QS = "W"
        Q(1, 5) = "B"
     End If
     Z = GameOver(Q(1, 5))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0106_Click()
If Q(1, 6) = "" Then
     If QS = "W" Then
        I0106.Picture = w.Picture
        QS = "B"
        Q(1, 6) = "W"
     ElseIf QS = "B" Then
        I0106.Picture = b.Picture
        QS = "W"
        Q(1, 6) = "B"
     End If
     Z = GameOver(Q(1, 6))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0107_Click()
If Q(1, 7) = "" Then
     If QS = "W" Then
        I0107.Picture = w.Picture
        QS = "B"
        Q(1, 7) = "W"
     ElseIf QS = "B" Then
        I0107.Picture = b.Picture
        QS = "W"
        Q(1, 7) = "B"
     End If
     Z = GameOver(Q(1, 7))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0108_Click()
If Q(1, 8) = "" Then
     If QS = "W" Then
        I0108.Picture = w.Picture
        QS = "B"
        Q(1, 8) = "W"
     ElseIf QS = "B" Then
        I0108.Picture = b.Picture
        QS = "W"
        Q(1, 8) = "B"
     End If
     Z = GameOver(Q(1, 8))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0109_Click()
If Q(1, 9) = "" Then
     If QS = "W" Then
        I0109.Picture = w.Picture
        QS = "B"
        Q(1, 9) = "W"
     ElseIf QS = "B" Then
        I0109.Picture = b.Picture
        QS = "W"
        Q(1, 9) = "B"
     End If
     Z = GameOver(Q(1, 9))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0110_Click()
If Q(1, 10) = "" Then
     If QS = "W" Then
        I0110.Picture = w.Picture
        QS = "B"
        Q(1, 10) = "W"
     ElseIf QS = "B" Then
        I0110.Picture = b.Picture
        QS = "W"
        Q(1, 10) = "B"
     End If
     Z = GameOver(Q(1, 10))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0111_Click()
If Q(1, 11) = "" Then
     If QS = "W" Then
        I0111.Picture = w.Picture
        QS = "B"
        Q(1, 11) = "W"
     ElseIf QS = "B" Then
        I0111.Picture = b.Picture
        QS = "W"
        Q(1, 11) = "B"
     End If
     Z = GameOver(Q(1, 11))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0112_Click()
If Q(1, 12) = "" Then
     If QS = "W" Then
        I0112.Picture = w.Picture
        QS = "B"
        Q(1, 12) = "W"
     ElseIf QS = "B" Then
        I0112.Picture = b.Picture
        QS = "W"
        Q(1, 12) = "B"
     End If
     Z = GameOver(Q(1, 12))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0113_Click()
If Q(1, 13) = "" Then
     If QS = "W" Then
        I0113.Picture = w.Picture
        QS = "B"
        Q(1, 13) = "W"
     ElseIf QS = "B" Then
        I0113.Picture = b.Picture
        QS = "W"
        Q(1, 13) = "B"
     End If
     Z = GameOver(Q(1, 13))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0114_Click()
If Q(1, 14) = "" Then
     If QS = "W" Then
        I0114.Picture = w.Picture
        QS = "B"
        Q(1, 14) = "W"
     ElseIf QS = "B" Then
        I0114.Picture = b.Picture
        QS = "W"
        Q(1, 14) = "B"
     End If
     Z = GameOver(Q(1, 14))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0115_Click()
If Q(1, 15) = "" Then
     If QS = "W" Then
        I0115.Picture = w.Picture
        QS = "B"
        Q(1, 15) = "W"
     ElseIf QS = "B" Then
        I0115.Picture = b.Picture
        QS = "W"
        Q(1, 15) = "B"
     End If
     Z = GameOver(Q(1, 15))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0201_Click()
If Q(2, 1) = "" Then
     If QS = "W" Then
        I0201.Picture = w.Picture
        QS = "B"
        Q(2, 1) = "W"
     ElseIf QS = "B" Then
        I0201.Picture = b.Picture
        QS = "W"
        Q(2, 1) = "B"
     End If
     Z = GameOver(Q(2, 1))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0202_Click()
If Q(2, 2) = "" Then
     If QS = "W" Then
        I0202.Picture = w.Picture
        QS = "B"
        Q(2, 2) = "W"
     ElseIf QS = "B" Then
        I0202.Picture = b.Picture
        QS = "W"
        Q(2, 2) = "B"
     End If
     Z = GameOver(Q(2, 2))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0203_Click()
If Q(2, 3) = "" Then
     If QS = "W" Then
        I0203.Picture = w.Picture
        QS = "B"
        Q(2, 3) = "W"
     ElseIf QS = "B" Then
        I0203.Picture = b.Picture
        QS = "W"
        Q(2, 3) = "B"
     End If
     Z = GameOver(Q(2, 3))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0204_Click()
If Q(2, 4) = "" Then
     If QS = "W" Then
        I0204.Picture = w.Picture
        QS = "B"
        Q(2, 4) = "W"
     ElseIf QS = "B" Then
        I0204.Picture = b.Picture
        QS = "W"
        Q(2, 4) = "B"
     End If
     Z = GameOver(Q(2, 4))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0205_Click()
If Q(2, 5) = "" Then
     If QS = "W" Then
        I0205.Picture = w.Picture
        QS = "B"
        Q(2, 5) = "W"
     ElseIf QS = "B" Then
        I0205.Picture = b.Picture
        QS = "W"
        Q(2, 5) = "B"
     End If
     Z = GameOver(Q(2, 5))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0206_Click()
If Q(2, 6) = "" Then
     If QS = "W" Then
        I0206.Picture = w.Picture
        QS = "B"
        Q(2, 6) = "W"
     ElseIf QS = "B" Then
        I0206.Picture = b.Picture
        QS = "W"
        Q(2, 6) = "B"
     End If
     Z = GameOver(Q(2, 6))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0207_Click()
If Q(2, 7) = "" Then
     If QS = "W" Then
        I0207.Picture = w.Picture
        QS = "B"
        Q(2, 7) = "W"
     ElseIf QS = "B" Then
        I0207.Picture = b.Picture
        QS = "W"
        Q(2, 7) = "B"
     End If
     Z = GameOver(Q(2, 7))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0208_Click()
If Q(2, 8) = "" Then
     If QS = "W" Then
        I0208.Picture = w.Picture
        QS = "B"
        Q(2, 8) = "W"
     ElseIf QS = "B" Then
        I0208.Picture = b.Picture
        QS = "W"
        Q(2, 8) = "B"
     End If
     Z = GameOver(Q(2, 8))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0209_Click()
If Q(2, 9) = "" Then
     If QS = "W" Then
        I0209.Picture = w.Picture
        QS = "B"
        Q(2, 9) = "W"
     ElseIf QS = "B" Then
        I0209.Picture = b.Picture
        QS = "W"
        Q(2, 9) = "B"
     End If
     Z = GameOver(Q(2, 9))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
Private Sub I0210_Click()
If Q(2, 10) = "" Then
     If QS = "W" Then
        I0210.Picture = w.Picture
        QS = "B"
        Q(2, 10) = "W"
     ElseIf QS = "B" Then
        I0210.Picture = b.Picture
        QS = "W"
        Q(2, 10) = "B"
     End If
     Z = GameOver(Q(2, 10))
           If Z = "W" Then
              MsgBox "白方胜利", 48, "结果宣布"
              QS = ""
           ElseIf Z = "B" Then
              MsgBox "黑方胜利", 48, "结果宣布"
              QS = ""
           End If
End If
End Sub
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -