求解问题(二)?
字段名 类型性别 字符
身高 字符
体重 字符
评价 字符
根据表:性别:女
身高 体 重
低体重 正常 超重 肥胖
103.5 100 110 120 130 150
104.0 110 120 130 150 170
请问:例如1个身高为103.5的女孩,体重输入126后,如何得到评价为超重?
程序代码:lose all
use 体重标准表 alias t1 in 0
select 0
use 体测结果表 alias t2
scan
nHeight = val(身高)
nWeight = val(体重)
select t1
locate for val(身高) >= nHeight
if found()
do case
case nWeight <= val(低体重)
cRet = '低体重'
case nWeight <= val(正常)
cRet = '正常'
case nWeight <= val(超重)
cRet = '超重'
otherwise
cRet = '肥胖'
endcase
replace 评价 with cRet in t2
endif
endscan
go top
browse