In this article I would like to share with you a sample program that will ask the user to give a number and then our program will check if the given number is an odd or even number using Visual Basic. I also included a function to check if the text box is empty and it will display a message box to give a warning to our user. The code is very simple and easy to understand. I hope you will find my work useful. Thank you.
I am currently accepting programming work kindly contact me in the following email address for further details. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My mobile number here in the Philippines is 09173084360.
Sample Program Output
Program Listing
Function IsOdd(ByVal iNum As Integer) As Boolean
IsOdd = ((iNum \ 2) * 2 <> iNum)
End Function
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox ("Cannot be empty")
Text1.Text = ""
Label1.Caption = ""
Text1.SetFocus
Exit Sub
End If
If IsOdd(Val(Text1.Text)) = True Then
Label1.Caption = "The given number " & Text1.Text & " is an ODD number."
Else
Label1.Caption = "The given number " & Text1.Text & " is an EVEN number."
End If
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label1.Caption = ""
Text1.SetFocus
End Sub
Private Sub Command3_Click()
End
End Sub
