[VB6] Determinare se un numero digitato è pari o dispari

[LMondi]

Fai così:

Private Sub Command1_Click()
    
    If Text1.Text And 1 Then MsgBox ("Dispari") Else MsgBox ("Pari")

End Sub

Oppure così:

Private Sub Command1_Click()
    Dim intNumero As Double
    If Len(Text1.Text) > 0 Then
        intNumero = (Text1.Text)
        If intNumero Mod 2 = 0 And 1 Then
            MsgBox "Il numero è pari"
            Else
            MsgBox "Il numero è dispari"
        End If
    End If
End Sub