vb編寫井字棋。怎麽辦？

棋盤初始化

Private

Sub

gameInit()

Dim

k

As

Integer

For

k

=

0

To

8

a(k

\

3,

k

Mod

3)

=

0

Next

mnuRed.Enabled

=

True

mnuBlue.Enabled

=

True

Me.Caption

=

IIf(rbFirst,

"井字棋：目前是紅方先走！",

"井字棋：目前是藍方先走！")

Call

Picture1_Paint

End

Sub

Rem

棋局結束

Private

Sub

gameOver(ByVal

result

As

String,

k

As

Integer)

MsgBox

result

k

=

0

Call

gameInit

End

Sub

完整的代碼已經給妳了"