帮忙做一下VF题

来源：百度知道 编辑：UC知道 时间：2024/05/17 18:05:54
三、程序题
6. 求一个数值的各个位的和

SET TALK OFF
INPUT “X=” TO X
S=0
DO WHILE X!=0
S=S+MOD（X,10）
X=INT(X/10)
ENDDO
?S
SET TALK ON

另一答：
input "x=" to x
xx=allt(str(x))
s=0
for i=1 to len(xx)
s=s+val(subs(xx,i,1))
endfor
? int(s)