UC知道vb编程啊 求救
来源：百度知道 编辑：UC知道 时间：2024/06/04 02:44:26
按照下列要求和规定的步骤编程：
⑴ 编制函数过程sum，用于计算1个整数的各位数字之和（如引用sum(132)的结果是6，引用sum(-23)的结果是5，等等）。
⑵ 编写事件过程Command1_Click，完成下列运算：
① 输入10个数到整型数组a；
② 将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、...、a(10)各位数字和赋值到b(10)【要求调用函数sum实现】；
③ 在窗体上以一行输出a数组各元素值（保持原输入值不变）；
④ 在窗体上以一行输出b数组各元素值。
⑴ 编制函数过程sum，用于计算1个整数的各位数字之和（如引用sum(132)的结果是6，引用sum(-23)的结果是5，等等）。
⑵ 编写事件过程Command1_Click，完成下列运算：
① 输入10个数到整型数组a；
② 将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、...、a(10)各位数字和赋值到b(10)【要求调用函数sum实现】；
③ 在窗体上以一行输出a数组各元素值（保持原输入值不变）；
④ 在窗体上以一行输出b数组各元素值。
Private Sub Command1_Click()
Dim a(9) As Integer
Dim b(9) As Integer
For i = 0 To 9
a(i) = InputBox("输入第" & i + 1 & "个数")
b(i) = Sum(a(i))
Next i
For i = 0 To 9
Print Tab(5 * i + 1); a(i);
Next i
Print
For i = 0 To 9
Print Tab(5 * i + 1); b(i);
Next i
Print
End Sub
Public Function Sum(ByVal n As Integer)
n = Abs(n)
Do
Sum = Sum + n Mod 10
n = n \ 10
Loop While n <> 0
End Function