vb问题 急需

来源：百度知道 编辑：UC知道 时间：2024/06/30 02:13:19
(1)编制函数过程sum，用于计算1个整数的各位数字之和（如引入sum(132)的结果是6，引用sum(-23)的结果是5，等等）。
(2)编写事件过程Command1_Click,完成下列运算：
① 输入10个数到整型数组a；
② 将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、…、a(10)各位数字和赋值到b(10) 【要求调用函数sum实现】；
③ 在窗体上以一行输出a数组各元素值（保持原输入值不变）；
④ 在窗体上以一行输出b数组各元素值。

Option Explicit

Private Function sum(q As Integer) As Integer
Dim w As String, i As Integer, j As Integer
j = 0
w = Str(q)
For i = 2 To Len(w)
j = j + Mid(w, i, 1)
Next i
sum = j
End Function

Private Sub Command1_Click()
Dim a(10) As Integer, b(10) As Integer
Dim i%
For i = 1 To 10
a(i) = InputBox("请输入第（" & i & "）个数", "程序示例")
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

你试试这段代码，希望对你有帮助。

Dim a(10), b(10) As Long
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
Label1.Text = ""
Label2.Text = ""
For i = 1 To 10
a