Sayı Tek mi Çift mi?-V.Basic-(Kaynak1)

If isEven(Text1.Text) Then

                 MsgBox "Sayı Çift"                                       ‘ True ise sayı çift

                 Else

                                   MsgBox "Sayı Tek"

        End If

         

        Function isEven(n As Integer) As Boolean

                 isEven = True

                 If n And 1 Then isEven = False