VB中如何计算一个数字的各位之和直至小于10

问题描述:

VB中如何计算一个数字的各位之和直至小于10
一个整数,是从其他VB程序中计算出来的数,目前不知道具体数字是多少,如何计算它的各数位的数字之和,直至小于10的数字
例如:从VB程序中计算出来的数字为:
12345
那么1+2+3+4+5=15
1+5=6
那么,得数是6
1个回答 分类:综合 2014-10-06

问题解答:

我来补答
Private Function Calculate(ByVal Int_num As String) As Integer
'Int_num 设置为String是为了 Len(Int_num) 计算正确
Calculate = 0
If Int_num
 
 
展开全文阅读
剩余:2000