求VB做的井字棋游戏？

[xiamin]

求VB做的井字棋游戏？

[fanlage]

我写了一个，给你看看
Dim r, g, b, n, i, j As Integer

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 0 To 3
Form1.Line (900, 900 + 900 * i)-Step(2700, 0)
Form1.Line (900 + 900 * i, 900)-Step(0, 2700)
Next i

MsgBox "井字棋获胜的方法是将相同颜色的棋子横、竖、斜相连一起！至于有没有获胜赢家自己判断！"

End Sub

Private Sub Command2_Click()
Form1.Cls
r = 255
g = 255
b = 255
End Sub


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

Form1.FillStyle = 0
Form1.FillColor = RGB(r, g, b)

r = Abs(r - 255)
g = Abs(b - 255)
b = Abs(b - 255)


If X >= 900 And X <= 1800 Then
If Y >= 900 And Y <= 1800 Then
Form1.Circle (1350, 1350), 300
End If
End If

If X >= 900 And X <= 1800 Then
If Y >= 1800 And Y <= 2700 Then
Form1.Circle (1350, 2250), 300
End If
End If

If X >= 900 And X <= 1800 Then
If Y >= 2700 And Y <= 3600 Then
Form1.Circle (1350, 3150), 300
End If
End If
'左竖行完成
If X >= 1800 And X <= 2700 Then
If Y >= 900 And Y <= 1800 Then
Form1.Circle (2250, 1350), 300
End If
End If

If X >= 2700 And X <= 3600 Then
If Y >= 900 And Y <= 1800 Then
Form1.Circle (3150, 1350), 300
End If
End If
'最上面一行完成

If X >= 1800 And X <= 2700 Then
If Y >= 1800 And Y <= 2700 Then
Form1.Circle (2250, 2250), 300
End If
End If

If X >= 2700 And X <= 3600 Then
If Y >= 1800 And Y <= 2700 Then
Form1.Circle (3150, 2250), 300
End If
End If
'第二行完成

If X >= 1800 And X <= 2700 Then
If Y >= 2700 And Y <= 3600 Then
Form1.Circle (2250, 3150), 300
End If
End If

If X >= 2700 And X <= 3600 Then
If Y >= 2700 And Y <= 3600 Then
Form1.Circle (3150, 3150), 300
End If
End If
'所有棋子完成


End Sub