看板 Visual_Basic 關於我們 聯絡資訊
因為條件沒給的很完全 , 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 範圍值一 算出來的值就正確 : 請各位指正我的程式碼錯誤 非常感謝!!!!! --
ttttt40 :原來我有戀童癖阿...(望向千元鈔...02/06 15:45
jkn26 :我為什麼比較喜歡魚 (望向兩千元鈔...02/06 16:42
evilgogo :原來我的魚控是這樣來的啊…(望樓上…02/06 16:55
-- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 111.255.28.50
j88lb:非常感謝您喔!! 一語驚醒夢中人 因為total一直變大 01/12 09:36
j88lb:所以P >P0 都無法成立 將total跑完 歸零 再跑就可以了 感謝 01/12 09:37