编辑代码

Module variablesNdataypes
  '枚举
  Enum Colors
    red = 1
    orange = 2
    yellow = 3
    green = 4
    azure = 5
    blue = 6
    violet = 7
  End Enum
  SUb Main
      '接收来自用户的值
      Dim message As String
      Console.Write("Enter message:")
      message = Console.ReadLine
      Console.WriteLine()
      Console.WriteLine("Your Message:{0}",message)
      Console.WriteLine("The Color Red is : " & Colors.red)
      Console.ReadLine()
  End SUb
End Module