Цикл «For» для булевых переменных?

Question

У меня есть две булевы переменные, а именно «a» и «b».

В общем случае существуют 4 состояния для переменных (TT, TF, FT, FF).

Я хочу видеть, как я могу автоматически изменять переменные от true до false и кода для каждого состояния.

Что-то вроде цикла «For», но для булевых переменных.

For a = True to False 

    For b = True to False 

    Next 
Next 

Answer 1

Вы просто представляют логические значения как 1 или 0, например:

Dim b1 As Byte 
Dim b2 As Byte 
Dim a As Boolean 
Dim b As Boolean 

For b1 = 0 To 1 
    For b2 = 0 To 1 
     a = CBool(b1) 
     b = CBool(b2) 
    Next 
Next 

Answer 2

Вам нужно всего лишь один цикл:

Dim a As Boolean 
Dim b As Boolean 
Dim i As Integer 

For i = 0 To 3 
    a = i And 1 
    b = i And 2 
    ... 
Next 

Answer 3

Это:

Do 
    a = CBool(Not a) 
    b = CBool(IIf(a, Not b, b)) 
Loop Until Not a And Not b 

Will произвести все 4 результата, а затем выйти

Answer 4

Это лучшее решение, которое я нашел для VBA, который поддерживает согласованность с исходным кодом:

Dim a As Boolean 'defining your Boolean Variables 
Dim b As Boolean 

For i = 1 To 0 Step -1: a = i 'this take 'a' from TRUE to FALSE 
    For j = 1 To 0 Step -1: b = j 'this take 'b' from TRUE to FALSE 

    Next j 
Next i