请大神帮忙看看这段程序。求修改

yl641305861

is
        m,n:integer;
1 S3 s0 t/ A, F6 a1 \4 k        Name:string;
, F4 Q* F; r/ P  A        obj:object;
8 ~: j/ y/ C, Z9 ldo
* b  b2 w9 G! X* D" L) g* ~        m:=str_to_num(omit(?.Name,1,5));
6 y7 l0 e+ F) j        Name:=sprint("Output_Line",m);
, X1 R% e/ h8 p9 j- V( s4 Y        obj:=str_to_obj(Name);
        obj.val:=?.StatNumIn;
        if m>1 then
3 Q- S- o9 ~, m                Name:=sprint("OutRate_Line",m);
                obj:=str_to_obj(Name);
8 l8 s! d; u6 u                obj.val:=n*100/OutPut_Line1;
        end;
: G( ]' G; ?7 wend;

dongshui8558

不知道你的问题是什么？问题可能是最后一句吧，整除可能有问题吧。
/ V) V. M" v) s; y+ robj.val:=n*100/OutPut_Line1;

笨小孩儿

这是教程实例   不知道怎么就是出错

笨小孩儿

求大神指点