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

Question

我的visual basic代码需要您的帮助。我需要显示产品的双倍折旧。产品每年都会贬值。我需要使用Visual Basic 显示年份及其在特定年份中损失的价值

我有接口的代码，但当我运行代码时，我得到了不正确的输出。例如：产品成本为R 5000使用寿命为5年当我把这个公式应用于这个问题时，答案应该是：1应该是20002应该是12003应该是7204应为4325应该是259.20

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

我使用了for循环来进行计算，但它似乎停留在第一年。

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

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