循环布尔变量

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

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