新手求救！

emilysky 2003-10-10 11:32:55

写了一段代码，刚才的错误已解决了，但稍改又出现语法错误：
CHOOSE CASE BZ
CASE "SCL".OR."SCU".OR."SCY"
choose case n
case IS<=30
is_09=0
case 30 to 60
is_08=is_08*0.6
is_09=is_09*0.6
case 60 to 90
is_08=is_08*0.8
is_09=is_09*0.8
end choose
if ls_08 > 1.1 then
dw_2.object.a05[m]=(ls_08 -1.1)*7.5*4.5+0.1*7.5*3.5
elseif ls_09>0.0 then
dw_2.object.a05[m]=ls_09*3.5
else
dw_2.object.a05[m]=ls_09*2.5
end if
CASE "SM0"
if ls_08>=1.15 then
dw_2.object.a05[m]=(ls_08 -1.15)*7.5*4.5+0.15*7.5*3.5
elseif ls_08<1.15 then
dw_2.object.a05[m]=ls_09*3.5
else
dw_2.object.a05[m]=ls_09*2.5
end if
CASE "SJF".OR."SJJ"
choose case ls_08
case is>1.3
dw_2.object.a05[m]=(ls_08 -1.3)*7.5*4.5+0.3*7.5*3.5
case 1.0 to 1.3
dw_2.object.a05[m]=ls_09*3.5
case else
dw_2.object.a05[m]=ls_09*2.5
end choose
CASE "SCI".OR."SIY"
CASE "SP"
CASE "SXC"
if ls_08>=1.0 then
dw_2.object.a05[m]=ls_09*3.5
else
dw_2.object.a05[m]=ls_09*2.5
end if
CASE "SB0"
END CHOOSE
next

...全文