循环布尔变量

我有8个布尔变量，我需要能够为每个布尔值为真的电子邮件字符串添加电子邮件。如果不写一百万条if语句，我不知道如何去做。下面是一些我有：循环布尔变量

if bIsBlue then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varBlueGrp 
    End if 
    if bIsRed then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varRedGrp 
    End if 
    if bIsGreen then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varGreenGrp 
    End if 
    if bIsBrown then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varBrownGrp        
    End if 
    if bIsBlue and bIsRed then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varBlueGrp & ", " & varRedGrp 
    End if 
    if bIsBlue and bIsGreen then 
     strEmailTo = strSalesEmail 
     strEmailTo = strEmailTo & ", " & varBlueGrp & ", " & varGreenGrp 
    End if

来源

2012-01-16 user1152145

你需要的是查找表。对于每个键（Color），您应该存储一个电子邮件组值。至少，你应该使用switch语句。 http://msdn.microsoft.com/en-us/library/dft2z9yf(v=vs.80).aspx –

另请参阅http://msdn.microsoft.com/en-us/library/xfhwa508.aspx –

谢谢一堆！ – user1152145