[ASP ] 迴圈問題請教

[j88lb (尿布)]

有迴圈的問題想請教各位
程式碼如下

 Dim w1 As Integer
        Dim P As Integer
        Dim P0 As Integer = 0
        Dim FCRY As Double
        Dim totalfeed1 As Double = 0
        Dim FCRY00 As Double = 0
        Dim w As Integer
        Dim pri As Integer
        For pri = prilow.Text To prihigh.Text
            For w = 1 To txt14.Text
                FCRY = lblb0.Text + lblb1.Text * w + lblb2.Text * w * w
                totalfeed1 = FCRY + totalfeed1
                P = pri * w - totalfeed1 * txtC.Text / (txtD.Text / 100) - txtB.Text
                If P > P0 Then
                    P0 = P
                    w1 = w
                    FCRY00 = totalfeed1 / w1
                    Session("W1") = w1
                    Session("FCRY00") = FCRY00.ToString("0.00")
                    Session("P0") = P0
                End If
            Next
            Literal1.Text += ("<td>" & pri & "</td>")
            Literal1.Text += ("<td>" & Session("W1") & "</td>")
            Literal1.Text += ("<td>" & Session("FCRY00") & "</td>")
            Literal1.Text += ("<td>" & Session("P0") & "</td>")
            Literal1.Text += ("</tr>")
        Next

        Literal1.Text += ("</table>")
        Literal1.Text += ("<br>")
設計是在每個RPI之下 都有一個最佳的P 和對應的W 以及從1-W所累加的FCR

假設
PRI = 65 TO 70


預想中 跑出來的結果應該要是

PRI    W1    FCRY00    P0
 65    91    2.2      2411
 66    92    2.3      2512
 67    94    2.4      2610
 68    95    2.5      2710
 69    96    2.6      2810
 70    97    2.7      2910

但實際上 保出來結果卻是
PRI    W1    FCRY00    P0
 65    91    2.2      2411
 66    91    2.2      2411
 67    91    2.2      2411
 68    91    2.2      2411
 69    91    2.2      2411
 70    91    2.2      2411

65算出來是對的 但下面的迴圈 似乎沒再跑了 都抓了上面的值
如果我在PRI只輸入65-65 或66-66 範圍值一 算出來的值就正確

請各位指正我的程式碼錯誤 非常感謝!!!!!









--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 140.120.98.114
→ Berger927:問題在於你的P0...                             (攤...
→ j88lb:請問P0 這邊的錯誤是??
→ MOONRAKER:太厲害了立刻就看出P0 我看一下就投降了 X(