2012-02-02 29 views
0

代碼有兩個選項。選項一以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 

我覺得我犯了一個很小的錯誤。任何幫助?

+0

我建議你設置在For循環中斷點,以便您可以實際觀察發生了什麼。這不是一個真正的代碼問題,而是一個邏輯問題。讓我知道你是否需要知道如何使用斷點。祝你好運! – SquidScareMe 2012-02-02 10:40:51

回答

2

試試這個:
值1號極品+ = initValue1值2 + = initValue2移除,然後再試


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") 

enter image description here