我的For累加器...下一个循环是跳过VB中的数字。 Visual Studio 2010。

Question

我正在尝试编写一个For ... Next循环，该循环将允许12个条目或“取消”按钮。
不知何故intEntries仅使用1、3、5、7、9和11。完成后，计算将除以13，而不是12。我不确定这是什么错误，但是它是显然是什么。 您能给我的任何帮助，我们将不胜感激！

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'initialize accumulator
        Dim decEntries As Decimal
        ' For loop to ask for input.
        For decEntries = 1 To 12 Or strMonthlyAvg = " "
            strMonthlyAvg = InputBox("Please Enter the Average for Month # " & decEntries & ":")
            decEntries += 1
            lstTemps.Items.Add(strMonthlyAvg)
            decMontlyAvg = Convert.ToDecimal(strMonthlyAvg)
            ' This will add the montly average to the total Average Temperature for 
            ' calculations
            decTotalTemp += decMontlyAvg

        Next
        ' Calculation to provide the average temp for all entered values
        decAnnualAvg = decTotalTemp / decEntries
        ' convert annual average to string
        strAnnualAvg = Convert.ToString(decAnnualAvg)
        ' Display the results for the user
        lblResults.Text = "The average annual temperature " & vbCrLf &
                            "based on your entries is: " & strAnnualAvg & "."


    End Sub

Answer 1

你有decEntries作为for-next循环的计数器，它的每次递增Next为止。

但是，您也可以在循环的中间“手动”增加它：

decEntries += 1 

Answer 2

删除行decEntries += 1 for ..循环自动加1！