07年春的计算机vb题 编制函数过程sum,用于计算一个整数的各位数字之和07年春的计算机vb题 （1）编制函数过程sum,用于计算一个整数的各位数字之和（2）编写事件过程command-click（）,完成下

07年春的计算机vb题 编制函数过程sum,用于计算一个整数的各位数字之和07年春的计算机vb题 （1）编制函数过程sum,用于计算一个整数的各位数字之和（2）编写事件过程command-click（）,完成下
07年春的计算机vb题 编制函数过程sum,用于计算一个整数的各位数字之和
07年春的计算机vb题
（1）编制函数过程sum,用于计算一个整数的各位数字之和
（2）编写事件过程command-click（）,完成下列运算：
1,输入10个数字到整型数组a
2,将a（1）各个数字和赋值到b（1）、a（2）各个数字和赋值到b（2）、……a（10）各个数字和赋值到b（10）、【要求调用函数sum实现】
3,在窗体上以一行输出 a 数组各元素（保持原输入值不变）
4,在窗体上以一行输出 b 数组各元素.

07年春的计算机vb题 编制函数过程sum,用于计算一个整数的各位数字之和07年春的计算机vb题 （1）编制函数过程sum,用于计算一个整数的各位数字之和（2）编写事件过程command-click（）,完成下
Private Function Sum(ByVal n As Long) As Integer
Dim i As Integer
Dim s As String
s = Trim(Str(n))
For i = 1 To Len(s)
Sum = Sum + Val(Mid(s,i,1))
Next i
End Function
Private Sub Command1_Click()
Dim i As Integer
Dim a(1 To 10) As Integer
Dim b(1 To 10) As Integer
For i = 1 To 10
a(i) = Val(InputBox("输入:"))
b(i) = Sum(a(i))
Next i
For i = 1 To 10
Print a(i);
Next i
Print
For i = 1 To 10
Print b(i);
Next i
End Sub