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

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

透明的光 1年前已收到1个回答举报

卡福卡卡幼苗

共回答了21个问题采纳率：95.2% 举报

Private Function Calculate(ByVal Int_num As String) As Integer
'Int_num 设置为String是为了 Len(Int_num) 计算正确
Calculate = 0
If Int_num

1年前

可能相似的问题

每个圆圈内的汉字代表1-9中的一个数字，汉字不同，数字也不同，每个三角形三个顶点上的数字之和相等。若7个数字之和等于12

1年前1个回答
将1--8这8个数字放在正方体的8个顶点上,使任何一个面上的4个数中任意3个数之和不小于10.求各面上 4个数之和中的最

1年前4个回答
VB计算,分别在TEXT1、TEXT2中输入一个数字,单击command1按钮,则在text3中显示平均值.怎么写?

1年前1个回答
两个数之和是73,勾掉大数中的一个数字,得到的是一个小数,这个大数是多少?

1年前3个回答
将1~8这八个数放在一个正方体的八个顶点上,使任意一面上的四个数字中任意三数之和不小于10,求各个面上四数之和的最小值.

1年前1个回答
两个数之和是73,化掉大数中的一个数字,得到的是小数,这个大数是多少?

1年前5个回答
图中，每个圆圈内的汉字代表1～9中的一个数字，汉字不同，数字也不同，每个小三角形三个顶点上的数字之和相等．若7个数字之和

1年前2个回答
下面横排有12个小方格，每个方格中填一个数字，要使任意相邻的三个数之和都等于15，则χ=______

1年前1个回答
两个数之和是61,如果勾掉大数中的一个数字,得到的是小数,那么这个大数是多少?

1年前3个回答
下面横排有12个小方格，每个方格中填一个数字，要使任意相邻的三个数之和都等于15，则χ=______

1年前1个回答
在图中的方框内填入3、4、5、右中的一个数字，使得竖式成立．请问：所填的九个数字之和是多少？一共有多少种填法？

1年前1个回答
图中，每个圆圈内的汉字代表1～9中的一个数字，汉字不同，数字也不同，每个小三角形三个顶点上的数字之和相等．若7个数字之和

1年前1个回答
在VB中输入一个大于等于1的整数,然后分别计算从0到该数之间的奇数之和和偶数之和程序怎么编?

1年前1个回答
(共千位):* * * * 减 2 * * * = 8 *,这么一道数学题:"*"中填写一个数字?填写数字从0-9,不能

1年前1个回答
下面算式中的祝、你、学、习、好这5个汉字各代表0~9中的一个数字，请你把算式中的”祝你学习好“破译成五位数。

1年前2个回答
VB中怎么用数字序列表示日期型常量

1年前1个回答
用0,3,7,9,四个数字能组成多少个不同的三位数?在一个3位数中,每一个数字只能用一次

1年前2个回答
下图中共有12个小图形,每一个不同的小图形表示1至9中的一个数字,每行的三个图形表示一个三位数,四行表示四个三位数：14

1年前1个回答
下面的算式中的七个汉字分别代表1~9中的一个数字.已知春表示6,你能吧其他的汉字换成数字,使算式成立吗?

1年前1个回答

你能帮帮他们吗

哪些两位小数的百分位“五入”后是3.（）.（）（）～（）.（）（）

1年前
阅读理解。 1. _______ are from the U.S.A. A. Tommy and Alice B. J

1年前
求不等式1-(y-1)

1年前
（2010•崇明县二模）如果关于x的一元二次方程x2-2x+m=0有两个实数根，那么m的取值范围为（　　）

1年前
KClO3与SO2在酸性条件下反应生成ClO2方程式

1年前

精彩回答

温暖的尘土那一年,他去一个偏远的山区支教,时间为一年。

1年前
如图，正方形ABCD的边长为4，点P、Q分别是CD、AD的中点，动点E从点A向点B运动，到点B时停止运动；同时，动点F从点P出发，沿P→D→Q运动，点E、F的运动速度相同．设点E的运动路程为x，△AEF的面积为y，能大致刻画y与x的函数关系的图象是（）

1年前
孟子说过：“人不可以无耻。无耻之耻，无耻矣。”这告诫我们（）

1年前
一间长8米，宽6米，高4米的教室，门窗面积是15平方米．要粉刷四壁和屋顶的面积是多少？

1年前
很多关于整数规律的猜想都通俗易懂，吸引了大量的数学家和数学爱好者，有些猜想已经被数学家证明

1年前