我需要显示年份及其在该特定年份损失的价值

Question

我的 visual basic 代码需要你的帮助。我需要显示产品的双重折旧。每年产品都会失去价值。我需要使用 Visual Basic

显示年份及其在该特定年份丢失的值

我有接口代码，但是当我运行代码时，我得到不正确的输出。例如：产品成本为 R 5000 使用寿命为 5 年当我将公式应用于问题时，答案应该是： 1应该是2000 2应该是1200 3应该是720 4应该是432 5 应该是 259.20

使用我的代码，我确实得到了第 1 年的正确答案，但第 2 - 5 年的答案与第 1 年相同。

我已经使用 for 循环进行计算，但它似乎停留在第 1 年。

任何帮助将不胜感激，因为我对编程完全陌生。

Calculating the Depreciation
Sub Calculations()
For yr As Integer = 1 To Life
If yr <= Life Then
Depreciation = (2 / Life) * Cost
lstBalances.Items.Add(yr & " " & Depreciation)
End If
Next
End Sub

Answer 1

您没有为下一次计算调整费用。此外，您的行 If yr <= Life Then 是多余的。循环的范围已在 For/Next 上下文中定义，yr 将始终小于或等于 Life。

Sub Calculations()
   For yr As Integer = 1 To Life
      Depreciation = (2 / Life) * Cost
      lstBalances.Items.Add(yr & " " & Depreciation)
      Cost = Cost - Depreciation
   Next
End Sub

我需要显示年份及其在该特定年份损失的价值

I need to display the year and the value it lost in that particular year

basic