首页 知道 学习正文

07年春的计算机vb题 编制函数过程sum,用于计算一个整数的各位数字之和

学习 时间:2026-03-30 08:56:13 阅读：8388
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 数组各元素.
提问 回复

最佳回答

懦弱的小虾米

酷酷的电话

2026-03-30 08:56:13

Private Function Sum(ByVal n As Long) As IntegerDim i As IntegerDim s As Strings = Trim(Str(n))For i = 1 To Len(s)Sum = Sum + Val(Mid(s,i,1))Next iEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerDim a(1 To 10) As IntegerDim b(1 To 10) As IntegerFor i = 1 To 10a(i) = Val(InputBox("输入:"))b(i) = Sum(a(i))Next iFor i = 1 To 10Print a(i);Next iPrintFor i = 1 To 10Print b(i);Next iEnd Su

最新回答共有2条回答

  • 结实的往事
    回复
    2026-03-30 08:56:13

    Private Function Sum(ByVal n As Long) As IntegerDim i As IntegerDim s As Strings = Trim(Str(n))For i = 1 To Len(s)Sum = Sum + Val(Mid(s,i,1))Next iEnd FunctionPrivate Sub Command1_Click()Dim i As IntegerDim a(1 To 10) As IntegerDim b(1 To 10) As IntegerFor i = 1 To 10a(i) = Val(InputBox("输入:"))b(i) = Sum(a(i))Next iFor i = 1 To 10Print a(i);Next iPrintFor i = 1 To 10Print b(i);Next iEnd Su

上一篇 （一）

下一篇 给选文划分段落层次并概括大意