VB.Net/Language Basics/Xor

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

Truth table for Xor

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


Xor Demo

Imports System
public class MainClass
   Shared Sub Main()
    Dim Var1 As Short
    
    Console.WriteLine( Var1 Xor 5 )
   End Sub
End Class