Can you please get the output of this code Public Class formLoan Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click ' Clears values of the text boxes txtAmount.Text = "" txtRate.Text = "" txtDuration.Text = "" txtPayment.Text = "" End Sub Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click ' Evaluates input and displays calculations or error message If InputIsValid() = True Then CalculateValue() Else MessageBox.Show("You forgot to enter data in at least one box") End If End Sub Function InputIsValid() As Boolean ' Make sure input is valid ' Declare local variable Dim blank As Boolean = True ' variable to make sure there is valid input in unchecked text boxes ' Check to see if unchecked buttons have blank text boxes If (radAmount.Checked = True) Then blank = False ElseIf txtAmount.Text = "" Then blank = True End If If (radDuration.Checked = True) Then blank = False ElseIf txtDuration.Text = "" Then blank = True End If If (radPayment.Checked = True) Then blank = False ElseIf txtPayment.Text = "" Then blank = True End If If (radRate.Checked = True) Then blank = False ElseIf txtRate.Text = "" Then blank = True End If Return (blank = False) End Function Sub CalculateValue() ' calculate missing number If radAmount.Checked = True Then txtAmount.Text = PV(CDbl(txtRate.Text) / 1200, CDbl(txtDuration.Text), -CDbl(txtPayment.Text)).ToString("C") End If If radRate.Checked = True Then txtRate.Text = (1200 * Rate(CDbl(txtDuration.Text), CDbl(txtPayment.Text), -CDbl(txtAmount.Text))).ToString("N1") End If If radDuration.Checked = True Then txtDuration.Text = NPer(CDbl(txtRate.Text) / 1200, CDbl(txtPayment.Text), -CDbl(txtAmount.Text)).ToString("N0") End If If radPayment.Checked = True Then txtPayment.Text = Pmt(CDbl(txtRate.Text) / 1200, CDbl(txtDuration.Text), -CDbl(txtAmount.Text)).ToString("C") End If End Sub End Class

Computer Networking: A Top-Down Approach (7th Edition)

7th Edition

ISBN:9780133594140

Author:James Kurose, Keith Ross

Publisher:James Kurose, Keith Ross

Chapter1: Computer Networks And The Internet

Section: Chapter Questions

Problem R1RQ: What is the difference between a host and an end system? List several different types of end...

See similar textbooks

Related questions

Question

Can you please get the output of this code

Public Class formLoan
Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
' Clears values of the text boxes
txtAmount.Text = ""
txtRate.Text = ""
txtDuration.Text = ""
txtPayment.Text = ""
End Sub

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
' Evaluates input and displays calculations or error message
If InputIsValid() = True Then
CalculateValue()
Else
MessageBox.Show("You forgot to enter data in at least one box")
End If
End Sub

Function InputIsValid() As Boolean
' Make sure input is valid

' Declare local variable
Dim blank As Boolean = True ' variable to make sure there is valid input in unchecked text boxes

' Check to see if unchecked buttons have blank text boxes
If (radAmount.Checked = True) Then
blank = False
ElseIf txtAmount.Text = "" Then
blank = True
End If
If (radDuration.Checked = True) Then
blank = False
ElseIf txtDuration.Text = "" Then
blank = True
End If
If (radPayment.Checked = True) Then
blank = False
ElseIf txtPayment.Text = "" Then
blank = True
End If
If (radRate.Checked = True) Then
blank = False
ElseIf txtRate.Text = "" Then
blank = True
End If
Return (blank = False)
End Function

Sub CalculateValue()
' calculate missing number
If radAmount.Checked = True Then
txtAmount.Text = PV(CDbl(txtRate.Text) / 1200, CDbl(txtDuration.Text), -CDbl(txtPayment.Text)).ToString("C")
End If
If radRate.Checked = True Then
txtRate.Text = (1200 * Rate(CDbl(txtDuration.Text), CDbl(txtPayment.Text), -CDbl(txtAmount.Text))).ToString("N1")
End If
If radDuration.Checked = True Then
txtDuration.Text = NPer(CDbl(txtRate.Text) / 1200, CDbl(txtPayment.Text), -CDbl(txtAmount.Text)).ToString("N0")
End If
If radPayment.Checked = True Then
txtPayment.Text = Pmt(CDbl(txtRate.Text) / 1200, CDbl(txtDuration.Text), -CDbl(txtAmount.Text)).ToString("C")
End If
End Sub
End Class

Expert Solution