VB.Net/Language Basics/And

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

If with And

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


Truth table for And

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