SIMPLE AND COMPOUND INTEREST

AIM:To prepare a form for calculating simple and compound interest
CODE

FORM 1
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Dim p, n, r As Integer
p = Val(Text1.Text)
n = Val(Text2.Text)
r = Val(Text3.Text)
si = (p * n * r) / 100
Text4.Text = si
End Sub
Private Sub Command3_Click()
p = Val(Text1.Text)
n = Val(Text2.Text)
r = Val(Text3.Text)
ci = p * (1 + (r / 100) ^ n)
Text4.Text = ci
End Sub


o/p