把井字棋改为四子棋 vb

井字棋改成四字棋，判断胜负改动稍微大一点，其他地方很好改的

代码贴不全，画棋盘和棋子的部分我贴上来吧

Private Sub Picture1_Paint()
Dim r As Integer, s As Single, i As Integer, j As Integer, k As Integer
r = gw / 2 '画圆的半径
s = 2 / 3 '画椭圆的纵横比

Picture1.Cls
For k = 0 To 15
i = k \ 4
j = k Mod 4
Select Case a(i, j)
Case 1
Picture1.FillStyle = 0
Picture1.FillColor = vbRed
Picture1.Circle ((2 * i + 1) * r, (2 * j + 1) * r), r, vbRed
Case 2
Picture1.FillStyle = 0
Picture1.FillColor = vbBlue
Picture1.Circle ((2 * i + 1) * r, (2 * j + 1) * r), r, vbBlue, , , s
End Select
Next

For i = 1 To 3
Picture1.Line (i * gw, 0)-(i * gw, 4 * gw)
Picture1.Line (0, i * gh)-(4 * gh, i * gh)
Next

End Sub