输入一个整数n.求每位数字之和用vb程序

分析：由于我们不知道输入的这个整数是几位数，所以要先判断整数的位数，然后用循环找出每个位数具体的数值，最后加起来。
先建立2个文本框Text1、Text2，1个按钮Command1。操作：在Text1中输入一个整数，再单击按钮，则结果显示在Text2。下面是Command1的代码：
Private Sub Command1_Click()
Dim i,x,y,a() as integer //i用来做循环，x用来保存整数位数，y用来保存求和结果，a() 数组用来保存每个位数数值。
Text2.text="" //程序开始时，先清空Text2。
x=len(Text1.text) //先判断输入的整数的位数。
for i=1 to x
a(i)=val(mid(Text1.text,i,1)) //用读取字符串函数把各位数找出来，并转化成数字放到数组a(i) 中。
y=y+a(i) //把各位数加起来。
next i
Text2.text=y //把求和结果显示在Text2中。
End Sub
有什么问题可以追问。

PrivateSubCommand1_Click()Dima(4)AsIntegerx=Text1.TextFori=1To4a(i)=Mid(x,i,1)NextFori=1To4Printa(i);NextEndSub创建一个数组n()先用Len()获取长度再用ForNext循环语句+Left(n(i),1)函数读出各数位最后加和大概就是这样很长时间不用VB有些函数记不清了

代码如下：a=InputBox("请输入一个整数","输入")n=Len(a)Fori=1Tontmp=Val(Mid(a,i,1))Sum=Sum+tmpNextMsgBoxSumMsgBoxa&n&i

代码如下：

    a = InputBox("请输入一个整数", "输入")
    n = Len(a)
    For i = 1 To n
        tmp = Val(Mid(a, i, 1))
        Sum = Sum + tmp
    Next
    MsgBox Sum
    MsgBox a & n & i