VB HW1 - ) End If payment = ( CSng (txtAL.Text) * ( CSng...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
Option Strict On Public Class Form1 Private Sub btnA_Click( ByVal sender As System. Object , ByVal e As System. EventArgs ) Handles btnA.Click Dim payment As Single , TI As Single If CSng (txtAL.Text) < 0 Then MsgBox( "Advise Data" ) End If If CSng (txtIR.Text) < 0 Then MsgBox( "Advise Data" ) End If If CSng (txtDM.Text) < 0 Then MsgBox( "Advise Data"
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: ) End If payment = ( CSng (txtAL.Text) * ( CSng (txtIR.Text)) / 100) / (1 - (1 + ( CSng (txtIR.Text)) / 100) ^ ( CSng (-txtDM.Text))) TI = CSng (txtDM.Text) * (payment - CSng (txtAL.Text)) txtMP.Text = payment txtTIP.Text = TI End Sub End Class...
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.

Ask a homework question - tutors are online