Imports System

Public Module Module1

    Public Sub Main()

        Dim Ticket As Integer 

        Dim Total As Decimal

        Dim strChoices, strLoop As String

        Do 

            Console.WriteLine("Welcome To SM Cinema")

            Console.WriteLine("List Of Operation")

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

            Console.WriteLine("2. Weathering With You - P300")

            Console.WriteLine("3. Hello, Love, Goodbye - P310")

            Console.WriteLine("4. Exit")    

            Console.Write("Select Movie: ")

            strChoices = Console.ReadLine

            If strChoices = "1" Then

                Console.WriteLine("You Select: IT - P250")

                Console.WriteLine("Enter The Number of Ticket: ")

                Ticket = Console.ReadLine

                Total = Ticket * 250 

                Console.WriteLine("The Answer is: " & Total)

                Console.ReadLine()

            End If

                If strChoices = "2" Then

                Console.WriteLine("You Select: Weathering With You - P300")

                Console.WriteLine("Enter The Number of Ticket: ")

                Ticket = Console.ReadLine

                Total = Ticket * 300

                Console.WriteLine("The Answer is: " & Total)

                Console.ReadLine()

            End If

                If strChoices = "3" Then

                Console.WriteLine("You Select: Hello, Love, Goodbye - P310")

                Console.WriteLine("Enter The Number of Ticket: ")

                Ticket = Console.ReadLine

                Total = Ticket * 310

                Console.WriteLine("The Answer is: " & Total)

                Console.ReadLine()

            End If  

            If strChoices = "4" Then

                Console.WriteLine("You Cancel The Transaction")

            End If

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

            strLoop = Console.ReadLine()

        Loop While strLoop = "Y"

    End Sub

End Module