井字棋游戏.txt

Dim sel As Integer       
Dim sum As Integer
Dim a(9) As CommandButton

Private Sub Command1_Click(Index As Integer)
  n = Index + 1
  If a(n).Tag = 0 Then
     a(n).Caption = "⊙"
     a(n).Tag = -1
     sum = sum + 1                   
     Call yixian                      
     If Label1.Caption = "" Then
        Call xuan                      
     End If
  End If

End Sub

Private Sub Command2_Click()
Call Form_Activate
End Sub

Private Sub Form_Activate()
  sum = 0
  Picture1.Enabled = True
  For i = 1 To 9
    a(i).Caption = ""
    a(i).Tag = 0
  Next
  Label1.Caption = ""