VB.Net/Language Basics/Xor

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

Truth table for Xor

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

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

End Class

      </source>


Xor Demo

<source lang="vbnet"> Imports System public class MainClass

  Shared Sub Main()
   Dim Var1 As Short
   
   Console.WriteLine( Var1 Xor 5 )
  End Sub

End Class

      </source>