code361a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 25 行

DefBool A-C

Private Function CheckVal(A, B, C) As Boolean
  If A And B Or B And C Or C Then
    CheckVal = True
  Else
    CheckVal = False
  End If
  A = Not A
  B = Not B
  C = Not C
End Function

Public Sub Main()
  b1 = True
  b2 = True
  b3 = False

  If b3 Or CheckVal(b1, b2, b3) Then
    Debug.Print "B1, B2, B3", b1, b2, b3
  Else
    Debug.Print "B3, B2, B1", b3, b2, b1
  End If
End Sub