Question

求一个VB编程题的解！！！！在线等~

编制函数过程sum，用于计算1个整数的各位数字之和。如引用sum(132)结果施6，引用sum(5),是5，等等。。。
有没有完整的程序？？？不要一小段

Answer 1

Public Function Sum(ByVal n As Integer)
Do
Sum = Sum + n Mod 10
n = n \ 10
Loop While n <> 0
End Function

Private Sub Command1_Click()
print sum(123)
end sub

Answer 2

被抢了。。。

Answer 3

Public Function Sum(ByVal n As Integer)
Dim s as Integer
s=0
do while n>0
s += n Mod 10
n = n \ 10
Loop While
Sum=s
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
TextBox2.Text = Str(Sum(Val(TextBox1.Text)))
End Sub