Sapere se un numero è pari o dispari

Per sapere se un numero è pari, è possibile utilizzare almeno due modalità:

Uso della funzione Mod

L'uso della funzione Mod() calcola il resto del quoziente di due numeri interi.

Poiché una caratteristica dei numeri pari è che, divisi per 2, essi restituiscono sempre il resto del quoziente pari a zero, se il calcolo del resto del quoziente ottenuto con la funzione Mod è uguale a zero, allora il numero sarà pari, altrimenti sarà dispari:

Esempio:

Public Sub Main()

 Dim s As String
 Dim i As Integer

  s = InputBox("Immettere un numero intero:")

  If Val(s) Mod 2 = 0 Then
    Print "Il numero è Pari."
   Else
    Print "Il numero è Dispari."
  Endif

End

Uso dell'operatore AND

Si porrà il valore da verificare con l'operatore AND ed il valore 1, agendo così sui bit.

Esempio:

Public Sub Main()

 Dim j As Byte


  For j = 1 To 20
    If j And 1 Then
      Print j, "numero dispari !"
    Else
      Print j, "numero pari !"
    Endif
  Next

End