编程论坛 » VFP论坛 » vfp6.0中do case语句陷入死循环，求解。

zhlaicm 发表于 2008-5-31 19:20

vfp6.0中do case语句陷入死循环，求解。

1、一个五位数加法，要求可以无数次计算五位数加法，如果输入数字不是五位则重新输入，输入0时才停止计算，程序结束。

clear
do while .t.
input "请输入五位数 " to sz
do case
case alltrim(sz)=="0"
exit
case len(sz)<>5
wait "请重新输入 " window nowait
otherwise
?val(substr(sz,1,1))+val(substr(sz,2,1))+val(substr(sz,3,1))+val(substr(sz,4,1))+val(substr(sz,5,1))
endcase
enddo

进入死循环了。。。不知道为什么。。。请大家帮忙解答。今年才刚刚学习，不是很懂。谢谢！

啸凡 发表于 2008-6-1 11:28

input 接收的数字默认为数值，怎么改，您应该知道了。

zhlaicm 发表于 2008-6-1 14:19

谢谢！

hwfk4707 发表于 2008-6-23 16:28

把语句
input "请输入五位数 " to sz
中的 INPUT 改为 ACCE 可直接输入数据，不需要加引号。

查看完整版本: vfp6.0中do case语句陷入死循环，求解。