Imports System
Public Module Module1
Public Sub Main()
console.WriteLine("what is your age")
dim x as integer = console.ReadLine()
console.WriteLine("what is your gender")
dim y as string = console.ReadLine()
If x >= 18 then
If y ="m" Then
console.WriteLine("you are man")
else
console.WriteLine("you are women")
end if
If y="m" then
console.WriteLine("boy")
console.WriteLine(" girl")
End Sub
End Module