[ASP ] 迴圈問題請教

看板Visual_Basic作者j88lb (尿布)時間14年前 (2012/01/11 15:41)推噓0(0推 0噓 3→)

留言3則, 3人參與討論串1/2 (看更多)

有迴圈的問題想請教各位程式碼如下 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

01/11 16:11, , 1^F

01/11 16:11, 1^F

→

j88lb

01/11 16:20, , 2^F

01/11 16:20, 2^F

→

MOONRAKER

01/11 18:18, , 3^F

01/11 18:18, 3^F