输入一个整数求各位数字之和 加分

你要的程序来了,已经验证OK!!!

Private Sub Command1_Click()
Dim str As String
Dim i, he As Integer
str = InputBox("请输入一个数字:", "输入数字", 123)
For i = 1 To Len(str)
he = he + Val(Mid(str, i, 1))
Next i
MsgBox "各位数字之和:"& he
End Sub

我也是VB爱好者,以后共同学习!!!

34782=3+4+7+8+2=24

int add_int(int a)
{ int count=0
do
{
count+=a%10;
a=a/10;

}while(a)

return count;

}