Aplicações Informaticas

O algoritmo e o respectivo programa que leia dois vectores se o 1º valor for menor que o 2º valor efectuar a operação lógica AND caso contrario efectuar a operação lógica XOR

Module operacaologica
Dim op1, op2 As Integer
Dim res As Byte

Sub Main()
Console.WriteLine("Escrever 1ª operação")
op1 = Console.ReadLine()
Console.WriteLine("Escrever 2ª operação")
op2 = Console.ReadLine()
If op1 < op2 Then
res = op1 And op2
Else
res = op1 Xor op2
End If
Console.WriteLine("o resultado é:")
Console.WriteLine(res)
Console.ReadLine()

End Sub

End Module