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
我看一本书上是这么写的,但是输出结果不对,而且这个算法不也看不太懂,希望大家解释一下,还有这个程序为什么不对?谢谢

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

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

呵呵