不知道你要的是否是如下的效果!
$$ 初始化变量值
M1=1.0 $$
M2=1.0 $$
A1=600 $$
$$获取所需的各个参数值
$$如果下一句出错,缺省值就是600
A1=EXPEVL/'A1',IFERR,ERR_A1:
ERR_A1:
M1=EXPEVL/'M1',IFERR,ERR_M1:
ERR_M1:
M2=EXPEVL/'M2',IFERR,ERR_M2:
ERR_M2:
$$获取用户输入值
LOOP_:
PARAM/'输入相关参数值。',$
'M1=',M1,$
'M2=',M2,$
'A1=',A1,$
RESPONSE
JUMP/LOOP_:,END:,,RESPONSE
$$将用户输入的值写回到变量中
EXPEDT/'A1='+FSTR(A1)
EXPEDT/'M1='+FSTR(M1)
EXPEDT/'M2='+FSTR(M2) |