Odd Even number vb 6.p
Private sub oddbtn_class()
Dim num As Integer
num = Val(text1.text)
If(num Mod 2=0) Then
Msgbox("Even number")
Else
Msgbox("Odd Number")
End if
End sub
Dim num As Integer = numericUpDown1.Value
If ((num Mod 2) = 0) Then MsgBox("Even") Else MsgBox("Odd") End If