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

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

你没要求具体的语言,用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