Vb.net 对于显示错误值的下一个循环

该代码有两个选项。方案一从1美元开始，每天加倍，持续10天。如果这是正确的，那么值应该是$1024，但它显示的是$2046的两倍

第二个选项从100美元开始，每天增加100美元，持续10天。这个数字应该是1000美元，但实际上是6500美元

Public Class Form1
    Private Sub compareButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles compareButton.Click

        Dim initValue1 As Integer = 1
        Dim value1 As Integer
        Dim initValue2 As Integer = 100
        Dim value2 As Integer

        Integer.TryParse(Option1TextBox.Text, value1)
        Integer.TryParse(Option2TextBox.Text, value2)



        For day As Integer = 1 To 10
            initValue1 = initValue1 * 2
            value1 += initValue1
        Next day

        Option1TextBox.Text = value1.ToString("C2")

        For day As Integer = 1 To 10
            initValue2 = initValue2 + 100
            value2 += initValue2
        Next day

        Option2TextBox.Text = value2.ToString("C2")

    End Sub
End Class

我觉得我犯了一个很小的错误。有什么帮助吗？

试试这个：
无需value1+=initValue1和value2+=initValue2删除它们并重试

---

我建议您在For循环中设置断点，以便您可以实际观察正在发生的情况。这不是真正的代码问题，而是逻辑问题。如果您需要知道如何使用断点，请告诉我。祝你好运

Dim initValue1 As Integer = 1
        Dim value1 As Integer
        Dim initValue2 As Integer = 100
        Dim value2 As Integer
        Integer.TryParse(Option1TextBox.Text, value1)
        Integer.TryParse(Option2TextBox.Text, value2)
        For day As Integer = 1 To 9
            initValue1 = initValue1 * 2
        Next
        Option1TextBox.Text = initValue1.ToString("C2")
        For day As Integer = 1 To 9
            initValue2 = initValue2 + 100
        Next
        Option2TextBox.Text = initValue2.ToString("C2")