VB.Net/Language Basics/And

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

If with And

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main()
       "Declare variables
       Dim strName1 As String, strName2 As String
       "Get the names
       strName1 = ""
       strName2 = ""
       "Are both names Sydney?
       If strName1 = "Sydney" And strName2 = "Sydney" Then
           System.Console.WriteLine("Both names are Sydney.")
       Else
           System.Console.WriteLine("One of the names is not Sydney.")
       End If
   End Sub

End Class

      </source>


Truth table for And

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
     " create truth table for And
     Console.Write("And" & vbCrLf & "False And False: " & _
        (False And False) & vbCrLf & "False And True: " & _
        (False And True) & vbCrLf & "True And False: " & _
        (True And False) & vbCrLf & "True And True: " & _
        (True And True) & vbCrLf & vbCrLf)
   End Sub

End Class

      </source>