07年春的计算机vb题 编制函数过程sum,用于计算一个整数的各位数字之和
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/16 01:16:18
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题
(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 数组各元素.
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 Su
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
For i = 1 To 10
Print b(i);
Next i
End Su
07年春的计算机vb题 编制函数过程sum,用于计算一个整数的各位数字之和
编写一个函数用于判断某一个整数的各位数字之和是否等于5
设计一个函数,能求一整数的各位数字之和,调用该函数计算任一输入的整数的各位数字之和.
编写函数,计算一个整数各位数字之和
VB 判断一个整数w的各位,数字平方之和能否被5整除,要VB的
4.编写一个函数计算任意一个整数的各位数字之和(例如-1782的各位数字之和是1+7+8
VB中如何计算一个数字的各位之和直至小于10
编写一个函数 int sum(int n),求任意一个正整数的各位数字之和;再编写一个程序调用sum函数
C语言:从键盘上输入一个整数,计算整数的各位数字之和
输入一个正整数,输出该数的各个数字之和.要求编写函数,计算整数的各个数字之和
C语言3、编写函数计算任一输入的整数的各位数字之和,在主函数中调用它.
C程:编写一个函数求一个整数的各位数字之和,输出100-200各位数字之和能被5整除的所有数.