Duplicate Question
The question on this page has been marked as a duplicate question.
Original Question
break even analysis. suppose a certain product sells for a dollars per unit. then the revenue from selling x units of the produ...Asked by Caitlin
break even analysis. suppose a certain product sells for a dollars per unit. then the revenue from selling x units of the product is ax dollars if the cost of producting each unit of the product is b dollars and the company has overhead cost of c dollars then the total cost of producing x unit of the product is bx + c dollars. write a programe. ( note revenue is the amount of money received from the sale of the product . the value of a, b and c are called the marginal revenue, marginal cost and fixed cost respectively. the break even point is the value of x for which the revenue equals the total cost. write program that request the marginal revenue. write a program that request the marginal revenue, marginal cost, fixed cost and number of units of the product produced and sold (x) and then displays one of the following three output : profit, loss or break even.
This is what I have so far, but I'm stuck.
If IsNumeric(fixedCost) And IsNumeric(marginalRev) And IsNumeric(marginalCost) And IsNumeric(units) Then
marginalRev = CDbl(txtMargin.Text)
marginalCost = CDbl(txtMarginCost.Text)
fixedCost = CDbl(txtFixedCost.Text)
units = CDbl(txtUnits.Text)
Else
MessageBox.Show("Please enter a number.")
End If
stats = CStr(txtStatus.Text)
stats = marginalRev * marginalCost - (marginalCost * fixedCost)
Select Case stats
Case Is = 0
stats = "Break Even"
Case Is < 0
stats = "Profit"
Case Is > 0
stats = "Loss"
Case Else
stats = "MISTAKE"
End Select
txtStatus.Text = stats
End Sub
This is what I have so far, but I'm stuck.
If IsNumeric(fixedCost) And IsNumeric(marginalRev) And IsNumeric(marginalCost) And IsNumeric(units) Then
marginalRev = CDbl(txtMargin.Text)
marginalCost = CDbl(txtMarginCost.Text)
fixedCost = CDbl(txtFixedCost.Text)
units = CDbl(txtUnits.Text)
Else
MessageBox.Show("Please enter a number.")
End If
stats = CStr(txtStatus.Text)
stats = marginalRev * marginalCost - (marginalCost * fixedCost)
Select Case stats
Case Is = 0
stats = "Break Even"
Case Is < 0
stats = "Profit"
Case Is > 0
stats = "Loss"
Case Else
stats = "MISTAKE"
End Select
txtStatus.Text = stats
End Sub
Answers
There are no human answers yet.
There are no AI answers yet. The ability to request AI answers is coming soon!
Submit Your Answer
We prioritize human answers over AI answers.
If you are human, and you can answer this question, please submit your answer.