Simple and Compound Interest

Code:

Dim p As Integer, r As Integer, n As Integer, s As Double, c As Double

Private Sub Command1_Click()

p = Text1.Text

r = Text2.Text

n = Text3.Text

s = p * n * r / 100

Text4.Text = s

End Sub

Private Sub Command2_Click()

p = Text1.Text

r = Text2.Text

n = Text3.Text

c = p * (1 + r / 100) ^ (n - 1) - p

Text5.Text = c

End Sub

Private Sub Command3_Click()

Text1.Text = Clear

Text2.Text = Clear

Text3.Text = Clear

Text4.Text = Clear

Text5.Text = Clear

End Sub