作者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