Question

我必须计算一个客户可能的最高抵押贷款。

如果是单一申请，客户可以借到他们工资的三倍加上他们可能拥有的任何储蓄和投资。

如果是联合申请，客户可以借3倍的工资和2倍的最低工资，也可以借入任何储蓄和投资。

在任何一种情况下，申请人都不得借入超过物业购买价值的90％（包括印花税和律师费）。

我已经宣布了所有内容并完成了代码，但每次我计算出他们可以借用的最大金额时，它都会显示为0.如果有人能发现问题我的代码就在下面。

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _  
        Handles btnMaxPossible.Click

    If rbtnSingleApp.Checked Then
        txtMaxPossible.Text = Val((intSalary1 * 3) + intInvestments + intSavings)
        txtMaxPossible.Text = intMaxPossible
    ElseIf rbtnJointApp.Checked Then
        txtMaxPossible.Text = Val(intSalary1 * 3 + intSalary2 * 2) + _
            intInvestments + intSavings
    End If

    txtMaxPossible.Text = (intProperty + intLegalFees + intStampDuty) * 0.9

End Sub

Answer 1

确保您正在初始化intProperty，intLegalFees和intStampDuty。我怀疑这些是他们的默认值，即0。

Answer 2

我修改了你的逻辑如下：

1）如果选中了加入app按钮，则执行联合计算;否则执行单个计算

2）分别确定最大个人金额，然后取最大个人金额和最大金额金额。

3）删除Val语句并使用tostring

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMaxPossible.Click

    Dim MaxPersonalAmount As Integer

    If rbtnJointApp.Checked Then
      MaxPersonalAmount = (intSalary1 * 3) + (intSalary2 * 2) + intInvestments + intSavings
    Else
      MaxPersonalAmount = (intSalary1 * 3) + intInvestments + intSavings
    End If

    Dim MaxPropertyAmount As Integer

    MaxPropertyAmount = (intProperty + intLegalFees + intStampDuty) * 0.9

    txtMaxPossible.Text = Math.Min(MaxPropertyAmount, MaxPersonalAmount).ToString()

End Sub

抵押贷款计算

2 个答案: