vb编程求任意整数各位置之和
来源:百度知道 编辑:UC知道 时间:2024/09/23 09:11:53
如输入“123”显示为“6”
Dim sum As Integer
n = InputBox("请输入整数:")
Print n
For i = 1 To Len(n)
sum = sum + Mid(n, i, 1)
Next i
Print sum
dim sum as d long
s=inputbox("请输入一个N位数的整数")
for i=1 to len(s)
sum=sum+mid(s,i,1)
next i
print s & "这个数的各位数之和为:" & sum