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
```