编一个VF程序!输入一个整数N(位数不限),求它的各位数字之和及各位数
1个回答

clear

input "输入整数N:" to n

n=abs(n)

if n>0

x05sn=len(alltrim(str(n)))

x05?"此数是个"+alltrim(str(sn))+"位数.各位数是:"

x05nsum=0

x05for i=1 to len(str(n))

x05x05nsum=nsum+val(substr(alltrim(str(n)),i-1,1))

x05x05?substr(alltrim(str(n)),i-1,1)

x05endfor

x05?"各位数字之和是"+alltrim(str(nsum))

endif