This is my last option after tryin so many times..
Question 1
When $1000 is deposited at 5 percent simple interest, the amount grows by $50 each year.
When money is invested at 5 percent compound interest, then the amount at the end of each
year is 1.05 times the amount at the beginning of that year. Write a program to display the
amounts for 10 years for a $1000 deposit at 5 percent simple and compound interest. The
first few lines displayed in the list box should appear as in figure below.
here is some of the program i've been workin out..
actually i dont know the formula...help me please!!
Private Sub Command1_Click()
Dim n As Integer
Dim count As Integer
Dim Deposit As Integer
Dim calcDeposit As Double
Dim calcDeposit2 As Double
count = 0
calcDeposit = 0
calcDeposit2 = 0
Deposit = Val(Text1.Text)
For n = 1 To 10
calcDeposit = Deposit + (50 * n)//calculating simple interest<---------Ok!!
calcDeposit2 = Deposit * (1 + 1.05)//calculating compund interest<-------here is the problem,KO!!
count = count + 1
List1.AddItem count & vbCrLf
List2.AddItem calcDeposit & vbCrLf
List3.AddItem calcDeposit2 & vbCrLf
Next n
End Sub
Question 1
When $1000 is deposited at 5 percent simple interest, the amount grows by $50 each year.
When money is invested at 5 percent compound interest, then the amount at the end of each
year is 1.05 times the amount at the beginning of that year. Write a program to display the
amounts for 10 years for a $1000 deposit at 5 percent simple and compound interest. The
first few lines displayed in the list box should appear as in figure below.
here is some of the program i've been workin out..
actually i dont know the formula...help me please!!
Private Sub Command1_Click()
Dim n As Integer
Dim count As Integer
Dim Deposit As Integer
Dim calcDeposit As Double
Dim calcDeposit2 As Double
count = 0
calcDeposit = 0
calcDeposit2 = 0
Deposit = Val(Text1.Text)
For n = 1 To 10
calcDeposit = Deposit + (50 * n)//calculating simple interest<---------Ok!!
calcDeposit2 = Deposit * (1 + 1.05)//calculating compund interest<-------here is the problem,KO!!
count = count + 1
List1.AddItem count & vbCrLf
List2.AddItem calcDeposit & vbCrLf
List3.AddItem calcDeposit2 & vbCrLf
Next n
End Sub