Question

vfp程序设计的问题，那位高手来帮我解答一下啊~~

已知变量x为正整数（最多为五位数），编程求变量x的位数，并将结果存入变量out中。用do case语句完成。

Answer 1

clear
input "请输入一个正整数(最大五位数)：" to x
do case
case x<10
out=1
?"是一位数"
case x<100
out=2
?"是两位数"
case x<1000
out=3
?"是三位数"
case x<10000
out=4
?"是四位数"
case x<100000
out=5
?"是五位数"
endcase

Answer 2

...
out = 0
mylen = len( alltrim( STR(x)))
do case
case mylen = 1
out = 1
case mylen = 2
out = 2
case mylen = 3
out = 3
case mylen = 4
out = 4
otherwise
out = 5
endcase
? out