0

我有一个投资回报应用程序，该应用程序将收取投资金额并每年产生总额的 5% 的回报，并以ListBox. 我没有收到任何错误，但 GUI 没有在列表框中显示投资收益。任何建议，将不胜感激。这是我到目前为止的代码：

 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
4

2 回答 2

2

如果 lstBalances 是一个列表框，那么您需要将您的计算添加到 Items 集合

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

作为旁注：我真的不明白你的计算，所以我不能说你所做的是否正确，只是试图用列表框解决你的编程问题.....

于 2013-04-11T16:04:04.473 回答
0

您似乎正在为循环的每次迭代设置列表框的文本。根据您的描述，听起来您想为每次迭代附加一个值，例如：

lstBalances.Text &= current_value * Math.Pow(1 + Interest_Rate, intCounter) & vbTab & FormatCurrency(current_value) & vbCrLf
于 2013-04-11T16:01:05.880 回答