0

For ... Nextループを作成しようとしています。これにより、12個のエントリ、またはキャンセルボタンが許可されます。
どういうわけか、intEntriesは1、3、5、7、9、および11のみを使用しています。その後、計算は12ではなく13で除算されます。何が間違っているのかわかりませんが、どうやら何か。あなたが私に与えることができるどんな援助も大いに感謝されます！

 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
4

2 に答える 2

3

For-Nextループのカウンターとして、に到達decEntriesするたびに増分します。Next

ただし、ループの途中で「手動で」インクリメントすることもあります。

decEntries += 1
于 2012-04-17T14:51:38.750 に答える
2

decEntries += 1for ..ループの行を自動的に1つ増やします！

于 2012-04-17T14:52:13.053 に答える