循环布尔变量

Question

我有 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

Answer 1

我建议你制作这些布尔变量的数组，然后迭代抛出它，这样
你可以更快地访问所有变量。