以下是引用啦啦娇在2016-12-14 11:06:53的发言:
第四句if语句那个不懂什么意思
clear
do while .t.
accept "请输入一个数字字符串:" to x
** 如果输入的字符是"0123456789"的其中的1个,就转换为空"",也就是说,如果所有的输入的字符,都是"0123456789"中的,那最后,len(chrtran(x,"0123456789",""))=0
if len(chrtran(x,"0123456789",""))>0
messagebox("字符串 "+x+" 中含有非数字字符,请重新输入")
else
?"1/"+x
if messagebox("继续输入吗",4,"提示信息")=6
loop
else
exit
endif
endif
enddo
[此贴子已经被作者于2016-12-14 11:32编辑过]