투자 수익 (ROI) 신청서를 가지고 투자 금액을 내고 매년 총 수익의 5 %를 산출하고 ListBox
에 연간 결과를 표시합니다. 오류는 발생하지 않지만 GUI는 투자 수익률을 목록 상자에 표시하지 않습니다. 모든 제안을 부탁드립니다. 이것은 지금까지 가지고있는 코드입니다 :예상 값이 ListBox에 표시되지 않습니다.
Public Class Form1
Const Interest_Rate As Double = 0.05
Private Sub btncmdCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncmdCalculate.Click
Dim num_years As Integer
Dim intCounter As Integer
Dim current_value As Double
Dim future_amount As Double
current_value = Val(txtcurrent_value.Text)
num_years = Val(txtnum_years.Text)
current_value = current_value * Interest_Rate * num_years & vbTab _
'calculate amount
For intCounter = 1 To num_years
future_amount = current_value * (1 + Interest_Rate)^intCounter
lstBalances.Text = current_value * Math.Pow(1 + Interest_Rate, intCounter) & "" & _ vbTab & FormatCurrency(current_value)"
Next intCounter
End Sub