Looking for code to this problem. The code is missing from the Cramster database
ID: 3628231 • Letter: L
Question
Looking for code to this problem. The code is missing from the Cramster database.
Theater Revenue.
A movie theater only keeps a percentage of the revenue earned from ticket
sales. The reaminder goes to the movie company. Create an application that
calculates and displays the following figures for one night's box office
business at a thater:
Assume the theater keeps 20% of its box office receipts and sends the other
80% to the movie company. Use a named constant in your code to represent this
percentage.
Below is what i have so far.
Dim decAdultPrice As Decimal ' Price per adult ticket
Dim decAdultSold As Decimal ' Number of adult tickets sold
Dim decTotalGrossAdult As Decimal
Dim decChildPrice As Decimal ' Price per child ticket
Dim decChildSold As Decimal
Dim decTotalGrossChild As Decimal ' Number of child tickets sold
Dim decTotalGross As Decimal
Const decREVEUNE As Decimal = -0.2 ' This seems to be the problem
' Adult Calculations
decAdultPrice = CDec(txtAdultTicket.Text)
decAdultSold = CDec(txtAdultSold.Text)
decTotalGrossAdult = decAdultPrice * decAdultSold
lblGrossAdult.Text = decTotalGrossAdult.ToString("c")
' Child Calculations
decChildPrice = CDec(txtChildTicket.Text)
decChildSold = CDec(txtChildSold.Text)
decTotalGrossChild = decChildPrice * decChildSold
lblGrossChild.Text = decTotalGrossChild.ToString("c")
' Total Calculations
decTotalGross = decTotalGrossAdult + decTotalGrossChild
lblTotalGross.Text = decTotalGross.ToString("c")
' Display Variables
Dim decNetAdultPrice As Decimal
Dim decNetAdultSold As Decimal
Dim decTotalNetGrossAdult As Double
Dim decNetChildPrice As Decimal
Dim decNetChildSold As Decimal
Dim decTotalNetGrossChild As Double
Dim decTotalNet As Double
' Adult Net Calculations
decNetAdultPrice = CDec(txtAdultTicket.Text)
decNetAdultSold = CDec(txtAdultSold.Text)
decTotalNetGrossAdult = decNetAdultPrice * decNetAdultSold
decTotalNetGrossAdult = -decREVEUNE
lblNetAdult.Text = decTotalNetGrossAdult.ToString("c")
' Child Net Calculations
decNetChildPrice =
CDec(txtChildTicket.Text)
decNetChildSold =
CDec(txtChildSold.Text)
decTotalNetGrossChild = decNetChildPrice * decNetChildSold
decTotalNetGrossChild = -decREVEUNE
lblNetChild.Text = decTotalNetGrossChild.ToString("c")
' Total Calclations
decTotalNet = decTotalNetGrossAdult + decTotalNetGrossChild
decTotalGross = -decREVEUNE
lblTotalNet.Text = decTotalNet.ToString("c")
Explanation / Answer
Dear....Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.