📄 form1.frm
字号:
Height = 330
Left = 3060
Top = 1800
Width = 330
End
Begin VB.Image I0507
Height = 330
Left = 2640
Top = 1800
Width = 330
End
Begin VB.Image I0505
Height = 330
Left = 1800
Top = 1800
Width = 330
End
Begin VB.Image I0504
Height = 330
Left = 1380
Top = 1800
Width = 330
End
Begin VB.Image I0501
Height = 330
Left = 120
Top = 1800
Width = 330
End
Begin VB.Image I0415
Height = 330
Left = 6000
Top = 1380
Width = 330
End
Begin VB.Image I0411
Height = 330
Left = 4320
Top = 1380
Width = 330
End
Begin VB.Image I0408
Height = 330
Left = 3060
Top = 1380
Width = 330
End
Begin VB.Image I0406
Height = 330
Left = 2220
Top = 1380
Width = 330
End
Begin VB.Image I0410
Height = 330
Left = 3900
Top = 1380
Width = 330
End
Begin VB.Image I0414
Height = 330
Left = 5580
Top = 1380
Width = 330
End
Begin VB.Image I0409
Height = 330
Left = 3480
Top = 1380
Width = 330
End
Begin VB.Image I0402
Height = 330
Left = 540
Top = 1380
Width = 330
End
Begin VB.Image I0412
Height = 330
Left = 4740
Top = 1380
Width = 330
End
Begin VB.Image I0405
Height = 330
Left = 1800
Top = 1380
Width = 330
End
Begin VB.Image I0413
Height = 330
Left = 5160
Top = 1380
Width = 330
End
Begin VB.Image I0407
Height = 330
Left = 2640
Top = 1380
Width = 330
End
Begin VB.Image I0403
Height = 330
Left = 960
Top = 1380
Width = 330
End
Begin VB.Image I0404
Height = 330
Left = 1380
Top = 1380
Width = 330
End
Begin VB.Image I0401
Height = 330
Left = 120
Top = 1380
Width = 330
End
Begin VB.Image I0315
Height = 330
Left = 6000
Top = 960
Width = 330
End
Begin VB.Image I0314
Height = 330
Left = 5580
Top = 960
Width = 330
End
Begin VB.Image I0313
Height = 330
Left = 5160
Top = 960
Width = 330
End
Begin VB.Image I0311
Height = 330
Left = 4320
Top = 960
Width = 330
End
Begin VB.Image I0306
Height = 330
Left = 2220
Top = 960
Width = 330
End
Begin VB.Image I0309
Height = 330
Left = 3480
Top = 960
Width = 330
End
Begin VB.Image I0308
Height = 330
Left = 3060
Top = 960
Width = 330
End
Begin VB.Image I0312
Height = 330
Left = 4740
Top = 960
Width = 330
End
Begin VB.Image I0310
Height = 330
Left = 3900
Top = 960
Width = 330
End
Begin VB.Image I0307
Height = 330
Left = 2640
Top = 960
Width = 330
End
Begin VB.Image I0304
Height = 330
Left = 1380
Top = 960
Width = 330
End
Begin VB.Image I0303
Height = 330
Left = 960
Top = 960
Width = 330
End
Begin VB.Image I0305
Height = 330
Left = 1800
Top = 960
Width = 330
End
Begin VB.Image I0302
Height = 330
Left = 540
Top = 960
Width = 330
End
Begin VB.Image I0301
Height = 330
Left = 120
Top = 960
Width = 330
End
Begin VB.Image I0211
Height = 330
Left = 4320
Top = 540
Width = 330
End
Begin VB.Image I0206
Height = 330
Left = 2220
Top = 540
Width = 330
End
Begin VB.Image I0208
Height = 330
Left = 3060
Top = 540
Width = 330
End
Begin VB.Image I0210
Height = 330
Left = 3900
Top = 540
Width = 330
End
Begin VB.Image I0215
Height = 330
Left = 6000
Top = 540
Width = 330
End
Begin VB.Image I0213
Height = 330
Left = 5160
Top = 540
Width = 330
End
Begin VB.Image I0214
Height = 330
Left = 5580
Top = 540
Width = 330
End
Begin VB.Image I0212
Height = 330
Left = 4740
Top = 540
Width = 330
End
Begin VB.Image I0209
Height = 330
Left = 3480
Top = 540
Width = 330
End
Begin VB.Image I0205
Height = 330
Left = 1800
Top = 540
Width = 330
End
Begin VB.Image I0203
Height = 330
Left = 960
Top = 540
Width = 330
End
Begin VB.Image I0207
Height = 330
Left = 2640
Top = 540
Width = 330
End
Begin VB.Image I0204
Height = 330
Left = 1380
Top = 540
Width = 330
End
Begin VB.Image I0202
Height = 330
Left = 540
Top = 540
Width = 330
End
Begin VB.Image I0201
Height = 330
Left = 120
Top = 540
Width = 330
End
Begin VB.Image I0115
Height = 330
Left = 6000
Top = 120
Width = 330
End
Begin VB.Image I0114
Height = 330
Left = 5580
Top = 120
Width = 330
End
Begin VB.Image I0112
Height = 330
Left = 4740
Top = 120
Width = 330
End
Begin VB.Image I0113
Height = 330
Left = 5160
Top = 120
Width = 330
End
Begin VB.Image I0111
Height = 330
Left = 4320
Top = 120
Width = 330
End
Begin VB.Image I0109
Height = 330
Left = 3480
Top = 120
Width = 330
End
Begin VB.Image I0110
Height = 330
Left = 3900
Top = 120
Width = 330
End
Begin VB.Image I0108
Height = 330
Left = 3060
Top = 120
Width = 330
End
Begin VB.Image I0107
Height = 330
Left = 2640
Top = 120
Width = 330
End
Begin VB.Image I0106
Height = 330
Left = 2220
Top = 120
Width = 330
End
Begin VB.Image I0105
Height = 330
Left = 1800
Top = 120
Width = 330
End
Begin VB.Image I0104
Height = 330
Left = 1380
Top = 120
Width = 330
End
Begin VB.Image I0102
Height = 330
Left = 540
Top = 120
Width = 330
End
Begin VB.Image I0103
Height = 330
Left = 960
Top = 120
Width = 330
End
Begin VB.Image I0101
Height = 330
Left = 120
Top = 120
Width = 330
End
Begin VB.Image w
Height = 330
Left = 1320
Picture = "Form1.frx":2B154
Top = 6840
Width = 330
End
Begin VB.Image b
Height = 330
Left = 960
Picture = "Form1.frx":2D7D0
Top = 6840
Width = 330
End
Begin VB.Image n
Height = 330
Left = 600
Top = 6840
Width = 330
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim QS As String '该变量用来判断该下棋颜色
Dim Q(15, 15) As String
Function GameOver(a As String) As String '判断是否连成五颗
For i = 1 To 11
For j = 1 To 11
If Q(i, j) = a And Q(i + 1, j + 1) = a And Q(i + 2, j + 2) = a And Q(i + 3, j + 3) = a And Q(i + 4, j + 4) = a Then GameOver = a: Exit Function
Next j
Next i
For i = 5 To 15
For j = 5 To 15
If Q(i, j) = a And Q(i - 1, j - 1) = a And Q(i - 2, j - 2) = a And Q(i - 3, j - 3) = a And Q(i - 4, j - 4) = a Then GameOver = a: Exit Function
Next j
Next i
For i = 5 To 15
For j = 1 To 11
If Q(i, j) = a And Q(i - 1, j + 1) = a And Q(i - 2, j + 2) = a And Q(i - 3, j + 3) = a And Q(i - 4, j + 4) = a Then GameOver = a: Exit Function
Next j
Next i
For i = 1 To 11
For j = 5 To 15
If Q(i, j) = a And Q(i + 1, j - 1) = a And Q(i + 2, j - 2) = a And Q(i + 3, j - 3) = a And Q(i + 4, j - 4) = a Then GameOver = a: Exit Function
Next j
Next i
For i = 1 To 15
For j = 5 To 11
If Q(i, j) = a And Q(i, j - 1) = a And Q(i, j - 2) = a And Q(i, j - 3) = a And Q(i, j - 4) = a Then GameOver = a: Exit Function
If Q(i, j) = a And Q(i, j + 1) = a And Q(i, j + 2) = a And Q(i, j + 3) = a And Q(i, j + 4) = a Then GameOver = a: Exit Function
Next j
Next i
For i = 5 To 11
For j = 1 To 15
If Q(i, j) = a And Q(i + 1, j) = a And Q(i + 2, j) = a And Q(i + 3, j) = a And Q(i + 4, j) = a Then GameOver = a: Exit Function
If Q(i, j) = a And Q(i - 1, j) = a And Q(i - 2, j) = a And Q(i - 3, j) = a And Q(i - 4, j) = a Then GameOver = a: Exit Function
Next j
Next i
GameOver = "NONE"
End Function
Private Sub Form_Load()
QS = "W"
End Sub
Private Sub I0101_Click()
If Q(1, 1) = "" Then
If QS = "W" Then
I0101.Picture = w.Picture
QS = "B"
Q(1, 1) = "W"
ElseIf QS = "B" Then
I0101.Picture = b.Picture
QS = "W"
Q(1, 1) = "B"
End If
Z = GameOver(Q(1, 1))
If Z = "W" Then
MsgBox "白方胜利", 48, "结果宣布"
QS = ""
ElseIf Z = "B" Then
MsgBox "黑方胜利", 48, "结果宣布"
QS = ""
End If
End If
End Sub
Private Sub I0102_Click()
If Q(1, 2) = "" Then
If QS = "W" Then
I0102.Picture = w.Picture
QS = "B"
Q(1, 2) = "W"
ElseIf QS = "B" Then
I0102.Picture = b.Picture
QS = "W"
Q(1, 2) = "B"
End If
Z = GameOver(Q(1, 2))
If Z = "W" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -