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