QB Program to check if the supplied number is even or odd.

Linear Program 

Cls
Input "Any Number"; number
If number Mod 2 = 0 Then
Print "The number is even"
Else
Print "The number is odd"
End If
End

Using Sub Procedure 

Cls Input "Any Number"; number Call odd_even(number) End Sub odd_even (number) If number Mod 2 = 0 Then Print "The number is even" Else Print "The number is odd" End If End Sub Using Function Procedure  Cls Input "Any Number"; number Print odd_even$(number) End Function odd_even$ (number) If number Mod 2 = 0 Then odd_even$ = "The number is even" Else odd_even$ = "The number is odd" End If End Function