Scribd
Upload
32 views2 pages

Q.3:-Calculate Compound Interest of Given Principal Amount For Given Time Period With Given Rate of Interest Appropriate Control

This code calculates compound interest on a principal amount over a number of time periods at a given interest rate. It takes the principal, interest rate, and number of periods from text boxes, calculates interest as principal times (1 plus rate) to the power of number of periods, and displays the interest amount in a label.

Uploaded by

YDM2
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
32 views2 pages

Q.3:-Calculate Compound Interest of Given Principal Amount For Given Time Period With Given Rate of Interest Appropriate Control

This code calculates compound interest on a principal amount over a number of time periods at a given interest rate. It takes the principal, interest rate, and number of periods from text boxes, calculates interest as principal times (1 plus rate) to the power of number of periods, and displays the interest amount in a label.

Uploaded by

YDM2
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 2

Q.

3 :- Calculate compound interest of given principal amount for given time period with given rate of interest appropriate control

Option Explicit Private Sub Command1_Click(Index As Integer) Dim p As Integer, r As Single, n As Integer Dim intr As Single p = Val(Text1.Text) r = Val(Text2.Text) n = Val(Text3.Text) intr = p * (1 + r) ^ n / 100 lbl4_caption = "command interest is" & intr End Sub

Q.3 :- Calculate compound interest of given principal amount for given time period with given rate of interest appropriate control

Option Explicit Private Sub Command1_Click(Index As Integer) Dim p As Integer, r As Single, n As Integer Dim intr As Single p = Val(Text1.Text) r = Val(Text2.Text) n = Val(Text3.Text) intr = p * (1 + r) ^ n / 100 lbl4_caption = "command interest is" & intr End Sub

You might also like