Imports System

'written by .....

'Simulation of an AND gate with two inputs using the If statement

​

Public Module Module1

    Public Sub Main()

        dim input1 as integer 

        dim input2 as integer

        console.WriteLine("Enter a value (0 or 1) for the first input")

        input1=console.readline()

        console.WriteLine("Enter a value (0 or 1) for the second input")

        input2=console.readline()

        console.writeline("----------------------------------------")

        If input1=0 and input2=0 then Console.writeline("Output is 0")

        If input1=0 and input2=1 then Console.writeline("Output is 0")

        If input1=1 and input2=0 then Console.writeline("Output is 0")

        If input1=1 and input2=1 then Console.writeline("Output is 1")

    End Sub

End Module