Sapere se un numero è pari o dispari

Per sapere se un numero è pari è sufficiente utilizzare la funzione Mod, la quale 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 Button1_Click()

 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