VFP:请用户输入一个五位数,然后计算这个五位数的各个位上的数字之和。比如用户输入13579，输出35 实现用四

Question

答得快没问题有加分
实现用四方向键控制一个字符的移动

Answer 1

clear
s=0
do while .t.
input "请输入一个五位数：" to x
if x<10000 or x>99999
loop
endif
k=x
for i=1 to 5
m=k%10
k=int(k/10)
s=s+m
endfor
enddo
?"它的各个位上的数字之和是：",s

用户输入13579，应该输出25，不是35追问

实现用四方向键控制一个字符的移动？。。。编程

追答

这个不会

Answer 2

clear
input "请输入一个数：" to x
s=0
x=alltrim(str(x))
for i=1 to len(x)
k=substr(x,i,1)
r=int(val(k))
s=s+r*r
endfor
?"其各个位上的数字的平方和是：",s