2013-04-11 4 views
0

투자 수익 (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 

답변

0

루프의 반복마다 목록 상자의 텍스트를 설정하는 것으로 보입니다. 귀하의 설명을 보면 번을 추가하려는 것 같습니다. 뭔가 같은 : lstBalances이 목록 상자는 Items 컬렉션 보조 노트로

lstBalances.Items.Add(current_value * Math.Pow(1 + Interest_Rate, intCounter) & vbTab & _ 
         FormatCurrency(current_value)) 

에 CALCS를 추가 할 필요가 다음 경우

lstBalances.Text &= current_value * Math.Pow(1 + Interest_Rate, intCounter) & vbTab & FormatCurrency(current_value) & vbCrLf 
2

: 정말 당신의 CALCS을 이해하지 못하는 '나는 할 수 있도록 당신이하고있는 일이 맞는지 아닌지에 대해서 말하면서,리스트 박스로 프로그래밍 문제를 해결하려고 할 때 .....

관련 문제