Les valeurs attendues ne s'affichent pas dans ListBox

Question

J'ai une demande de rendement de placement qui prendra un montant investi et rapportera chaque année 5% du total et affichera les résultats, par année, dans un ListBox. Je ne reçois aucune erreur, mais l'interface graphique n'affiche pas les rendements d'investissement dans la zone de liste. Toute suggestion serait appréciée. Ceci est le code que j'ai jusqu'à présent:

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 

Answer 1

Il semble que vous configurez le texte de la zone de liste à chaque itération de la boucle. De votre description, il semble que vous voulez en ajoutant une valeur pour chaque itération, par ex. quelque chose comme:

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

Answer 2

Si lstBalances est une zone de liste, vous devez ajouter vos calcs à la collection Items

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

Comme une note de côté: Je ne comprends vraiment pas votre calcs si je peux » t dire si ce que vous faites est bon ou pas, juste en essayant de résoudre vos problèmes de programmation avec les boîtes de liste .....