求：编写程序,输入一个正整数,统计该整数的位数并计算其各个数位上的数字之和.

你没要求具体的语言,用VB给你写一个吧.
sub chkNum
dim Num as integer
dim lenN as integer
dim i as integer
dim sumN as integer
dim strN as string
num=inputbox("请输入一个正整数")
strN=trim(str(num))
lenN=len(strN)
sumN=0
for i=1 to lenN
sumN=sumN+val(mid(strN,i,1))
next
msgbox "长度：" & lenN & " 各位和：" & sumN
end su