Module LogicTest
Sub Main()
Dim x As Integer = 1
Dim y As Integer = 1
If A(x) Or B(y) Then
Console.WriteLine("x= " & CStr(x) & ", y = " & CStr(y))
End If
If A(x) OrElse B(y) Then
Console.WriteLine("x= " & CStr(x) & ", y = " & CStr(y))
End If
End Sub
Function A(ByVal v1 As Integer) As Boolean
Return True
End Function
Function B(ByVal v1 As Integer) As Boolean
Return True
End Function
End Module
|