什么是枚举，我来教教你

private   enum   meiju  
            me=1  
            you=2  
            she   =3  
  end   enum  
   
   
  private   who   as   meiju  
   
   
  who   =   me  
  who   =   you  
  who   =   she  
   
  这就是枚举,它用一组新名表示一些类型想同的常量,产生一个新类型.

 

枚举类型提供了方便的方法处理有关的常数和使名称与常数数值相关联。例如，可以为与星期日期相关联的一组整数常数声明一个枚举类型，然后在代码中使用星期的名称而不使用其整数数值。  
   
  枚举可以通过在标准模块或公用类模块中的声明部分用   Enum   语句声明一个枚举类型来创建。枚举类型可以用适当的关键字声明为   Private   或   Public，例如：  
   
  Private   Enum   MyEnum  
  -或-  
   
  Public   Enum   MyEnum  
   
  在缺省情况下，在枚举中的第一个常数被初始化为   0，其后的常数则初始化为比其前面的常数大   1   的数值。例如在下面的枚举   Days   中，包含了一个数值为   0   的常数   Sunday，数值为   1   的常数   Monday，数值为   2   的常数   Tuesday   等等。  
   
  Public   Enum   Days  
        Sunday  
        Monday  
        Tuesday  
        Wednesday  
        Thursday  
        Friday  
        Saturday  
  End   Enum  
   
  提示   Visual   Basic   提供了内置的枚举   vbDayOfWeek，包括了与星期的七天相对应的常数。如希望查阅预定义的枚举常数，在代码窗口键入   vbDayOfWeek，后跟一个句号，Visual   Basic   将自动显示该枚举常数的内容。  
   
  可以使用赋值语句显式地给枚举中的常数赋值。可以赋值为任何长整数，包括负数。例如，可能希望常数数值小于   0   以便代表出错条件。  
   
  在以下的枚举中，常数   Invalid   被显式地赋值   –1，而常数   Sunday   被赋值   0。因为   Saturday   是枚举中的第一个元素，所以也被赋值   0。Monday   的数值为   1（比Sunday   的数值大   1），Tuesday   的数值为   2   等等。  
   
  Public   Enum   WorkDays  
        Saturday  
        Sunday   =   0  
        Monday  
        Tuesday  
        Wednesday  
        Thursday  
        Friday  
        Invalid   =   -1  
  End   Enum  
   
  注意   Visual   Basic   将枚举中的常数数值看作长整数。如果将一个浮点数值赋给一个枚举中的常数，Visual   Basic   会将该数值取整为最接近的长整数。  
   
  通过将相关的常数集组织进枚举类型中，就可以在不同的上下文环境中使用同一个常数名称。例如，可以使用在枚举   Days   和   WorkDays   中的同一个代表星期日期的名称。  
   
  当引用单个常数时，为了避免模糊引用，应在常数名称前冠以枚举名。下列代码引用   Days   和   WorkDays   枚举中的   Saturday   常数，并在立即窗口中显示它们的不同的数值。  
   
  Debug.Print   "Days.Saturday   =   "   &   Days.Saturday  
  Debug.Print   "WorkDays.Saturday   =   "   &   WorkDays.Saturday  
   
  当向一个枚举中的常数赋值时，也可以使用另一个枚举中的常数的数值。例如，下述   WorkDays   枚举的声明与前述的声明是等同的。  
   
  Public   Enum   WorkDays  
        Sunday   =   0  
        Monday  
        Tuesday  
        Wednesday  
        Thursday  
        Friday  
        Saturday   =   Days.Saturday   -   6  
        Invalid   =   -1  
  End   Enum  
   
  声明枚举类型后，就可以声明该枚举类型的变量，然后使用该变量存储枚举常数的数值。下列代码使用   WorkDays   类型的变量存储与   WorkDays   枚举中的常数相关联的整数数值。  
   
  Dim   MyDay   As   WorkDays  
  MyDay   =   Saturday                   'Saturday   的数值为   0。  
  If   MyDay   <   Monday   Then       'Monday   的数值为   1，  
                                      '所以   Visual   Basic   显示一个消息框。  
        MsgBox   "It's   the   weekend.   Invalid   work   day!"  
  End   If  
   
  注意，当在代码窗口中键入示例中的第二行代码时，Visual   Basic   自动在“自动列出成员”列表中显示   WorkDays   枚举的常数。