作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 00:01:30
编一个VF程序!输入一个整数N(位数不限),求它的各位数字之和及各位数
求"输入一个整数N(位数不限),求它的各位数字之和及各位数",例如,6374的各位数字之和使0,位数4
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))
\x05\x05nsum=nsum+val(substr(alltrim(str(n)),i-1,1))
\x05\x05?substr(alltrim(str(n)),i-1,1)
\x05endfor
\x05?"各位数字之和是"+alltrim(str(nsum))
endif