请输入任意一个正整数n,求出该数字为几位数字.vf编程

x=" "
@2,10 say "输入任意一个正整数" get x picture "999999999999999"
read
lx=len(alltrim(x))
lx=alltrim(str(lx))
@4,14 say "这个数是"+lx+"位数字."