Well, I did this program and it works, but my instructor wants me to use this statements instead of the one I used:

My original code was:

    Dim DiscountVal As Double = 1.0       'ByVal  arguments passed as by value (chapter VI)
    Dim BasePrice As Double = 9.95         
    Dim AdditionalPrice As Double = 2.0      
    Dim HoursAllowed As Integer = 10
    Dim HoursUsed As Integer = CInt(Me.TextBox1.Text) ' convert to integer
    Dim HoursOver As Integer = 0

    ' Set discount rate for nonprofit.
    If Me.chkNonProfit.Checked Then
        DiscountVal = 0.8           ' value is passed 
    End If

    ' Start branching structure using If..ElseIf

    If Me.radPackageA.Checked Then
        BasePrice = 9.95
        HoursAllowed = 10
        AdditionalPrice = 2.0
    ElseIf Me.radPackageB.Checked Then
        BasePrice = 14.95
        HoursAllowed = 20
        AdditionalPrice = 1.0
    ElseIf Me.radPackage3.Checked Then
        BasePrice = 19.95
        HoursAllowed = Me.TextBox1.Text
        AdditionalPrice = 0
    End If

    HoursOver = HoursUsed - HoursAllowed
    If HoursOver < 0 Then
        HoursOver = 0
    End If
     ' Calculate total.

    Dim Total As Double = DiscountVal * (BasePrice + (AdditionalPrice * HoursOver))

    Me.txtHours.Text = FormatCurrency(Total)

Instead I have to use:

If Me.radPackageA.Checked Then
If CInt (Me.Textbox1.Text) < = 10 Then
     charge = 9.95
else
       charge = 9.95 +2*(CInt(Me.TextBox1.Text)-10)
EndIf

It works for Package A and Package B, but I am having problems coding PackageC

Thank you

Edited 3 Years Ago by Reverend Jim: Fixed formatting

This question has already been answered. Start a new discussion instead.