写一个可以在excel里面运行的五子棋代码

以下是一个可以在 Excel 中运行的五子棋代码：

1. 首先，打开 Excel 文件并按下 Alt + F11 进入 VBA 编辑器。

2. 在 VBA 编辑器中，选择 Insert -> Module，然后将以下代码复制到新模块中：

Option Explicit

' 定义全局变量
Dim Board(1 To 15, 1 To 15) As Integer
Dim CurrentPlayer As Integer
Dim GameOver As Boolean

' 游戏初始化
Sub InitGame()
    Dim i As Integer, j As Integer
    
    ' 清空棋盘
    For i = 1 To 15
        For j = 1 To 15
            Board(i, j) = 0
        Next j
    Next i
    
    ' 设置当前玩家为黑方
    CurrentPlayer = 1
    
    ' 游戏未结束
    GameOver = False
    
    ' 显示游戏信息
    Range("B1").Value = "当前玩家：黑方"
    Range("B2").Value = "游戏状态：进行中"
End Sub

' 绘制棋盘
Sub DrawBoard()
    Dim i As Integer, j As Integer
    
    ' 清空棋盘
    Range("A4:O18").ClearContents
    
    ' 绘制横线
    For i = 1 To 15
        Range("A" & (i + 3)).Borders(xlEdgeTop).LineStyle = xlContinuous
        Range("A" & (i + 3)).Borders(xlEdgeTop).Weight = xlThin
        Range("A" & (i + 3)).Borders(xlEdgeBottom).LineStyle = xlContinuous
        Range("A" & (i + 3)).Borders(xlEdgeBottom).Weight = xlThin
    Next i
    
    ' 绘制竖线
    For j = 1 To 15
        Range(Chr(64 + j) & "4").Borders(xlEdgeLeft).LineStyle = xlContinuous
        Range(Chr(64 + j) & "4").Borders(xlEdgeLeft).Weight = xlThin
        Range(Chr(64 + j) & "18").Borders(xlEdgeRight).LineStyle = xlContinuous
        Range(Chr(64 + j) & "18").Borders(xlEdgeRight).Weight = xlThin
    Next j
    
    ' 绘制星位
    Range("D7").Value = "●"
    Range("G4").Value = "●"
    Range("G10").Value = "●"
    Range("J7").Value = "●"
    Range("M4").Value = "●"
    Range("M10").Value = "●"
End Sub

' 玩家下棋
Sub PlayerMove(row As Integer, col As Integer)
    ' 如果游戏已结束，则返回
    If GameOver Then
        MsgBox "游戏已结束！"
        Exit Sub
    End If
    
    ' 如果该位置已经有棋子，则返回
    If Board(row, col) <> 0 Then
        MsgBox "该位置已经有棋子！"
        Exit Sub
    End If
    
    ' 在该位置下棋
    Board(row, col) = CurrentPlayer
    
    ' 绘制棋子
    If CurrentPlayer = 1 Then
        Range(Chr(64 + col) & (row + 3)).Value = "●"
    Else
        Range(Chr(64 + col) & (row + 3)).Value = "○"
    End If
    
    ' 判断是否胜利
    If CheckWin(row, col) Then
        GameOver = True
        Range("B2").Value = "游戏状态：结束"
        MsgBox "恭喜 " & IIf(CurrentPlayer = 1, "黑方", "白方") & " 获胜！"
        Exit Sub
    End If
    
    ' 切换玩家
    CurrentPlayer = IIf(CurrentPlayer = 1, 2, 1)
    Range("B1").Value = "当前玩家：" & IIf(CurrentPlayer = 1, "黑方", "白方")
End Sub

' 检查是否胜利
Function CheckWin(row As Integer, col As Integer) As Boolean
    Dim i As Integer, j As Integer, k As Integer
    Dim Count As Integer
    
    ' 检查横向是否连成五子
    Count = 1
    For i = col - 1 To 1 Step -1
        If Board(row, i) = CurrentPlayer Then
            Count = Count + 1
        Else
            Exit For
        End If
    Next i
    For i = col + 1 To 15
        If Board(row, i) = CurrentPlayer Then
            Count = Count + 1
        Else
            Exit For
        End If
    Next i
    If Count >= 5 Then
        CheckWin = True
        Exit Function
    End If
    
    ' 检查纵向是否连成五子
    Count = 1
    For i = row - 1 To 1 Step -1
        If Board(i, col) = CurrentPlayer Then
            Count = Count + 1
        Else
            Exit For
        End If
    Next i
    For i = row + 1 To 15
        If Board(i, col) = CurrentPlayer Then
            Count = Count + 1
        Else
            Exit For
        End If
    Next i
    If Count >= 5 Then
        CheckWin = True
        Exit Function
    End If
    
    ' 检查正斜线是否连成五子
    Count = 1
    For i = row - 1 To 1 Step -1
        j = col - (row - i)
        If j < 1 Then
            Exit For
        End If
        If Board(i, j) = CurrentPlayer Then
            Count = Count + 1
        Else
            Exit For
        End If
    Next i
    For i = row + 1 To 15
        j = col + (i - row)
        If j > 15 Then
            Exit For
        End If
        If Board(i, j) = CurrentPlayer Then
            Count = Count + 1
        Else
            Exit For
        End If
    Next i
    If Count >= 5 Then
        CheckWin = True
        Exit Function
    End If
    
    ' 检查反斜线是否连成五子
    Count = 1
    For i = row - 1 To 1 Step -1
        j = col + (row - i)
        If j > 15 Then
            Exit For
        End If
        If Board(i, j) = CurrentPlayer Then
            Count = Count + 1
        Else
            Exit For
        End If
    Next i
    For i = row + 1 To 15
        j = col - (i - row)
        If j < 1 Then
            Exit For
        End If
        If Board(i, j) = CurrentPlayer Then
            Count = Count + 1
        Else
            Exit For
        End If
    Next i
    If Count >= 5 Then
        CheckWin = True
        Exit Function
    End If
    
    ' 没有连成五子
    CheckWin = False
End Function

3. 点击模块中的“InitGame”按钮来初始化游戏，并在 Excel 中绘制棋盘。

4. 点击 Excel 中的单元格来玩游戏。例如，要在第5行第6列下黑子，只需点击F5单元格。

5. 玩家下完棋后，程序会自动判断是否胜利并切换到另一个玩家继续游戏。

请注意，由于 Excel 的限制，这个代码可能会比较慢，特别是当棋盘上的棋子数量增加时。如果您需要更好的游戏体验，建议使用其他编程语言，如 Python 或 C++ 来实现五子棋游戏。