Compute the
Sub
total
(
Beginning Balance + Deposits

Withdrawals)
d.
Compute the Interest Earned. If the Subtotal is greater than 5000.00
the interest rate is 2 percent otherwise 1 percent.
e.
Compute
Endin
g Balance (Sub Total + Interest EarneD)
Display the
Interest Earned and Ending Balance
in label
s
and format
them
as currency
Answer:

    decSubTotal = (decBalance + decDeposits - decWithdrawls)
    If decSubTotal > 500.0 Then
        decearned = 0.02
    End If

    decending = (decSubTotal + decearned)

    lblInterest.Text = decearned.ToString("C")
    lblEnding.Text = decending.ToString("C")
End Sub

decearned doesn't get set to .01 if decSubTotal is less than or equal to 500.

Your assignment says the interest rate changes at 5000 not 500.

The final total should be decsubtotal + (decsubtotal * decearned)

The interest earned would be decsubtotal * decearned

Edited 3 Years Ago by tinstaafl

decSubTotal = (decBalance + decDeposits - decWithdrawls)

        If decSubTotal > 5000.00 Then


        decearned = 0.02
    End If

    decSubTotal +(decSubTotal * decearned)
    decsubtotal * decearned

    lblInterest.Text = decearned.ToString("C")
    lblEnding.Text = decending.ToString("C")

I am done and I got closed to my answer but there might be a mistake

  decSubTotal = (decBalance + decDeposits - decWithdrawls)
    If decSubTotal > 5000 Then
        decearned = 0.02
    End If

    decending = decSubTotal + (decSubTotal * decearned)
    decearned = decSubTotal * decearned

    lblInterest.Text = decearned.ToString("C")
    lblEnding.Text = decending.ToString("C")
This article has been dead for over six months. Start a new discussion instead.