VB测试题目！来个朋友帮忙做哈哦！谢谢...

'一个Text , 一个Command , 一个Label
Private Sub Command1_Click()
'1、 程序：从键盘输入一个正整数n，计算该数各位数字只和，并将结果显示在标签中
'，例如，输入数据为3257，则3+2+5+7=17。（考生自己设计输入输出），窗体文件和工程文件主名均为“你的姓名+one”，如“张三one”
'（提示：可能用到的函数
'Len(C): 说明：求字符串长度
'Mid(C,N1,[N2])） 说明： 取字符子串，在C中从N1位开始向右取N2个字符，默认N2到结束）
Dim i As Long
Dim c As String
Dim c1 As String
Dim sum As Long
c = Me.Text1.Text
For i = 1 To Len(c)
c1 = Mid(c, i, 1)
sum = sum + CInt(c1)
Next i
Me.Label1 = sum
End Sub

汗，这东西有什么难的，还不用你那个什么求字符串长度，就在text的keyPress事件中写就好了，输入一个数值累加一次，直到输完为止

Private Sub Command1_Click()
Dim N As String
Dim I As Integer
Dim S As Integer
Dim str As String

N = InputBox("输入一个正整数")

For I = 1 To Len(N)
str = str & Mid(N, I, 1) & "+"
S = S + Mid(N, I, 1)
Next

Print Left(str, Len(str) - 1) & "=" & S

End Sub

pr