首页 知道 学习正文

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

学习 时间:2026-08-12 08:14:15 阅读：6931
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-08-12 08:14:15

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-08-12 08:14:15

    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

上一篇 （一）

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