Items have a fixed price of $10 per unit. Use a Select Case statement to implement the following sales commission schedule:
Fewer than 10 items sold = 1% commission
Between 10 & 40 items sold = 2% commission
Between 41 & 100 items sold = 4% commission
More than 100 items sold = 8%
Numbers of items sold
Gross sales:
Commission (%)
Earnings:
Calculate(button)
I keep getting "End of statement expected" error...underlined below;
Public Class SalesCommissionCalculatorFormDim Commission As Object
Dim Price As Double
Private Property caseCode As Double
Private Property ItemsSold As Object
' handles calculateButton_Click event
Private Sub calculateButton_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles calculateButton.Click
Dim caseCode Ad Integer ' stores case code entered
Dim message As String ' displays access status of users
caseCode = Val(caseCodeTextBox.Text)
caseCodeTextBox.Clear()
Select Case ItemsSold
Case Is < 10
Commission = Price * 0.01
Case Is < 41
Commission = Price * 0.02
Case Is < 101
Commission = Price * 0.04
Case Else
Commission = Price * 0.08
End Select
End Sub
End Class ' SalesCommissionCalculatorForm