Imports System
Public Module Module1
public x as integer
Public Sub Main()
Console.WriteLine("enter a number and press enter")
x = (Console.ReadLine)
if ( x mod 2 =0) and (x mod 3=0)
Console.WriteLine ( x & " 是6的倍數 " )
else
Console.WriteLine ( x & " 不是6的倍數 " )
end if
end sub
End Module