This preview has intentionally blurred sections. Sign up to view the full version.View Full Document
Unformatted text preview: interest As Single p = CSng (txtbox1.Text) r = ( CSng (TxtBox2.Text) / 1200) n = CSng (TxtBox3.Text) payment = CSng ((p * r) / (1 - (1 + r) ^ (-n))) interest = n * payment - p TxtBox4.Text = FormatCurrency(payment) TxtBox5.Text = FormatCurrency(interest) End Sub End Class Tyler Fox IE 148 VB HomeWork #1...
View Full Document
This note was uploaded on 08/18/2011 for the course IE 148 taught by Professor Davesly during the Spring '11 term at Iowa State.
- Spring '11
- Industrial Engineering