Short-circuit evaluation: Difference between revisions
→{{header|VBA}}
Line 4,062:
if ( 1 || `echo error >/dev/stderr` ) echo ok</lang>
=={{header|VBA}}==
<lang vb>Private Function a(i As Variant) As Boolean
Debug.Print "a: "; i = 1,
a = i
End Function
Private Function b(j As Variant) As Boolean
Debug.Print "b: "; j = 1;
b = j
End Function
Public Sub short_circuit()
Dim x As Boolean, y As Boolean
'Dim p As Boolean, q As Boolean
Debug.Print "=====AND=====" & vbCrLf
For p = 0 To 1
For q = 0 To 1
If a(p) Then
x = b(q)
End If
Debug.Print " = x"
Next q
Debug.Print
Next p
Debug.Print "======OR=====" & vbCrLf
For p = 0 To 1
For q = 0 To 1
If Not a(p) Then
x = b(q)
End If
Debug.Print " = x"
Next q
Debug.Print
Next p
Debug.Print
End Sub
</lang>{{out}}<pre>=====AND=====
a: Onwaar = x
a: Onwaar = x
a: Waar b: Onwaar = x
a: Waar b: Waar = x
======OR=====
a: Onwaar b: Onwaar = x
a: Onwaar b: Waar = x
a: Waar = x
a: Waar = x</pre>
=={{header|Visual FoxPro}}==
<lang vfp>
| |||