Program 2

List of Program

2. WAP to take input of principal, rate & time and calculate simple interest & compound interest.

Dim SI As Long
Dim P As Long
Dim R As Long
Dim T As Long
Dim CI As Long

Private Sub Command1_Click()                                                       
   P = Text1.Text
   R = Text2.Text
   T = Text3.Text
   SI = (P * T * R) / 100
   Text4.Text = SI
   CI = P * (1 + R / 100) ^ T
   Text5.Text = CI
End Sub

Private Sub Command2_Click()
   End
End Sub