[求助](VB)计算输入的整数的各位数字之和

fengfei0210 发布于 2007-10-14 08:12， 1184 次点击

Private Sub Command1_Click()
n = 0
a = Val(Text1.Text)
While (a > 0)
n = n + a Mod 10
a = a / 10
Wend
Text2.Text = n
End Sub
我看一本书上是这么写的,但是输出结果不对,而且这个算法不也看不太懂,希望大家解释一下,还有这个程序为什么不对?谢谢

3 回复

fengfei02102007-10-14 08:30

不用了,我自己看懂了,把浮点除法改成整除就行了,谢谢大家.
我是个菜鸟,大家别见笑啊!

purana2007-10-14 10:14

Private Sub Command1_Click()
n = 0
a = Fix(Val(Text1.Text))
While (a > 0)
n = n + a Mod 10
a = a \ 10
Wend
Text2.Text = n
End Sub

dadoujiao2007-10-14 10:44

呵呵