버튼의 코드에서 균형 잡기

Question

코드에서 균형을 계산하는 데 약간의 문제가 있습니다.

이 프로그램에서는 (balance = balance * (1 + interestRate)입니다. 것은 우리가 2013 년에 있고 저울은 사용자가 프로그램에서 클릭하는 체크 박스에 의해 선택되는 2015-2017 년 동안 계산 될 것이며, 또한 사용자는 그들이 가질 계정 유형을 선택합니다 (예 : 저축 : 7 %의 이익, 법인 : 5 %의이자).

그들은 mediaEstimatedFund 버튼을 클릭하고 그들이 선택한 계정 유형에 대한 잔액을 입력하도록 요청합니다 (저축, 법인 또는 둘 다). 그런 다음 선택한 금액 (년, 계정 및 잔액 금액)에 대한 잔액을 계산해야합니다. 여기

는 내가 가지고있는 코드이며 올바른 균형을 나에게 (예를 제공하지 않습니다 : 사용자가 7 % 및 2016 년에 $ 2000.00하는 저축 계정을 선택하는 경우, 그것은 나에게 $ 2621.60의 추정 예산을 제공해야),하지만 그렇지 않습니다!

Year  Savings Account    Corporate Account   Saving + Corporate  

2013  $2000.00     $1000.00     $3000.00 
2014  $2140.00     $1050.00     $3190.00 
2015  $2289.8     $1102.5     $3392.3 
2016  $2450.086     $1157.625     $3607.711  
2017  $2621.59202    $1215.50625    $3837.09827 

Public Class Form1 

Private Sub btnMediaEstimatedFund_Click(sender As Object, e As EventArgs) Handles btnMediaEstimatedFund.Click 

    Dim interestRate, initialBalanceSavings, initialBalanceCorporate, finalBalance, theYear, balance, subTotal As Double 

    txtBoxEstimatedBudget.Enabled = False 
    txtBoxAgenciesNeeded.Enabled = False 

    If radButtonTraditional.Checked Then 

     txtBoxAgenciesNeeded.Text = 3 

    ElseIf radButtonEMedia.Checked Then 

     txtBoxAgenciesNeeded.Text = 2 

    End If 

    If checkBoxSavings.Checked Then 

     interestRate = 0.07 

    ElseIf checkBoxCorporate.Checked Then 

     interestRate = 0.05 

    ElseIf checkBoxCorporate.Checked And checkBoxSavings.Checked Then 

     interestRate = 0.12 

    End If 

    If radButton2015.Checked Then 

     theYear = 2015 

    End If 

    If radButton2016.Checked Then 

     theYear = 2016 

    End If 

    If radButton2017.Checked Then 

     theYear = 2017 

    End If 

    Dim inputtedData As String 

    If checkBoxSavings.Checked Then 
     Do 

      inputtedData = InputBox("Please enter a balance for SAVINGS account between $500.00 and $3000.00", "Initial Savings Balance", "0.00") 

      If inputtedData = "" Then 

       MsgBox("User chose to cancel calculation!") 

       Exit Sub 

      Else 

       initialBalanceSavings = CType(inputtedData, Single) 

       If initialBalanceSavings > 3000 Or initialBalanceSavings < 500 Then MsgBox("Please enter a balance for SAVINGS account equal to or above $500.00 and no more than $3000.00", MsgBoxStyle.Critical, "Error") 

      End If 

     Loop Until initialBalanceSavings >= 500 And initialBalanceSavings <= 3000 

    End If 

    If checkBoxCorporate.Checked Then 

     Do 

      inputtedData = InputBox("Please enter a balance for CORPORATE account between $500.00 and $3000.00", "Initial Corporate Balance", "0.00") 

      If inputtedData = "" Then 

       MsgBox("User chose to Cancel calculation!") 

       Exit Sub 

      Else 

       initialBalanceCorporate = CType(inputtedData, Single) 

       If initialBalanceCorporate > 3000 Or initialBalanceCorporate < 500 Then MsgBox("Please enter a balance for CORPORATE account equal to or above $500.00 and no more than $3000.00", MsgBoxStyle.Critical, "Error") 

      End If 

     Loop Until initialBalanceCorporate >= 500 And initialBalanceCorporate <= 3000 

    End If 

    finalBalance = initialBalanceSavings + initialBalanceCorporate 

    For theYear = 2013 To 2017 

     subTotal = finalBalance * (1 + interestRate) 
     finalBalance = subTotal 

    Next 

    txtBoxEstimatedBudget.Text = FormatCurrency(finalBalance) 

End Sub 

Answer 1

For TheYear = 2013 to 2016 
    SubTotal = balance * (1 + interestRate) 
    balance = SubTotal 
Next 

UPDATE

위의 코드 블록 당신에게 루프를 수행하는 어떤 루프 안쪽에 계산 방법의 아이디어를 제공하기 위해 단지이다. 실제 답변을 얻으려면 2013 년이 CURRENT 연도임을 명심해야합니다. 따라서 실제로 해당 연도의이자를 계산하지 않을 것입니다. 그리고 이것을 달성하는 열쇠는 루프의 형식입니다. 실제로는 FOLLOWING 년이 시작되어야합니다.

For Year = 2013 + 1 to 2016 
    'blah blah blah 
Next 

Answer 2

나는 여분의 줄을 포함하도록 Zafs 응답을 편집 할 수 없으므로 여기에 필자의 의견이 있습니다. 중요한 점은 finalBalance의 초기화가 for 루프의 외부 인 입니다.

finalBalance = initialBalanceSavings + initialBalanceCorporate 
For theYear = 2013 To 2016 
    subtotal = finalBalance * (1 + interestRate) 
    finalBalance = subTotal 
Next