Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim Input_1 as integer

        dim Input_2 as integer

        dim count as integer

        For count = 1 to 4

            'Input of values'

            Console.WriteLine("Enter 0 or 1")

            Input_1 = console.ReadLine()

            Console.WriteLine("Enter 0 or 1")

            Input_2 = console.ReadLine()

            'AND Logic Gate'

            if Input_1 = 0 and Input_2 = 0 then

                Console.WriteLine("Your Output is 0")

            else

                if Input_1 = 0 and Input_2 = 1 then

                    Console.Writeline("Your Output is 0")

                end if

​

                if Input_1 = 1 and Input_2 = 0 then

                    Console.WriteLine("Your Output is 0")

                end if

​

                if Input_1 = 1 and Input_2 = 1 then

                    Console.WriteLine("Your Output is 1")

                end if

            end if

        Next

    End Sub

End Module

​