VB.Net/Language Basics/AndAlso — различия между версиями

Материал из VB Эксперт
Перейти к: навигация, поиск
м (1 версия)
 
(нет различий)

Текущая версия на 12:42, 26 мая 2010

And and AndALso

Imports System
Imports System.Data
Imports System.Collections
public class MainClass
   Shared Sub Main()
        Dim testvar As New A()
        Console.WriteLine("Before IsFalse And IsFalse")
        If testvar.IsFalse And testvar.IsFalse Then
        End If
        Console.WriteLine("Before IsFalse AndAlso IsFalse")
        If testvar.IsFalse AndAlso testvar.IsFalse Then
        End If
   End Sub
End Class
    Class A
        Public ReadOnly Property IsTrue() As Boolean
            Get
                Console.WriteLine("IsTrue was called")
                Return True
            End Get
        End Property
        Public ReadOnly Property IsFalse() As Boolean
            Get
                Console.WriteLine("IsFalse was called")
                Return False
            End Get
        End Property
    End Class


Truth table for AndAlso

Imports System
Public Class MainClass
    Shared Sub Main(ByVal args As String())
      " create truth table for AndAlso
        Console.Write("AndAlso" & vbCrLf & _
           "False AndAlso False: " & (False AndAlso False) & _
           vbCrLf & "False AndAlso True: " & _
           (False AndAlso True) & vbCrLf & _
           "True AndAlso False: " & (True AndAlso False) & _
           vbCrLf & "True AndAlso True: " & _
           (True AndAlso True) & vbCrLf & vbCrLf)
    End Sub
End Class