用VB实现井字游戏

何一线已有机器方一个子并且另外两格仍空，作成机器方的两个子
    ''机器落子的结果等于该空格
    If intWells(1) = -1 Then
       For i = 1 To 3 Step 1
           If usrWells(i).Wells_Value = 0 Then
              funGetPCWells = i
              Exit Function
           End If
       Next i
    ElseIf intWells(2) = -1 Then
       For i = 4 To 6 Step 1
           If usrWells(i).Wells_Value = 0 Then
              funGetPCWells = i
              Exit Function
           End If
       Next i
    ElseIf intWells(3) = -1 Then
       For i = 7 To 9 Step 1
           If usrWells(i).Wells_Value = 0 Then
              funGetPCWells = i
              Exit Function
           End If
       Next i
    ElseIf intWells(4) = -1 Then
       For i = 1 To 7 Step 3
           If usrWells(i).Wells_Value = 0 Then
              funGetPCWells = i
              Exit Function
           End If
       Next i
    ElseIf intWells(5) = -1 Then
       For i = 2 To 8 Step 3
           If usrWells(i).Wells_Value = 0 Then
              funGetPCWells = i
              Exit Function
           End If
       Next i
    ElseIf intWells(6) = -1 Then
       For i = 3 To 9 Step 3
           If usrWells(i).Wells_Value = 0 Then
 &nbs