Imports System
Public Class Test
Public Shared Function is_even(n As Integer)
return (Convert.toInt32(n / 2) * 2 = n)
End Function
Public Shared Sub Main()
Dim n as Integer = 13
Dim s as String = if (is_even(n), "Even", "Odd")
Console.WriteLine(s)
End Sub
End Class
'run:
' Odd