作者j88lb (尿布)
看板Visual_Basic
標題[ASP ] 迴圈問題請教
時間Wed Jan 11 15:41:56 2012
有迴圈的問題想請教各位
程式碼如下
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
1F：→ Berger927:問題在於你的P0... (攤... 01/11 16:11
2F：→ j88lb:請問P0 這邊的錯誤是?? 01/11 16:20
3F：→ MOONRAKER:太厲害了立刻就看出P0 我看一下就投降了 X( 01/11 18:18