五子棋棋子落完了怎么玩

对局开始时，先由执黑棋一方将一枚棋子落在天元点上，然后由执白棋一方在黑棋周围的交叉点上落子。但是，为了尊重对方和礼貌起见，持白棋的一方通常将盘面的第二着棋布在自己河界的一侧，即直止或斜止。此后黑白双方轮流落子，直到某一方首先在棋盘的横线、纵线或斜线上形成连续五子或五子以上〔仅对白棋而言〕，则该方就算获胜连珠五子棋的一个特点是先行的一方优势很大，因此在职业比赛中对黑方做了种种限制，以利公平竞争。五子棋的比赛规则如下：〖1〗黑先、白后，从天元开始相互顺序落子；〖2〗最先在棋盘横向、纵向或斜向形成连续的同色五个棋子的一方为胜；〖3〗黑棋禁手判负、白棋无禁手。黑棋禁手有“三、三”、“四、四”和“长连”，包括“四、三、三”和“四、四、三”。黑棋只能以“四、三”取胜；〖4〗如分不出胜负，则到为平局；〖5〗五连与禁手同时形成，判胜；〖6〗黑方禁手形成时，白方应立即指出。若白方未发现或发现后不立即指出，反而继续落子，则禁手失效，不再判黑方负。1五子棋是黑白双方或两个人之间的竞技活动，由于对黑白双方规则不同，黑棋必须先行。一般采用猜先的方法来决定谁执黑先行，即双方各抓一种颜色的几枚棋子，大数减小数，单数双方交换，偶数不换；2禁手示例：┼●●┼┼┼┼┼┼┼┼●●X┼┼┼X┼┼┼┼●┼┼┼┼┼┼┼┼┼┼●┼┼●X●┼┼●┼┼┼┼┼●┼┼┼┼●┼┼●┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼X为三、三禁手┼┼┼┼┼┼┼●┼┼X●●●┼┼┼┼┼┼┼●┼┼┼●●X●┼X为四、四禁手┼┼●┼┼┼┼●┼┼┼┼┼●┼┼┼●┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼┼●●X●●●┼X为长连禁手┼┼┼┼┼┼┼┼3黑方在落下关键的第五子即形成五连的同时，如又形成禁手，此时因黑方已经成五，而“五”在五子棋中是至高无上的，故禁手失效，黑方胜；4所谓黑方形成禁手，是指黑方落下一子同时形成两个或两个以上的活三、冲四及长连等。此时白方应立即指出，自然而胜。专业连珠五子棋虽然对黑棋采取了种种限制，但是黑棋先行的优势依然很大。因此，在高段位的专业比赛中，又出现了三种特殊的规定：1“指定打法”：指比赛双方按照约定好的开局进行对弈。例如“斜月局”、”长星局”等。2“三手可交换”：指黑棋下第二手棋〔盘面第三手棋〕之后，白方如感觉黑方棋形不利于己方，可提出交换，即执白棋一方变为执黑棋一方〔此方法不适用于指定开局打法，而用于随意开局〕。采用此规定以后，黑棋就不会再使用诸如“浦月”、“花月”之类的必胜开局了。3“五手两打”：指黑棋在下盘面上关键的第五手棋时，必须下两步棋，让白方在这两步棋中任选一步，然后再继续下。┼┼┼┼┼如图所示，盘面已有四手棋，黑5选择A、B两点，┼┼A┼┼让白棋任选一点后再继续对弈。白棋肯定选择对黑棋不┼┼○┼┼利的A点。采用这一规定以后，黑棋先行就再无优势可┼●○●┼言。┼┼B┼┼一．游戏介绍五子棋是起源于中国古代的传统黑白棋种之一。现代五子棋日文称之为“连珠”，英译为“Renju”，英文称之为“Gobang”或“FIR”(FiveinaRow的缩写)，亦有“连五子”、“五子连”、“串珠”、“五目”、“五目碰”、“五格”等多种称谓。五子棋不仅能增强思维能力，提高智力，而且富含哲理，有助于修身养性。五子棋既有现代休闲的明显特征“短、平、快”，又有古典哲学的高深学问“阴阳易理”；它既有简单易学的特性，为人民群众所喜闻乐见，又有深奥的技巧和高水平的国际性比赛；它的棋文化源渊流长，具有东方的神秘和西方的直观；既有“场”的概念，亦有“点”的连接。它是中西文化的交流点，是古今哲理的结晶。五子棋起源于古代中国，发展于日本，风靡于欧洲。对于它与围棋的关系有两种说法，一说早于围棋，早在“尧造围棋”之前，民间就已有五子棋游戏；一说源于围棋，是围棋发展的一个分支。在中国的文化里，倍受人们的青睐。古代的五子棋的棋具与围棋相同，纵横各十七道。五子棋大约随围棋一起在我国南北朝时先后传入朝鲜、日本等地。据日本史料文献介绍，中国古代的五子棋是经由高丽(朝鲜)，于1688年至1704年的日本元禄时代传到日本的。到日本明治32年(公元1899年)，经过公开征名，“连珠”这一名称才被正式确定下来，取意于“日月如合壁，五星如连珠”。从此，连珠活动经过了不断的改良，主要是规则的变化(即对执黑棋一方的限制)，例如，1899年规定，禁止黑白双方走“双三”；1903年规定，只禁止黑方走“双三”；1912年规定，黑方被迫走“双三”亦算输；1916年规定，黑方不许走“长连”；1918年规定，黑方不许走“四、三、三”；1931年规定，黑方不许走“双四”，并规定将19×19的围棋盘改为15×15的连珠专用棋盘。本世纪初五子棋传入欧洲并迅速风靡全欧。通过一系列的变化，使五子棋这一简单的游戏复杂化、规范化，而最终成为今天的职业连珠五子棋，同时也成为一种国际比赛棋。二．简明职业连珠五子棋比赛规则的解释1、五子棋是两个人之间进行的竞技活动，由于对黑方白方规则不同，黑棋必须先行。2、五子棋专用盘为15×15，五连子的方向为横、竖、斜。3、禁手是对局中被判为负的行棋手段。白棋无禁手。4、在棋盘上以对局双方均不可能形成五连为和棋。5、在对局中，以在盘上落下的子又拿起来为拔子，判负。在对局中，一方自行终止比赛，判负。6、黑方在落下关键的第五子即形成五连的同时，又形成禁手。此时因黑方已成连五，故禁手失效，黑方胜。7、所谓黑方形成禁手，是指黑方一子落下同时形成两个或两个以上的活三、冲四及长连禁手。此时，白方应立即向黑方指出禁手，自然而胜。三．特殊规定职业连珠五子棋虽然对黑棋采取了种限制，但是黑棋先行的优势依然很大。因此，在高段位的职比赛中，又出现了三种特殊的规定。①“指定打法”：是指比赛双方按照约定好的开局进行奔，由白棋先行。例如“明星局”、“花月局”等(参看“连珠五子棋的开局”)。②“三手可交换”：是指黑棋下第2手棋(盘面第3着棋之后，白方在应白2之前，如感觉黑方棋形不利于己方，可出交换，即执白棋一方变为执黑棋一方(此方法不适用指定局打法，而用于随意开局)。③“五手两打法”：是指黑棋在下盘面上关键的第5手时，必须下两步棋，让白方在这两步棋中任选一步，然后再续下。

急求vb双人对战五子棋源代码

五子棋的介绍

　五子棋的棋具与围棋通用，起源于中国上古时代的传统黑白棋种之一。下面我为大家介绍五子棋吧！

　五子棋又名五子连珠棋，是一项有趣、益智的棋类游戏，世界上已有几十个国家开展此项活动。世界五子棋锦标赛已举办过几届，并进入世界智力体育奥林匹克比赛，它的影响越来越大。五子连珠棋易学难精，但妙趣横生。下一局棋所费时间不多，茶余饭后“杀上一盘”，开发智力，勤于动脑，调剂感情,有利于开发智力，居家必备。

　 简介

　五子棋是一种两人对弈的纯策略型棋类游戏，是起源于中国古代的传统黑白棋种之一。早在“尧造围棋”之前，可能民间就已有五子棋游戏。发展于日本，流行于欧美。

　五子连珠棋五子棋容易上手，老少皆宜，而且趣味横生，引人入胜;不仅能增强思维能力，提高智力，而且富含哲理，有助于修身养性。

　五子棋是起源于中国古代的传统黑白棋种之一。现代五子棋日文称之为 “ 连珠 ” ，英译为 “Renju” ，英文称之为 “Gobang” 或 “FIR”(Five in a Row 的缩写 ) ，亦有 “ 连五子 ” 、 “ 五子连 ” 、 “ 串珠 ” 、 “ 五目 ” 、 “ 五目碰 ” 、 “ 五格 ” 等多种称谓。

　五子棋不仅能增强思维能力，提高智力，而且富含哲理，有助于修身养性。五子棋既有现代休闲的明显特征 “ 短、平、快 ” ，又有古典哲学的高深学问 “ 阴阳易理 ” ;它既有简单易学的特性，为人民群众所喜闻乐见，又有深奥的技巧和高水平的国际性比赛;它的棋文化源渊流长，具有东方的神秘和西方的直观;既有 “ 场 ” 的.概念，亦有 “ 点 ” 的连接。它是中西文化的交流点，是古今哲理的结晶。

　 传统五子棋

　五子连珠棋传统五子棋的棋具与围棋大致相同，棋子分为黑白两色，棋盘为15×15，棋子放置于棋盘线交叉点上。两人对局，各执一色，轮流下一子，先将横、竖或斜线的5个或5个以上同色棋子连成不间断的一排者为胜(正规比赛中黑棋只能连成5个。6-9个一排算禁手，另外黑棋还有33和44禁手。黑棋禁手判负。白棋没有限制)。

　因为传统五子棋在落子后不能移动或拿掉，所以也可以用纸和笔来进行游戏。

　 称谓：

　五子棋，日文亦有“连五子、五子连、串珠、五目、五目碰、五格、五石、五法、五联、京棋”等多种称谓，英文则称之为“FIR (Five In A Row的缩写)、Gomoku(日语“五目”的罗马拼音)、Gobang、connect 5、mo-rphion”。捷克语piskvorky，韩语omok……

　五子连珠棋许多国家的人对五子棋都有不同的爱称，例如，韩国人把五子棋称为“情侣棋”，暗示情人之间下五子棋有利于增加情感的交流;欧洲人称其为“绅士棋”，代表下五子棋的君子风度胜似绅士;日本人则称其为“中老年棋”，说明五子棋适合中老年人的生理特点和思维方式;美国人喜欢将五子棋称为“商业棋”，也就是说，商人谈生意时可边下棋边谈生意，棋下完了生意也谈成了。

　 起源：

　五子棋相传起源于四千多年前的尧帝时期，比围棋的历史还要悠久，可能早在“尧造围棋”之前，民间就已有五子棋游戏。有关早期五子棋的文史资料与围棋有相似之处，因为古代五子棋的棋具与围棋是完全相同的。在上古的神话传说中有“女娲造人，伏羲做棋”一说，《增山海经》中记载：“休舆之山有石焉，名曰帝台之棋，五色而文状鹑卵。”李善注引三国魏邯郸淳《艺经》中曰：“棋局，纵横各十七道，合二百八十九道，白黑棋子，各一百五十枚”。可见，五子棋颇有渊源。亦有传说，五子棋最初流行于少数民族地区，以后渐渐演变成围棋并在炎黄子孙后代中遍及开来。

　在古代，五子棋棋具虽然与围棋相类同，但是下法却是完全不同的。正如《辞海》中所言，五子棋是“棋类游戏，棋具与围棋相同，两人对局，轮流下子，先将五子连成一行者为胜。”。

　 现代五子棋

　随着五子棋的发展，逐步发现先手优势非常大，最后得出“先手必胜”。五子棋要成为竞技运动，核心问题是怎样解决传统五子棋下法中“先手必胜”的问题。

　 “交换”思维

　“交换”思维有个形象的比喻：一个人切蛋糕，一个人选蛋糕。即：一人开局，另一人选择黑方还是白方。此方法最为公平、最有效率，且最为简洁实用。不过此方法使开局者不走已知的必胜，把棋艺的较量演化为对局者开局的博弈，而“先手必胜”依然存在。

　如：欧洲的Swap2、Swap1;中国的Swap3、第一手交换规则等。

　 “禁手”思维

　禁止以某种手段取胜。为了平衡先后手之间的差距，削弱先手优势，日本连珠提出“禁手”。后来连珠的发展证明禁手并不能平衡先后手之间的差距，依然是“先手必胜”。

　 “跷跷板”原理

　五子棋始终是先手领先一子。如果双方轮流领先一子呢?

　台湾教授发明的六子棋，就如“跷跷板”一样。先手先下一子，然后双方轮流下两子，先连成6子者胜利。六子棋为第11届奥林匹亚计算机游戏程序竞赛项目，验证其公平性与复杂性。

　 现代五子棋的现状

　五子棋、连珠已经成为欧洲现代五子棋的组成部分，举行了很多次大大小小的比赛，并且将三种棋的世界锦标赛联合举行。

　中国的现代五子棋目前处于世界领先水平。2013年中国棋院《中国五子棋竞赛规则》修改了原先的RIF规则，正式使用“三手交换，五手多打”规则，同时兼顾发展传统五子棋。

;

Option Explicit

'五子棋程序 人机对战版本

'需要2个Label控件 2个CommandButton控件

Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long

'Dim PlayStep() As String '记录棋谱的数组

'Dim Label2Cap As String

Private Const BoxL As Single = 50, BoxT As Single = 50, BoxW As Single = 25, BoxN As Integer = 18

Dim Table() As Long '棋盘(0-BoxN,0-BoxN) 0-空 1-黑子 2-白子

Dim PsCore() As Long '定义当前玩家桌面空格的分数

Dim CsCore() As Long '定义当前电脑桌面空格的分数

Dim pWin() As Boolean '定义玩家的获胜组合

Dim cWin() As Boolean '定义电脑的获胜组合

Dim pFlag() As Boolean '定义玩家的获胜组合标志

Dim cFlag() As Boolean '定义电脑的获胜组合标志

Dim ThePlayFlag As Boolean '定义游戏有效标志

Private Sub Command1_Click()

If Not ThePlayFlag Then Call InitPlayEnvironment: Exit Sub

If MsgBox("本局还没有下完，是否重新开始？(Y/N)", vbYesNo) = vbNo Then Exit Sub

Call InitPlayEnvironment

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Dim i As Long, lw As Long, lh As Long

'Label2Cap = "000 黑方 行 00 列 00"

Me.Width = 10815: Me.Height = 8040

' Me.Caption = "五子棋 - 人机对战": Me.Show

lw = Me.Width Screen.TwipsPerPixelX: lh = Me.Height Screen.TwipsPerPixelY

SetWindowRgn Me.hWnd, CreateRoundRectRgn(0, 0, lw, lh, 60, 60), True

With Label1

.Alignment = vbCenter: .FontSize = 12: .FontBold = True

.ForeColor = vbRed: .BackStyle = 0: .AutoSize = True: .Move 8910, 510

End With

Label2.AutoSize = True: Label2.WordWrap = True

Label2.BackStyle = 0: Label2.Move 8040, 1050, 2280

Command1.Move 8025, 7035, 1020, 435: Command1.Caption = "再来一局"

Command2.Move 9300, 7035, 1020, 435: Command2.Caption = "不玩了"

Call DrawChessBoard: Me.FillStyle = 0: Call InitPlayEnvironment

End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

End

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim iRow As Long, iCol As Long, i As Long, k As Long, t As String

If Not ThePlayFlag Then Exit Sub

If Button = vbLeftButton Then '左键下棋

iRow = -1: iCol = -1

For i = 0 To BoxN '鼠标必须落在交叉点 半径10以内 若是则给出行列号

If (Y + 10) > (BoxT + i * BoxW) And (Y - 10) <= (BoxT + i * BoxW) Then iRow = i

If (X + 10) > (BoxL + i * BoxW) And (X - 10) <= (BoxL + i * BoxW) Then iCol = i

Next

If (iRow = -1) Or (iCol = -1) Then Beep: Exit Sub

If Table(iCol, iRow) > 0 Then Exit Sub

Table(iCol, iRow) = 2: Label1.Caption = "下一步 黑方"

Me.FillColor = vbWhite: Me.Circle (iCol * BoxW + BoxT, iRow * BoxW + BoxL), 8

For i = 0 To UBound(cWin, 3)

If cWin(iCol, iRow, i) = True Then cFlag(i) = False

Next

Call CheckWin: Call DianNao '检查当前玩家是否获胜 调用电脑算法

End If

End Sub

Public Sub InitPlayEnvironment()

'*****************************************************************************

' 模块名称: InitPlayEnvironment [初始化过程]

'

' 描述: 1. 设置背景音乐。 2. 设置游戏状态有效。

' 3. 初始化游戏状态标签。 4. 直接指定电脑的第一步走法。

' 5. 初始化基本得分桌面。 6. 电脑和玩家获胜标志初始化。

' 7. 初始化所有获胜组合。 8. 重新设定玩家的获胜标志。

'*****************************************************************************

Dim i As Long, j As Long, m As Long, n As Long

ThePlayFlag = True: Label1.Caption = "下一步 白方": Label2.Caption = ""

Me.FillColor = vbBlack: Me.FillStyle = 0: Me.AutoRedraw = True

Me.Cls: Me.Circle (9 * BoxW + BoxL, 9 * BoxW + BoxT), 8

ReDim Table(0 To BoxN, 0 To BoxN) As Long

ReDim pFlag(NumsWin(BoxN + 1) - 1) As Boolean

ReDim cFlag(UBound(pFlag)) As Boolean

ReDim PsCore(BoxN, BoxN) As Long, CsCore(BoxN, BoxN) As Long

ReDim pWin(BoxN, BoxN, UBound(pFlag)) As Boolean

ReDim cWin(BoxN, BoxN, UBound(pFlag)) As Boolean

For i = 0 To UBound(pFlag): pFlag(i) = True: cFlag(i) = True: Next

Table(9, 9) = 1 '假定电脑先手 并下了(9, 9)位 将其值设为1

'******** 初始化获胜组合 ****************************************

For i = 0 To BoxN: For j = 0 To BoxN - 4

For m = 0 To 4

pWin(j + m, i, n) = True: cWin(j + m, i, n) = True

Next

n = n + 1

Next: Next

For i = 0 To BoxN: For j = 0 To BoxN - 4

For m = 0 To 4

pWin(i, j + m, n) = True: cWin(i, j + m, n) = True

Next

n = n + 1

Next: Next

For i = 0 To BoxN - 4: For j = 0 To BoxN - 4

For m = 0 To 4

pWin(j + m, i + m, n) = True: cWin(j + m, i + m, n) = True

Next

n = n + 1

Next: Next

For i = 0 To BoxN - 4: For j = BoxN To 4 Step -1

For m = 0 To 4

pWin(j - m, i + m, n) = True: cWin(j - m, i + m, n) = True

Next

n = n + 1

Next: Next

'******** 初始化获胜组合结束 *************************************

For i = 0 To UBound(pWin, 3) '由于电脑已下了(9, 9)位 所以需要重新设定玩家的获胜标志

If pWin(9, 9, i) = True Then pFlag(i) = False

Next

End Sub

Public Function DrawChessBoard() As Long

'容器的(BoxL, BoxT)为左上角坐标画一个 BoxN*BoxN, 每格边长为 BoxW 象素的棋盘

Dim i As Long, j As Long, cx As Long, cy As Long

Me.ScaleMode = 3: Me.FillStyle = 1: Me.AutoRedraw = True: Me.Cls

For i = 0 To BoxN '画棋盘

Me.Line (BoxL + i * BoxW, BoxT)-(BoxL + i * BoxW, BoxT + BoxN * BoxW)

Me.Line (BoxL, BoxT + i * BoxW)-(BoxL + BoxN * BoxW, BoxT + i * BoxW)

Me.CurrentX = BoxL + i * BoxW - IIf(i > 9, 6, 2)

Me.CurrentY = BoxT - 20: Me.Print Format(i)

Me.CurrentX = BoxL - IIf(i > 9, 23, 20)

Me.CurrentY = BoxT + i * BoxW - 6: Me.Print Format(i)

Next

For i = 3 To 16 Step 6: For j = 3 To 16 Step 6 '画小标志

cx = BoxL + j * BoxW - 3: cy = BoxT + i * BoxW - 3

Me.Line (cx, cy)-(cx + 6, cy + 6), , B

Next: Next

Me.AutoRedraw = False: Set Me.Picture = Me.Image

End Function

Public Sub CheckWin()

'*****************************************************************************

' 模块名称: CheckWin [获胜检查算法]

'

' 描述: 1. 检查是否和棋。 2. 检查电脑是否获胜。 3. 检查玩家是否获胜。

'*****************************************************************************

Dim i As Long, j As Long, k As Long, m As Long, n As Long

Dim cA As Long, pA As Long, cN As Long

For i = 0 To UBound(cFlag): cN = IIf(cFlag(i) = False, cN + 1, cN): Next

If cN = UBound(cFlag) - 1 Then '设定和棋规则

Label1.Caption = "双方和棋！": ThePlayFlag = False: Exit Sub

End If

For i = 0 To UBound(cFlag) '检查电脑是否获胜

If cFlag(i) = True Then

cA = 0: For j = 0 To BoxN: For k = 0 To BoxN

If Table(j, k) = 1 And cWin(j, k, i) = True Then cA = cA + 1

Next: Next

If cA = 5 Then Label1.Caption = "电脑获胜！": ThePlayFlag = False: Exit Sub

End If

Next

For i = 0 To UBound(pFlag) '检查玩家是否获胜

If pFlag(i) = True Then

pA = 0: For j = 0 To BoxN: For k = 0 To BoxN

If Table(j, k) = 2 And pWin(j, k, i) = True Then pA = pA + 1

Next: Next

If pA = 5 Then Label1.Caption = "玩家获胜！": ThePlayFlag = False: Exit Sub

End If

Next

End Sub

Public Sub DianNao()

'*****************************************************************************

' 模块名称: DianNao [电脑算法]

' 描述: 1. 初始化赋值系统。 2. 赋值加强算法。 3. 计算电脑和玩家的最佳攻击位。

' 4. 比较电脑和玩家的最佳攻击位并决定电脑的最佳策略。 5. 执行检查获胜函数。

'*****************************************************************************

Dim i As Long, j As Long, k As Long, m As Long, n As Long

Dim Dc As Long, cAb As Long, pAb As Long

ReDim PsCore(BoxN, BoxN) As Long, CsCore(BoxN, BoxN) As Long '初始化赋值数组

'******** 电脑加强算法 ********

For i = 0 To UBound(cFlag)

If cFlag(i) = True Then

cAb = 0

For j = 0 To BoxN: For k = 0 To BoxN

If Table(j, k) = 1 And cWin(j, k, i) = True Then cAb = cAb + 1

Next: Next

Select Case cAb

Case 3

For m = 0 To BoxN: For n = 0 To BoxN

If Table(m, n) = 0 And cWin(m, n, i) = True Then CsCore(m, n) = CsCore(m, n) + 5

Next: Next

Case 4

For m = 0 To BoxN: For n = 0 To BoxN

If Table(m, n) = 0 And cWin(m, n, i) = True Then

Table(m, n) = 1: Label1.Caption = "下一步 白方"

Me.FillColor = vbBlack: Me.Circle (m * BoxW + BoxL, n * BoxW + BoxT), 8

For Dc = 0 To UBound(pWin, 3)

If pWin(m, n, Dc) = True Then pFlag(Dc) = False: Call CheckWin: Exit Sub

Next

End If

Next: Next

End Select

End If

Next

For i = 0 To UBound(pFlag)

If pFlag(i) = True Then

pAb = 0

For j = 0 To BoxN: For k = 0 To BoxN

If Table(j, k) = 2 And pWin(j, k, i) = True Then pAb = pAb + 1

Next: Next

Select Case pAb

Case 3

For m = 0 To BoxN: For n = 0 To BoxN

If Table(m, n) = 0 And pWin(m, n, i) = True Then PsCore(m, n) = PsCore(m, n) + 30

Next: Next

Case 4

For m = 0 To BoxN: For n = 0 To BoxN

If Table(m, n) = 0 And pWin(m, n, i) = True Then

Table(m, n) = 1: Label1.Caption = "下一步 白方"

Me.FillColor = vbBlack: Me.Circle (m * BoxW + BoxL, n * BoxW + BoxT), 8

For Dc = 0 To UBound(pWin, 3)

If pWin(m, n, Dc) = True Then pFlag(Dc) = False: Call CheckWin: Exit Sub

Next

End If

Next: Next

End Select

End If

Next

'******** 电脑加强算法结束 ********

'******** 赋值系统 ****************

For i = 0 To UBound(cFlag)

If cFlag(i) = True Then

For j = 0 To BoxN: For k = 0 To BoxN

If (Table(j, k) = 0) And cWin(j, k, i) Then

For m = 0 To BoxN: For n = 0 To BoxN

If (Table(m, n) = 1) And cWin(m, n, i) Then CsCore(j, k) = CsCore(j, k) + 1

Next: Next

End If

Next: Next

End If

Next

For i = 0 To UBound(pFlag)

If pFlag(i) = True Then

For j = 0 To BoxN: For k = 0 To BoxN

If (Table(j, k) = 0) And pWin(j, k, i) Then

For m = 0 To BoxN: For n = 0 To BoxN

If (Table(m, n) = 2) And pWin(m, n, i) Then PsCore(j, k) = PsCore(j, k) + 1

Next: Next

End If

Next: Next

End If

Next

'******** 赋值系统结束 ************

'******** 分值比较算法 ************

Dim a As Long, b As Long, c As Long, d As Long

Dim cS As Long, pS As Long

For i = 0 To BoxN: For j = 0 To BoxN

If CsCore(i, j) > cS Then cS = CsCore(i, j): a = i: b = j

Next: Next

For i = 0 To BoxN: For j = 0 To BoxN

If PsCore(i, j) > pS Then pS = PsCore(i, j): c = i: d = j

Next: Next

If cS > pS Then

Table(a, b) = 1: Label1.Caption = "下一步 白方"

Me.FillColor = vbBlack: Me.Circle (a * BoxW + BoxL, b * BoxW + BoxT), 8

For i = 0 To UBound(pWin, 3)

If pWin(a, b, i) = True Then pFlag(i) = False

Next

Else

Table(c, d) = 1: Label1.Caption = "下一步 白方"

Me.FillColor = vbBlack: Me.Circle (c * BoxW + BoxL, d * BoxW + BoxL), 8

For i = 0 To UBound(pWin, 3)

If pWin(c, d, i) = True Then pFlag(i) = False

Next

End If

'******** 分值比较算法结束 ********

Call CheckWin

End Sub

Public Function NumsWin(ByVal n As Long) As Long

'根据输入的棋盘布局 n*n 计算总共有多少种获胜组合

'假定棋盘为 10 * 10 相应的棋盘数组就是 Table(9, 9)

'水平方向 每一列获胜组合是6 共10列 6*10=60

'垂直方向 每一行获胜组合是6 共10行 8*10=60

'正对角线方向 6 + (5 + 4 + 3 + 2 + 1) * 2 = 36

'反对角线方向 6 + (5 + 4 + 3 + 2 + 1) * 2 = 36

'总的获胜组合数为 60 + 60 + 36 + 36 = 192

Dim i As Long, t As Long

For i = n - 5 To 1 Step -1: t = t + i: Next

NumsWin = 2 * (2 * t + n - 4) + 2 * n * (n - 4)

End Function