Question

我需要构建一个贷款计算器，它使用函数根据单击的单选按钮为文本框提供值。然后我需要使用Sub来报告带有标签的结果。

我想我是从正确的方向开始的，但我没有vb的背景所以请耐心等待我。

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Payment As Double
    Dim Nper As Double
    Dim LoanIRate As Double
    Dim LoanDuration As Integer
    Dim LoanAmount As Integer


    If rdbmp1.Checked Then
        Payment = Pmt(LoanIRate, LoanDuration, -LoanAmount, 0, )
        TextBox4.Text = Payment.ToString("#.00")
    End If
    If rdbamt1.Checked Then
        LoanAmount = PV(LoanIRate / 1200, LoanDuration, -Payment)
        TextBox1.Text = Payment.ToString("#.00")
    End If
    If rdbir1.Checked Then
        LoanIRate = 1200 * Rate(LoanDuration, Payment - LoanAmount)
        TextBox2.Text = Payment.ToString("#.00")
    End If
    If rdbdl1.Checked Then
        LoanDuration = Nper(LoanIRate / 1200, Payment, -LoanAmount)
        TextBox3.Text = Payment.ToString("#.00")
    End If
End Sub

目前唯一正确运作的计算是每月付款，其他所有计算都存在错误。

Answer 1

PV是一种自定义方法，很可能是由您的某个库在您的项目中定义的。您目前正在向它传递三个参数，但显然必须预期更多。由于我不知道它所期望的参数，我无法回答需要传递的其他内容。如果右键单击PV方法名称并选择转到定义选项，您将能够看到该方法的正确参数。

您提到的第二条错误消息是试图解释Nper不是一种方法，但您试图将其称为一种方法。它实际上可能是真实方法的名称，但您已将局部变量定义为Dim Nper As Double，因此它认为您指的是该变量名称而不是方法。要解决这个问题，您可能只需要重命名或删除该局部变量。

使用函数的Visual Basics Loan Calculator

1 个答案: