从键盘输入一个正整数n,计算该数的各位数字之和并输出.例如,输入5246,则计算5+2+4+6=17并输出.

Option Base 1
Private Sub Command1_Click()
n = InputBox("请输入一个正整数")
For i = 1 To Len(n)
Sum = Sum + Val(Mid(n,i,1))
Next
Print Sum
End Sub
最简单的方法