Question

vb输入一个数n,求各个位数的和

在线等，谢谢

Answer 1

创建一个数组 n()
先用 Len() 获取长度
再用 For Next循环语句 + Left(n(i),1)函数读出各数位
最后加和

大概就是这样 很长时间不用VB 有些函数记不清了

Answer 2

dim sum as integer
sum=0
do while(n>0)
sum = sum +(n mod 10)
n= n\10
loop

倒数第二个不是除，是整除，方向不同

Answer 3

Dim n, i, t, sum As Integer
n = InputBox("Number")
t = Len(a)
sum = 0
For i = 1 To t
sum = sum + n Mod 10
n = (n - n Mod 10) / 10
Next i
MsgBox sum

Answer 4

inputbox( "n=";n$)
n$=str(abs(val(n$)))
s=0
for i=1 to len(n$)
s=s+ val(mid(n$,i,1))
next
print s