Imports System

Public Module Module1

    Public Sub Main()

        Dim intTicket as Integer

        Dim decTotalAmount as Decimal

        Dim strchoices , strloops as String

        Do

            Console.Writeline("Welcome to SM Cinema")

            Console.Writeline("List Of Operation")

            Console.Writeline("1.IT -P250")

            Console.Writeline("2.Weathearing With You -P300")

            Console.Writeline("3.Hello, Love, Goodbye -P300")

            Console.Writeline("4.Exit")

            Console.Writeline("Select Movie: ")

            strchoices = Console.ReadLine

            If strchoices = "1" then

                Console.Writeline("You Select: IT -250")

                Console.Writeline("Enter Number of Ticket: ")

                intTicket = Console.ReadLine

                decTotalAmount = intTicket = 250

                Console.Writeline("The Answer is: "& decTotalAmount)

                Console.ReadLine()

            End If

                If strchoices = "2" then

                Console.Writeline("You Select: Weathering With You")

                Console.Writeline("Enter Number of Ticket: ")

                intTicket = Console.ReadLine

                decTotalAmount = intTicket = 300

                Console.Writeline("The Answer is: "& decTotalAmount)

                Console.ReadLine()

            End if

            If strchoices = "3" then

                Console.Writeline("You Select: Hello, Love Goodbye -P300")

                Console.Writeline("Enter Number of Ticket: ")

                intTicket = Console.ReadLine

                decTotalAmount = intTicket = 300

                Console.Writeline("The Answer is: "& decTotalAmount)

                Console.ReadLine()

            End if

            if strchoices ="4" then

                Console.Writeline("You Cancel The Transaction")

            End if

            Console.Writeline("Another Transaction?? (Y/N)")

            strloops = Console.ReadLine()

        Loop While strloops ="Y"

​

​

        End Sub

End Module