[原创]我也凑个热闹－－发个五子棋游戏

zhuyuejin · 发表于 2003-6-12 12:06

家里已经有很多的五子棋游戏了，我再来凑个热闹。望各高手指点，不胜感谢。

z0htkH5r.rar (29.68 KB, 下载次数: 731)

Rowen · 发表于 2003-6-17 21:27

一人一个鼠标, 玩起来还真像那么回事!

hxjlylwx · 发表于 2003-6-18 22:43

太崇拜你了！太厉害了！原来EXCEL还可以这样，太神奇了！看来我要学习的东西太多了，今天好不容易才注册成功，以后我会经常来的，请多多指教！！！

zjxzjx310 · 发表于 2003-7-6 12:32

高!!!!!!!!!!! EXCELHOME的高手太多了在这里我学到很多,我更爱EXCEL了!

wjyuncle · 发表于 2003-7-19 00:43

Yours program is very good.

woongho · 发表于 2003-7-25 10:50

原来如此

doyyi · 发表于 2003-7-28 11:51

人机对战能在EXCEL中实现吗？

守柔 · 发表于 2003-7-29 11:44

黑白之道，非常道。吾辈人，难望两位项背。催人奋进。

doyyi · 发表于 2003-7-29 12:48

以下是引用xiaog在2003-7-28 23:28:00的发言： [quote]以下是引用doyyi在2003-7-28 11:51:00的发言： 人机对战能在EXCEL中实现吗？

应该可以，附算法公式： Dim a As Single Dim b As Single For a = -5 To 20 For b = -5 To 20 If (a < 0) Or (b < 0) Or (a > 15) Or (b > 15) Then table(a, b) = 10 End If Next b Next a For i = 0 To 15 For j = 0 To 15 If comturn = True And wantfive(i, j, 2) = True Then Call goes(i, j) End If Next j Next i '连五子 For i = 0 To 15 For j = 0 To 15 If comturn = True And wantfive(i, j, 1) = True Then Call goes(i, j) End If Next j Next i '阻止对方连五子 For i = 0 To 15 For j = 0 To 15 If comturn = True And table(i, j) * table(i, j + 1) * table(i, j + 2) = 8 And (table(i, j - 1) = 0 And table(i, j + 3) = 0) Then If table(i, j - 2) = 2 Or table(i - 1, j - 1) = 2 Or table(i - 1, j) = 2 Or table(i - 1, j + 1) = 2 Or table(i + 1, j - 1) = 2 Or table(i + 1, j) = 2 Or table(i + 1, j + 1) = 2 Then Call goes(i, j - 1) Else Call goes(i, j + 3) End If ElseIf comturn = True And table(i, j) * table(i + 1, j) * table(i + 2, j) = 8 And (table(i - 1, j) = 0 And table(i + 3, j)) = 0 Then If table(i - 2, j) = 2 Or table(i - 1, j - 1) = 2 Or table(i, j - 1) = 2 Or table(i + 1, j - 1) = 2 Or table(i - 1, j + 1) = 2 Or table(i, j + 1) = 2 Or table(i + 1, j + 1) = 2 Then Call goes(i - 1, j) Else Call goes(i + 3, j) End If ElseIf comturn = True And table(i, j) * table(i + 1, j + 1) * table(i + 2, j + 2) = 8 And (table(i - 1, j - 1) = 0 And table(i + 3, j + 3) = 0) Then If table(i - 2, j - 2) = 2 Or table(i - 1, j) = 2 Or table(i - 1, j + 1) = 2 Or table(i, j - 1) = 2 Or table(i, j + 1) = 2 Or table(i + 1, j - 1) = 2 Or table(i + 1, j) = 2 Then Call goes(i - 1, j - 1) Else Call goes(i + 3, j + 3) End If ElseIf comturn = True And table(i, j) * table(i - 1, j + 1) * table(i - 2, j + 2) = 8 And (table(i + 1, j - 1) = 0 And table(i - 3, j + 3) = 0) Then If table(i + 2, j - 2) = 2 Or table(i - 1, j - 1) = 2 Or table(i, j - 1) = 2 Or table(i - 1, j) = 2 Or table(i + 1, j) = 2 Or table(i + 1, j + 1) = 2 Or table(i, j + 1) = 2 Then Call goes(i + 1, j - 1) Else Call goes(i - 3, j + 3) End If End If Next j Next i '将自己连成四点一线 For i = 0 To 15 For j = 0 To 15 If comturn = True And wantfour(i, j, 2) = True Then Call goes(i, j) End If Next j Next i '将自己连成四点一线 For i = 0 To 15 For j = 0 To 15 If comturn = True And wantfour1(i, j, 2) = True Then Call goes(i, j) End If Next j Next i '叫吃 For i = 0 To 15 For j = 0 To 15 If comturn = True And table(i, j) * table(i, j + 1) * table(i, j + 2) = 1 And (table(i, j - 1) = 0 And table(i, j + 3) = 0) Then If table(i, j - 2) = 1 Or table(i - 1, j - 1) = 1 Or table(i - 1, j) = 1 Or table(i - 1, j + 1) = 1 Or table(i + 1, j - 1) = 1 Or table(i + 1, j) = 1 Or table(i + 1, j + 1) = 1 Then Call goes(i, j - 1) Else Call goes(i, j + 3) End If ElseIf comturn = True And table(i, j) * table(i + 1, j) * table(i + 2, j) = 1 And (table(i - 1, j) = 0 And table(i + 3, j) = 0) Then If table(i - 2, j) = 1 Or table(i - 1, j - 1) = 1 Or table(i, j - 1) = 1 Or table(i + 1, j - 1) = 1 Or table(i - 1, j + 1) = 1 Or table(i, j + 1) = 1 Or table(i + 1, j + 1) = 1 Then Call goes(i - 1, j) Else Call goes(i + 3, j) End If ElseIf comturn = True And table(i, j) * table(i + 1, j + 1) * table(i + 2, j + 2) = 1 And (table(i - 1, j - 1) = 0 And table(i + 3, j + 3) = 0) Then If table(i - 2, j - 2) = 1 Or table(i - 1, j) = 1 Or table(i - 1, j + 1) = 1 Or table(i, j - 1) = 1 Or table(i, j + 1) = 1 Or table(i + 1, j - 1) = 1 Or table(i + 1, j) = 1 Then Call goes(i - 1, j - 1) Else Call goes(i + 3, j + 3) End If ElseIf comturn = True And table(i, j) * table(i - 1, j + 1) * table(i - 2, j + 2) = 1 And (table(i + 1, j - 1) = 0 And table(i - 3, j + 3) = 0) Then If table(i + 2, j - 2) = 1 Or table(i - 1, j - 1) = 1 Or table(i, j - 1) = 1 Or table(i - 1, j) = 1 Or table(i + 1, j) = 1 Or table(i + 1, j + 1) = 1 Or table(i, j + 1) = 1 Then Call goes(i + 1, j - 1) Else Call goes(i - 3, j + 3) End If End If Next j Next i '阻止对方四点一线 For i = 0 To 15 For j = 0 To 15 If comturn = True And wantfour(i, j, 1) = True Then Call goes(i, j) End If Next j Next i '阻止对方四点一线 For i = 0 To 15 For j = 0 To 15 If comturn = True And (want231(i, j, 1) = True _ Or want232(i, j, 1) = True _ Or want233(i, j, 1) = True) Then Call goes(i, j) End If Next j Next i '阻止对方走双飞燕 For i = 0 To 15 For j = 0 To 15 If comturn = True And (want231(i, j, 2) = True _ Or want232(i, j, 2) = True _ Or want233(i, j, 2) = True) Then Call goes(i, j) End If Next j Next i '走双飞燕 For i = 0 To 15 For j = 0 To 15 If comturn = True And wantfour1(i, j, 1) = True Then Call goes(i, j) End If Next j Next i '防止叫吃 For i = 0 To 15 For j = 0 To 15 If comturn = True And wantthree(i, j, 1) = True Then Call goes(i, j) End If Next j Next i '挡对方两子一线的 For i = 0 To 15 For j = 0 To 15 If comturn = True And wantthree(i, j, 2) = True Then Call goes(i, j) End If Next j Next i '连自己两点一线的 For i = 0 To 15 For j = 0 To 15 If comturn = True And table(i, j) = 0 And (table(i - 1, j) * table(i + 1, j) = 1 _ Or table(i - 1, j + 1) * table(i + 1, j + 1) = 1 _ Or table(i, j - 1) * table(i, j + 1) = 1 _ Or table(i + 1, j - 1) * table(i - 1, j + 1) = 1 _ ) Then Call goes(i, j) End If Next j Next i '断 For i = 0 To 15 For j = 0 To 15 If comturn = True And table(i, j) = 0 And (table(i - 1, j) * table(i + 1, j) = 4 _ Or table(i - 1, j + 1) * table(i + 1, j + 1) = 4 _ Or table(i, j - 1) * table(i, j + 1) = 4 _ Or table(i + 1, j - 1) * table(i - 1, j + 1) = 4 _ ) Then Call goes(i, j) End If Next j Next i '粘 For i = 0 To 15 For j = 0 To 15 If comturn = True And table(i, j) = 1 And (table(i - 1, j - 1) = 0 Or table(i, j - 1) = 0 Or table(i + 1, j - 1) = 0 Or table(i - 1, j) = 0 Or table(i + 1, j) = 0 Or table(i - 1, j + 1) = 0 Or table(i, j + 1) = 0 Or table(i + 1, j + 1) = 0) Then If table(i - 1, j - 1) = 0 Then Call goes(i - 1, j - 1) ElseIf table(i + 1, j + 1) = 0 Then Call goes(i + 1, j + 1) ElseIf table(i, j - 1) = 0 Then Call goes(i, j - 1) ElseIf table(i, j + 1) = 0 Then Call goes(i, j + 1) ElseIf table(i + 1, j - 1) = 0 Then Call goes(i + 1, j - 1) ElseIf table(i - 1, j + 1) = 0 Then Call goes(i - 1, j + 1) ElseIf table(i - 1, j) = 0 Then Call goes(i - 1, j) ElseIf table(i + 1, j) = 0 Then Call goes(i + 1, j) End If End If Next j Next i '随意走一步 [/quote] 谢了

w77 · 发表于 2003-9-1 22:00

黑白之道，非常道。吾辈人，难望两位项背..............咦，人在哪里？？？？？？

		自动登录	找回密码
密码			免费注册