作者Berger927 (rabbit)
看板Visual_Basic
標題Re: [ASP ] 迴圈問題請教
時間Wed Jan 11 23:44:14 2012
因為條件沒給的很完全 ， text 的內容也不得而知
但稍微喵了一下的結果 純粹猜測
感覺比較有問題的就是下面幾處
請您自己再試試看吧～
※ 引述《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
^ totalfeed1 越來越大 P 越來越小
: If P > P0 Then
^^^^^^ 執行過1次之後 此條件永不成立 就不會再執行了
: P0 = P
^^^^^^
綜合上面幾點 出現這句 別忘了您是跑2層迴圈...
: 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 範圍值一 算出來的值就正確
: 請各位指正我的程式碼錯誤 非常感謝!!!!!
--
1F：推 ttttt40 :原來我有戀童癖阿...(望向千元鈔...02/06 15:45
2F：推 jkn26 :我為什麼比較喜歡魚 (望向兩千元鈔...02/06 16:42
3F：→ evilgogo :原來我的魚控是這樣來的啊…(望樓上…02/06 16:55
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.255.28.50
4F：推 j88lb:非常感謝您喔!! 一語驚醒夢中人 因為total一直變大 01/12 09:36
5F：→ j88lb:所以P >P0 都無法成立 將total跑完 歸零 再跑就可以了 感謝 01/12 09:37