Código
If Variable Mod 2 = 0 then 'Aca es par Else 'Aca es impar End If If Variable and 1 then 'aca es Impar Else 'Aca es par End If If (Variable/2) = int (Variable/2) then 'este solo si la variable es single o double 'Aca es par Else 'Aca es impar End if
Otra forma de cambiar de jugador a cada turno es asi:
Código
Dim turno as boolean ' esto lo declaras afuera del procedimiento If Turno then 'turno de jugador 1 ' si turno es = true entonces else 'turno de jugador 2 ' si turno es = false entonces end if turno = not (turno) 'Si turno es true lo hace false y si es false lo hace true
GRACIAS POR LEER!!!